| |
こんにちは＾＾
>-----Sheet1------Worksheet-----Active-----
>
>Private Sub Worksheet_Activate()
>
> With Range("A:A").Validation
> .Add Type:=xlValidateList, Formula1:="1,2,3,4"
> .InCellDropdown = True
> End With
>
> Range("B1").Select
>
>End Sub
>
>------------------------------------------
えと、上記のコードは、Sheet1がアクティブになる度に実行されますよね？
一番最初に実行したら、
Ａ列に入力プルダウンリストが作成されて、Ｂ１にカーソルが移動しますよね。
２回目に実行したら、すでにリストは作成されているので、エラーになりますね？
いのっちさんがされたい処理は、リストで数字を選択したのち、Ｂ１にカーソルをいどうしたいってことですよね？
でしたら、リストを最初に作成しておいて、
あとは、
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("b1").Select
End If
End Sub
で、どうでしょうか？
全然外してたらすんません・・・
|
|
つん
- 05/7/6(水) 13:52 -
