|
Тема |
Re: Active Cells... [re: drosg] |
|
Автор |
Бypaн (ентусиаст) |
|
Публикувано | 21.01.09 14:00 |
|
|
В VBA редактора Избираш си съответния лист във файла и в него поставяш следния код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 And Target.Row < 201 Then UserForm1.Show
End Sub
Внимание - целия If e един ред, а не UserForm1.Show да е на нов ред.
За да си сигурен може да го направиш по следния начин - във файла, като си на листа с десния бутон кликваш върху табчето на листа и избираш View Code
|
| |
|
|
|