Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57083 / 76732 ←次へ | 前へ→

【24389】Re:タックシールに連番をふるには?
回答  ponpon  - 05/4/20(水) 23:23 -

引用なし
パスワード
   ▼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
1 hits

【24345】タックシールに連番をふるには? soramame 05/4/19(火) 22:16 質問
【24347】Re:タックシールに連番をふるには? Kein 05/4/19(火) 22:28 回答
【24348】Re:タックシールに連番をふるには? soramame 05/4/19(火) 23:49 質問
【24349】Re:タックシールに連番をふるには? ponpon 05/4/20(水) 0:25 回答
【24373】Re:タックシールに連番をふるには? soramame 05/4/20(水) 20:27 質問
【24377】Re:タックシールに連番をふるには? ponpon 05/4/20(水) 21:06 回答
【24382】Re:タックシールに連番をふるには? soramame 05/4/20(水) 21:45 質問
【24383】Re:タックシールに連番をふるには? ponpon 05/4/20(水) 21:49 発言
【24388】Re:タックシールに連番をふるには? soramame 05/4/20(水) 23:06 質問
【24389】Re:タックシールに連番をふるには? ponpon 05/4/20(水) 23:23 回答
【24390】Re:タックシールに連番をふるには? soramame 05/4/20(水) 23:52 お礼

57083 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free