Excel VBA質問箱 IV

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

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


14769 / 76734 ←次へ | 前へ→

【67453】Re:VBAからWorkSheet関数の利用方法について
発言  りん E-MAIL  - 10/12/5(日) 21:12 -

引用なし
パスワード
   夜勤当直者 さん、こんばんわ。
>
> 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
こんな方法も。
4 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 発言

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