Excel VBA質問箱 IV

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

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


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

14766 / 76734

←次へ　｜　前へ→


	【67456】Re:ＶＢＡから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】ＶＢＡからWorkSheet関数の利用方法について 夜勤当直者 10/12/5(日) 20:27