Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57123 / 76732

←次へ　｜　前へ→


	【24349】Re:タックシールに連番をふるには？

ponpon - 05/4/20(水) 0:25 -


	引用なし

	パスワード

▼soramame さん：
>連番は３００ほどつけたいので、手作業ではかなり大変でした。タックラベルは縦４×横４の１６枚のラベルですが、１つのラベルはセル縦７×横３からできています。その中の1行目に連番をつけたいのです。よろしくお願いします。

ということなら、
　　　１　　２　　３　　４
　　　５　　６　　７　　８
　　　９　１０　１１　１２
　　　・　　・　　・　　・
　　　・　　・　　・　　・
というような感じでしょうか？
ならば、これではいかがでしょう。
はずしたらすみません。

Sub test()
Dim i As Long
Dim j As Long
Dim t As Long

With Worksheets("sheet1")
　 t = 1
　 For i = 1 To 500 Step 7
　　　For j = 1 To 10 Step 3
　　　 .Cells(i, j) = t
　　　 t = t + 1
　　　Next
　 Next
End With

End Sub

0 hits

▼

【24345】タックシールに連番をふるには？ soramame 05/4/19(火) 22:16