Excel VBA質問箱 IV

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

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


14766 / 76734 ←次へ | 前へ→

【67456】Re:VBAからWorkSheet関数の利用方法について
発言  UO3  - 10/12/6(月) 8:59 -

引用なし
パスワード
   追伸です。

kanabunさんからループ回数を最も少なくした効率のいいコードがアップされているわけですが
オリジナルの構文の誤りを認識いただくには、以下のSample1も参考になるのかもしれません。
また、この範囲であればSample2のような処理も。
もし、夜勤当直者さんの目的が列番号を与えて列コードを取得するということであれば
GetColName といったファンクションプロシジャを書いておいて、
文字列変数 = GetColName(125) といったように取得することもできますね。

Sub Sample1()
 Dim kaku(1 To 78) As String
 Dim I As Integer
 For I = 1 To 78
  Select Case I
   Case 1 To 26
     kaku(I) = Chr$(I + 64)      'kakuの値:A,B・・・Z
   Case 27 To 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
 Next I
End Sub

Sub Sample2()
 Dim kaku(1 To 78) As String
 Dim I As Integer
 For I = 1 To 78
  kaku(I) = Split(Columns(I).Address(False, False), ":")(0)
 Next I
End Sub


Function GetColName(col As Integer) As String
 Select Case col
  Case 1 To Columns.Count
   GetColName = Split(Columns(col).Address(False, False), ":")(0)
  Case Else
   GetColName = "#N/A"
 End Select
End Function

7 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 発言

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