Автоматически скрывать строки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Ден

Дата: Среда, 15.08.2012, 10:23 | Сообщение № 1

Группа: Гости

Подскажите пожалуйста, как автоматически скрыть строки.
Т.е. при вводе в соответствующую ячейку к примеру числа 20 на листе в таблице остаются 20 нужных строк, а остальные автоматически скрываются, далее при вводе например 30 появляются еще 10 строк (теперь их 30), потом при вводе скажем числа 10 остаются всего десять строк ну и т.д.

Ответить

vikttur

Дата: Среда, 15.08.2012, 10:42 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Попробуйте записать макрорекодером:
2010: вкладка Разработчик-Запись_макроса;
2003: меню Свойства-Макросы (неточно)

Ответить

den

Дата: Среда, 15.08.2012, 11:06 | Сообщение № 3

Группа: Гости

А как?
ведь значение в условной ячейке постоянно разные от 0 до 200.

Ответить

vikttur

Дата: Среда, 15.08.2012, 11:16 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Попробуйте записать макрос с постоянным значением.
Покажете, что получилось, а мы здесь подправим.

Сообщение отредактировал vikttur - Среда, 15.08.2012, 11:16

Ответить

den

Дата: Среда, 15.08.2012, 12:10 | Сообщение № 5

Группа: Гости

Подскажите, можно ли данную операцию сделать без макроса?

Ответить

Serge_007

Дата: Среда, 15.08.2012, 12:11 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Нет

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Формуляр

Дата: Среда, 15.08.2012, 12:11 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Только руками. smile

Excel 2003 EN, 2013 EN

Ответить

den

Дата: Среда, 15.08.2012, 12:21 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Помогите, кто сможет, написать макрос.
Файл с условиями во вложении.

К сообщению приложен файл: 6096013.xlsm (27.5 Kb)

Ответить

ABC

Дата: Среда, 15.08.2012, 12:42 | Сообщение № 9

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

[vba]

Code

Sub Скрыть()
Dim x&, xx&
x = Sheets("Лист1").Cells(4, 2).Value + 5
xx = Sheets("Лист1").Cells(5, 2).Value + 205
If Sheets("Лист1").Cells(4, 2).Value = 0 Or Sheets("Лист1").Cells(5, 2).Value = 0 Then Exit Sub
     Sheets("Лист2").Cells.EntireRow.Hidden = False
     Sheets("Лист2").Rows(x & ":204").EntireRow.Hidden = True
     Sheets("Лист2").Rows(xx & ":404").EntireRow.Hidden = True
End Sub

[/vba]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

vikttur

Дата: Среда, 15.08.2012, 12:52 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Вариант в файле.

Или с одной переменной:
[vba]

Code

Sub Скрыть()
Dim lRow1 As Long
     With Worksheets("Лист1")
         .Range(Cells(4, 1), Cells(404, 1)).EntireRow.Hidden = False
         lRow = .Range("B4").Value + 5
         .Range(Cells(lRow, 1), Cells(204, 1)).EntireRow.Hidden = True
         lRow = .Range("B5").Value + 205
         .Range(Cells(lRow, 1), Cells(404, 1)).EntireRow.Hidden = True
     End With
End Sub

[/vba]

К сообщению приложен файл: 4651895.xlsm (29.9 Kb)

Сообщение отредактировал vikttur - Среда, 15.08.2012, 12:55

Ответить

den

Дата: Среда, 15.08.2012, 13:06 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Ребят, спасибо огромное, очень помогли!
Без нажатия на кнопку, чтобы когда выбрали значение, уже скрылись не нужные строки.

Ответить

_Boroda_

Дата: Среда, 15.08.2012, 13:14 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Ну и до кучи
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Or Target.Address(0, 0) = "B5" Then
     If Target > 200 Then
         MsgBox "Перебор"
         Exit Sub
     End If
     With Лист2
         .Rows("5:405").EntireRow.Hidden = False
         .Rows((5 + [B4]) & ":204").EntireRow.Hidden = True
         .Rows((205 + [B5]) & ":404").EntireRow.Hidden = True
     End With
End If
End Sub

[/vba]

К сообщению приложен файл: 6096013_1.xlsm (29.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995