Excel VBA質問箱 IV

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

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


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

14770 / 76734

←次へ　｜　前へ→


	【67452】ＶＢＡからWorkSheet関数の利用方法について

夜勤当直者 - 10/12/5(日) 20:27 -


	引用なし

	パスワード

お世話になります。

　VBAからExcelのchar関数を利用するため、以下のコードを動かしてみたら、
エラーがでました。どこに間違っているのか？わからなくて、困っています。
よろしくお願いします。

ちなみに、Ｉ＝１～26の場合は、
　　　　　　　　kakuの値：A,B・・・Z
　　　　　Ｉ＝27～52の場合は、
　　　　　　　　kakuの値：AA,AB・・・AZ
　　　　　Ｉ＝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

3 hits

▼

【67452】ＶＢＡからWorkSheet関数の利用方法について 夜勤当直者 10/12/5(日) 20:27

≪