Active Cells...

6 отговора 0 прегледа
#1

Active Cells...

Здр.
Да попитам ... Как активираайки клетка в колона А2:А300 да се активира User form ???

Отговор
в отговор на drosg #2

Re: Active Cells...

Използвай събите SelectionChange за съответния worksheet

Geocaching в България
Отговор
в отговор на drosg #3

Re: Active Cells...

Sub SelectionChange()
Worksheets("Лист1").Activate
Range("A1:D10").Select
If Active.cell.Selected Then
UserForm1.Show
Else
End If
End Sub

Искам, като посоча клетка в тази област да се активира UserForm1
Моля за помощ

Отговор
в отговор на drosg #4

Re: Active Cells...

В 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

Geocaching в България
Отговор
в отговор на Бypaн #5

Re: Active Cells...

Въведох точно кода който си ми написал но ми излиза това съобщение:
Compile error:
Ambiguous name detected : Worksheet_SelectionChange

Конкретно, става дума за реда "А1:АF1"
Благода ря !

Отговор
в отговор на drosg #6

Re: Active Cells...

Мога само да предполагам, но според мен не си го сложил там където трябва, поради което не се знае за събитие SelectionChange на кой worksheet става въпрос. Все пак съм го изтествал преди да ти го пусна :-)
Ето как да стане стъпка по стъпка:
1. С десния бутон върху табчето където е името на листа ->View Source. Отваря ти се редактора, в модула, който е за съответния лист.
2. Горе вляво има комбо-бокс в който избираш Worksheet, а в десния -> SelectionChange.
3. В генерирания код на процедура добавяш If-a от това което съм ти написал, като евентуално го моделираш за да отговаря на нуждите ти - първо ти трябваше колона А, а сега ред1.

Geocaching в България

Редактирано от Бypaн на

Отговор
в отговор на Бypaн #7

Re: Active Cells...

Благодаря ти Буран !!!
Стана , вси4ко е ок :)

Отговор