| |
▼初心者Ｍ さん：
>記号が不定のことが多い場合、
>
>Dim n As Long
>
>をstringかvariantに変えれば上手くいきますでしょうか。
>
>実はちょっと試したところ、C8の行の記号が勝手に書き換わるという現象が起き、
> ？？？という状態です。
そんなことしてもダメです。
全部のセルの記号に重複がなくユニークだったとしても、セル数 n は6075種類
ですから、
>Dim n As Long
でいいのです（最大6075ですからInteger型でもいいのですが、Long型が最善です）
こちらで動作を確かめるために、適当なデータをシート上に作成するために書いた
コードがありますから、そちらでも、新規シートをアクティブにして、↓を走らせて
ダミーデータを作成したものに対して、
Sub test3() を走らせて、どうなるか、テストしてみてください。
Sub test31データ埋め込み()
Dim j As Long
Dim y As Long, x As Long
Dim Label As String
Dim c As Range
Dim r As Range
Const Y0 = 8, YY = 25, Ystp = 16 '縦方向 最初の行、繰り返し回数,Step
Const X0 = 5, XX = 27, Xstp = 3 '列方向 最初の列、繰り返し回数,Step
Const Lo = 1, Hi = 2000
Randomize
j = 0
Cells.Interior.ColorIndex = xlNone
For x = X0 To X0 + (XX - 1) * Xstp Step Xstp
For y = Y0 To Y0 + (YY - 1) * Ystp Step Ystp
Set r = Cells(y, x).Resize(9)
r.Interior.Color = vbCyan
For Each c In r
c(1, -1).Value = Int(Hi * Rnd() + Lo)
j = j + 1: If j > 14 Then j = 1
c.Value = Mid$("ABCDABCDKLMXYZ", j, 1)
Next
Next
Next
End Sub
|
|
kanabun
- 14/1/8(水) 16:57 -
