|
こんにちは
初心者なので、ネットで検索しながら作りました。
UserFoamを作り ComboBoxのDropDownを
させたいのですが、上手くいきません。
Range("A:J")でUserForm1.Showにして
ElseIf Not Intersect(Target, Range("D:D")) Is Nothing Then
UserForm1.Show
UserForm1.ComboBox3.DropDown
Range("D:D")で DropDownしたいのですが、DropDownしません。
どこがおかしいのでしょうか?
宜しくお願い致します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Not Intersect(Target, Range("A:J")) Is Nothing Then
UserForm1.Show
UserForm1.ComboBox1.DropDown
ElseIf Not Intersect(Target, Range("D:D")) Is Nothing Then
UserForm1.Show
UserForm1.ComboBox3.DropDown
End If
End If
End If
End Sub
|
|