Excel VBA質問箱 IV

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

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


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

55852 / 76732

←次へ　｜　前へ→


	【25646】Re:R1C1参照形式の列番号を、アルファベット列番号に変換する方法

えくせーる - 05/6/9(木) 14:02 -


	引用なし

	パスワード

ありがとうございました。

Z以降ができないみたいなので、自分で関数を作りました。

無駄なものだとは思いますが、一応公開しておきます。

↓↓↓↓↓↓↓↓
Public Function R1C1Num_Convert(Num As Integer)

　　'Num:列番号
　　
　　Dim Cnt As Integer
　　Dim StrTxt1, StrTxt2 As String
　　　　　　
　　Dim Quotient As Double　　　'商(実数)
　　Dim QuotientInt As Integer　'商(整数)
　　Dim Remainder As Integer　　'余り
　　　　　　　　　　
　　Const Alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
　　Const AlphabetLen As Integer = 26
　　
　　If Num < 1 And 256 < Num Then
　　　　Exit Function
　　End If
　　
　　Quotient = Num / AlphabetLen
　　
　　If Quotient - Int(Quotient) > 0 Then
　　　　QuotientInt = Int(Quotient)
　　Else
　　　　QuotientInt = Int(Quotient) - 1
　　End If
　　　　
　　Remainder = Num Mod AlphabetLen
　　If Remainder = 0 Then
　　　　Remainder = AlphabetLen
　　End If
　　
　　If QuotientInt = 0 Then
　　　　StrTxt1 = ""
　　Else
　　　　StrTxt1 = Mid(Alphabet, QuotientInt, 1)
　　End If
　　StrTxt2 = Mid(Alphabet, Remainder, 1)
　　
　　R1C1Num_Convert = Trim(StrTxt1) & Trim(StrTxt2)
　　
End Function

0 hits

▼

【25617】R1C1参照形式の列番号を、アルファベット列番号に変換する方法 えくせーる 05/6/8(水) 11:03