Можно ли такое сделать? Вопрос во вложении.
"цветная" строка в поле зрения
04.11.2009 18:28:24
|
|
|
|
04.11.2009 18:43:23
можно
Bite my shiny metal ass!
|
|
|
|
04.11.2009 19:31:57
Ира, вот небольшой фрагмент из правил "старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу." Вы их читали?
|
|
|
|
04.11.2009 19:34:48
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [f6].Address Then On Error Resume Next: Dim к As Long r = [a:a].Find(Target, , , xlWhole).Row If r = 0 Then r = 9 ActiveWindow.ScrollRow = r On Error GoTo 0 End If ' далее ваш код End Sub Пример файла: PS: Что за дурацкая идея выкладывать код в виде скриншота? |
|
|
|
04.11.2009 23:09:07
Или скопировать захочет. А не тут-то было!
|
|
|
|
Читают тему