![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
●質問の主旨
cellsプロパティで表された列名をアルファベットに
変えるためにはどのようなコードを使えばよいでしょうか?
例)cells(4,5)→E列
●質問の補足
cellsプロパティで取り出された行数を
Rangeプロパティを表したいと考えております。
上記の例を使うと、
Range("cells(4,5)→E列 & 4")というプロパティを作成し、
Setステートメントを使用した「Rangeオブジェクト」に
したいと考えております。
ご存知のかたご教示よろしくお願い申し上げます
No.5ベストアンサー
- 回答日時:
>cellsプロパティで表された列名をアルファベットに
>変えるためにはどのようなコードを使えばよいでしょうか?
Sub macro() ’変数Aの値が列名のアルファベットです。
Dim A As String
A = Split(Cells(4, 5).Address, "$")(1)
MsgBox Range(A & 4).Address
End Sub
わざわざアルファベットに変える必要性はないです。
Dim R As Range
Set R = Cells(4, Cells(4, 5).Column)
こうすれば、いいです。
No.4
- 回答日時:
Cells(4,5)はRangeオブジェクトです。
面倒なことをしなくても設定できます。
Dim 範囲 As Range
Set 範囲 = Cells(4, 5)
他には
Set 範囲 = Range(Cells(1, 1), Cells(4, 5))
と言うのもあります。
どうしても英字にしたいなら次のように
します。
Dim 列位置 As Long
Dim 列記号 As String
列位置 = Cells(4, 5).Column - 1
列記号 = IIf(列位置 < 27, "", Chr(64 + (列位置 \ 26))) _
& Chr(65 + (列位置 Mod 26 ))
No.3
- 回答日時:
27進数だと考えれば自作関数で数値を文字列の
ならびに変換するのもそれほど難易度の高い話
ではないです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBAでのリスト不一致抽出について
-
VBAの構文 3列置きにコピーし...
-
VBscriptでExcel sheetの並び替...
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
IIF関数の使い方
-
エクセル 2つの表の並べ替え
-
セルに値が入っていた時の処理
-
VBAで指定範囲内の空白セルを左...
-
VBAで、特定の文字より後を削除...
-
【Excel VBA】 B列に特定の文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
URLのリンク切れをマクロを使っ...
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
ExcelVBA修正のお願い
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
VBマクロ 色の付いたセルを...
-
空白セルをとばして転記
-
rowsとcolsの意味
おすすめ情報