| |
夜勤当直者 さん、こんばんわ。
>
> VBAからExcelのchar関数を利用するため、以下のコードを動かしてみたら、
>エラーがでました。どこに間違っているのか？わからなくて、困っています。
>よろしくお願いします。
Char関数を利用しなくても、VB(A)のCHR関数で大丈夫です。
ループしている理由がよくわからないので、
Sub test1()
Dim kaku(1 To 78) As String
'ko,
For I = 1 To 78
Select Case I
Case Is <= 26
kaku(I) = Chr(I + 64) ' kakuの値：A,B・・・Z
Case Is <= 52
kaku(I) = "A" & Chr(I - 26 + 64) 'kakuの値：AA,AB・・・AZ
Case Else
kaku(I) = "B" & Chr(I - 52 + 64) 'kakuの値：BA,BB・・・BZ
End Select
'イミディエイトウィンドウに結果を表示
Debug.Print I, kaku(I)
Next I
End Sub
列のアルファベットのようなので、
Sub test2()
Dim kaku(1 To 78) As String
'
For I = 1 To 78
kaku(I) = Replace(Cells(1, I).Address(False, False), "1", "")
Debug.Print I, kaku(I)
Next I
End Sub
こんな方法も。
|
|
りん
- 10/12/5(日) 21:12 -
