| Вопрос: EXCEL. VBA. Нужно скрыть/отобразить строчки по зна | Добавлено: 19.06.06 16:49 |
Автор вопроса:  Roman
|
|
...чению какой-то ячейки другого листа.
Помогите пожалуйста Код "влоб" не работает Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("A1") Then if Target.vaue > 0 then Cheets("Лист2").select Rows("10:13").select selection.enturerow.hidden = true End If end if End Sub |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #1 | Добавлено: 19.06.06 19:40 |
|
Исправив синтаксические ошибки, код работает:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = Range("A1"  .Value Then
If Target.Value > 0 Then Sheets("Ëèñò2" .Rows("10:13".EntireRow.Hidden = True
End If End If End Sub |
||
|
Номер ответа: 2 Автор ответа:  НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #2 | Добавлено: 19.06.06 19:41 |
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Извиняете за кодировку.
If Target.Value = Range("A1" .Value Then
If Target.Value > 0 Then Sheets("Лист2" .Rows("10:13".EntireRow.Hidden = True
End If End If End Sub |
||
|
Номер ответа: 3 Автор ответа: Roman Вопросов: 1 Ответов: 2 |
Профиль | | #3 | Добавлено: 20.06.06 11:43 |
| Спасибо) | ||
|
Номер ответа: 4 Автор ответа: RomanВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 20.06.06 12:20 |
Не все так просто оказалось к сожалению 
Если следующая ячейка имеет другой тип (у меня проверяемая ячейка число след - дата) то на проверке значений target.value = range("XX" .value бьет ошибку type mismatch (run-time error(13)
Как это побороть? |
||
|
Номер ответа: 5 Автор ответа:  НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #5 | Добавлено: 20.06.06 14:28 |
|
target.value = range("XX" Не должен выдавать ошибку. Приведи свой код.
.value |
||
Страница: 1 |