Excel で列番号を文字に変換する VBA (3 つの方法)

VBA マクロの実装 は、Excel で操作を実行するための最も効果的、迅速かつ安全な方法です。この記事では、Excel で列番号を文字に変換する方法を紹介します。 VBA を使用する .

ワークブックをダウンロード

ここから無料の練習用 Excel ワークブックをダウンロードできます。

Excel で列番号を文字に変換する VBA を実装する 3 つの方法

このセクションでは、特定の列番号を文字に変換する方法を学びます , ユーザー入力の列番号から文字へ UDF (ユーザー定義関数) を作成して、列番号を文字に変換します VBA を使用した Excel .

1. Excel で特定の列番号を文字に変換する VBA

a を変換する手順 特定の列番号から文字へ VBA を使用した Excel

手順:

• Alt + F11 を押します キーボードで、またはタブ Developer -> Visual Basic に移動します Visual Basic Editor を開く .

• ポップアップ コード ウィンドウで、メニュー バーから [挿入] -> [モジュール] をクリックします。 .

• 次のコードをコピーして、コード ウィンドウに貼り付けます。

Sub ColNumToLetter()
Dim ColNumber As Long
Dim ColLetter As String
'Input Column Number
ColNumber = 200
'Convert To Column Letter
ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
'Display Result
MsgBox "Column " & ColNumber & " = Column " & ColLetter
End Sub

コードを実行する準備ができました。

このコードは 列番号 200 を変換します 関連付けられたレター アドレスに .

• F5 を押します キーボードまたはメニュー バーから Run -> Run Sub/UserForm を選択します . 小さな再生アイコンをクリックすることもできます サブメニュー バーでマクロを実行します。

手紙の住所 (GR) を表示する Microsoft Excel ポップアップ メッセージ ボックスが表示されます。 ) 列番号 (例:200) ) をコード内に入力します。

続きを読む: Excel で列番号に基づいて範囲を使用する VBA (4 つの方法)

類似の読み物

• [修正] 文字ではなく Excel の列番号 (2 つの解決策)
• Excel で列文字を数値チャートに変換する方法 (4 つの方法)

2. Excelでユーザー定義関数（UDF）を使用して列番号を文字に切り替えるVBA

UDF で列番号を文字に切り替える手順 VBA を使用した Excel

手順:

• 前と同じように、Visual Basic Editor を開きます 開発者から タブと挿入 モジュール コード ウィンドウで。
• コード ウィンドウで、次のコードをコピーして貼り付けます。

Public Function NumToLtr(ColNum)
NumToLtr = Split(Cells(1, ColNum).Address, "$")(1)
End Function

これは VBA のサブ プロシージャではありません プログラムを実行します。これは ユーザー定義関数 (UDF) を作成しています .したがって、コードを記述した後、[実行] ボタンをクリックする代わりに メニュー バーから [保存] をクリックします。 .

• 対象のワークシートに戻り、作成したばかりの関数を VBA で記述します。 コード (Function NumToLtr コードの最初の行) と NumToLtr の括弧内 関数に セル参照番号 を渡します 文字に変換したいもの (この場合、Cell B5 を渡します) かっこ内）

したがって、最終的な式は、

=NumToLtr(B5)

• Enter を押します .

関連する手紙の住所 (A ) の列番号 (1) ) をデータセットに追加します。

• フィル ハンドルで行を下にドラッグします UDF を適用するには 残りのセルを文字に変換します。

GoTo ステートメントを使用

上記の手順は、 GoTo でも実行できます。 声明。

• VBA GoTo で列番号を文字に変換するコード 声明は、

Public Function Num_Letter(ByVal iColNum As Integer) As String
Dim SLetter As String
   On Error GoTo iError
   Num_Letter = Left(Cells(1, iColNum).Address(False, False), _
                  Len(Cells(1, iColNum).Address(False, False)) - 1)
   Exit Function
iError:
   Call MsgBox(Err.Number & " - " & Err.Description)
End Function

• 上記のように、UDF を呼び出します データセットで、セル参照番号を渡します 引数として Enter を押します ドラッグ 列番号を文字に変換する行 GoTo を使用して Excel で VBA でのステートメント .

Do-While ループを使用

Do-While ループは、VBA で列番号を文字に変換する別の方法です エクセル。

• VBA Do-While を使用して列番号を文字に変換するコード ループは、

Function NumberToLetter(iCol As Long) As String
   Dim a As Long
   Dim b As Long
   a = iCol
   NumberToLetter = ""
   Do While iCol > 0
      a = Int((iCol - 1) / 26)
      b = (iCol - 1) Mod 26
      NumberToLetter = Chr(b + 65) & NumberToLetter
      iCol = a
   Loop
End Function

• 同様に、UDF を呼び出す データセットで、セル参照番号を渡します 引数として Enter を押します ドラッグ 列番号を文字に変換する行 Do-While を使用して Excel で VBA でループ .

続きを読む: Excel VBA:行番号と列番号で範囲を設定する (3 つの例)

3. Excel でのユーザー入力から列番号を文字に変更する VBA

列番号をユーザー入力の文字に変更する手順 VBA を使用した Excel

手順:

• 前と同じように、Visual Basic Editor を開きます 開発者から タブと挿入 モジュール コード ウィンドウで。
• コード ウィンドウで、次のコードをコピーして貼り付けます。

Sub GetNumberFromUser()
    Dim ColNumber As Long
    Dim ColLetter As String
    'User Input: Column Number
    ColNumber = InputBox("Please Enter a Column Number")
    'Convert the user-entered Column Number To Column Letter
    ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
    'Display the Result
    MsgBox "Column Number: " & ColNumber & _
                        " = Column Letter: " & ColLetter
End Sub

コードを実行する準備ができました。

• 走る
• 列番号を尋ねる Microsoft Excel ポップアップ メッセージ ボックスが表示されます。 列番号を記入してください ボックス内の文字として変換する文字を入力し、[OK] を押します。 .

列番号の変換結果が得られます (例:200) ) を関連付けられたレター アドレス (GR) に入力します。 ).

続きを読む: Excel で列番号に基づいて範囲を使用する VBA (4 つの方法)

結論

この記事では、VBA を使用して Excel で数字を文字に変換する方法を説明しました。 .この記事があなたにとって非常に有益であることを願っています。このトピックについて質問がある場合は、お気軽にお問い合わせください。

関連記事

• Excel で列名を ABC から 1 2 3 に変更する方法
• Excel で列文字を数値チャートに変換する方法 (4 つの方法)
• Excel で行番号と列番号でセルを参照する方法 (4 つの方法)
• Excel VBA:複数の列を選択する (3 つの方法)
• Excel で一致の列番号を返す方法 (5 つの便利な方法)