|
▼soramame さん:
>A1に数字を入れてエンターを押す???
>マクロ実行のボタンではないのですか?
はい。
Private Sub Worksheet_Change(ByVal Target As Range)は、
SheetのTarget(この場合"A1"の値)がChenngeした時のイベントで実行されます。
新しいbookのsheet1のシートモジュールにコピペして、
"A1"にすうじを入れてエンターを押すか、他のセルをセレクトしてください。
そのタイミングで実行されると思います。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim j As Long
Dim t As Long
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
If Target.Address(0, 0) = "A1" Then
t = Range("A1").Value
For i = 2 To 23 Step 7
For j = 1 To 10 Step 3
Cells(i, j).Value = t
t = t + 1
Next
Next
End If
End Sub
|
|