Excel VBA質問箱 IV

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

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


14770 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   お世話になります。

 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

3 hits

【67452】VBAからWorkSheet関数の利用方法について 夜勤当直者 10/12/5(日) 20:27 質問
【67453】Re:VBAからWorkSheet関数の利用方法につ... りん 10/12/5(日) 21:12 発言
【67454】Re:VBAからWorkSheet関数の利用方法につ... kanabun 10/12/5(日) 21:21 発言
【67455】Re:VBAからWorkSheet関数の利用方法につ... UO3 10/12/6(月) 7:33 発言
【67456】Re:VBAからWorkSheet関数の利用方法につ... UO3 10/12/6(月) 8:59 発言

14770 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free