|
お世話になります。
VBAからExcelのchar関数を利用するため、以下のコードを動かしてみたら、
エラーがでました。どこに間違っているのか?わからなくて、困っています。
よろしくお願いします。
ちなみに、I=1〜26の場合は、
kakuの値:A,B・・・Z
I=27〜52の場合は、
kakuの値:AA,AB・・・AZ
I=53〜78の場合は、
kakuの値:BA,BB・・・BZ
の結果を求めたいです。
Dim kaku(1 To 78) As String
Dim I, I1 As Integer
For I = 1 To 78
Select Case I
Case I <= 26
For I1 = 65 To 90
kaku(I1) = char(I1) kakuの値:A,B・・・Z
Next I1
Case I > 26 And I <= 52
For I1 = 65 To 90
kaku(I1) = "A" & char(I1) kakuの値:AA,AB・・・AZ
Next I1
Case I > 52
For I1 = 65 To 90
kaku(I1) = "B" & char(I1) kakuの値:BA,BB・・・BZ
Next I1
End Select
Next I
End Sub
|
|