| |
▼soramame さん：
こんばんは。
>タックラベルを１シートだけで、連番を３００まで振ることができませんか？
1シートというと４×４の１６ですよね。
16まで振ったら、それまでのを消して、17から32まで振る・・・・ということでしょうか？
>また、例えば３０から５０というように途中の番号から連番を振りたいときはどうしたらよいでしょうか？
1シートなら３０から４６でしょ？
開始番号をエクセルにどうやって教えるかということですよね。
1行挿入して、"A1"に入力した数字から１シート分数字を振ります。
ただし、数字は、"A2"から振られます。
シートモジュールにコピペして試してください。
"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 Application.IsNumber(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) = t
t = t + 1
Next
Next
End If
End Sub
|
|
ponpon
- 05/4/20(水) 21:06 -
