Active Cells...
6 отговора
0 прегледа
Active Cells...
Здр.
Да попитам ... Как активираайки клетка в колона А2:А300 да се активира User form ???
Да попитам ... Как активираайки клетка в колона А2:А300 да се активира User form ???
Re: Active Cells...
Използвай събите SelectionChange за съответния worksheet
Geocaching в България
Geocaching в България
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
Моля за помощ
Worksheets("Лист1").Activate
Range("A1:D10").Select
If Active.cell.Selected Then
UserForm1.Show
Else
End If
End Sub
Искам, като посоча клетка в тази област да се активира UserForm1
Моля за помощ
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 в България
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 в България
Re: Active Cells...
Въведох точно кода който си ми написал но ми излиза това съобщение:
Compile error:
Ambiguous name detected : Worksheet_SelectionChange
Конкретно, става дума за реда "А1:АF1"
Благода ря !
Compile error:
Ambiguous name detected : Worksheet_SelectionChange
Конкретно, става дума за реда "А1:АF1"
Благода ря !
Re: Active Cells...
Мога само да предполагам, но според мен не си го сложил там където трябва, поради което не се знае за събитие SelectionChange на кой worksheet става въпрос. Все пак съм го изтествал преди да ти го пусна :-)
Ето как да стане стъпка по стъпка:
1. С десния бутон върху табчето където е името на листа ->View Source. Отваря ти се редактора, в модула, който е за съответния лист.
2. Горе вляво има комбо-бокс в който избираш Worksheet, а в десния -> SelectionChange.
3. В генерирания код на процедура добавяш If-a от това което съм ти написал, като евентуално го моделираш за да отговаря на нуждите ти - първо ти трябваше колона А, а сега ред1.
Geocaching в България
Ето как да стане стъпка по стъпка:
1. С десния бутон върху табчето където е името на листа ->View Source. Отваря ти се редактора, в модула, който е за съответния лист.
2. Горе вляво има комбо-бокс в който избираш Worksheet, а в десния -> SelectionChange.
3. В генерирания код на процедура добавяш If-a от това което съм ти написал, като евентуално го моделираш за да отговаря на нуждите ти - първо ти трябваше колона А, а сега ред1.
Geocaching в България
Редактирано от Бypaн на