アルファベットの26進（ツイッターお題）
ツイッターで出されたお題をVBAで回答したものです。
次のアルファベットを桁上げし、
ABA,ABC?ZZZまで計算するコードを書きたい。
お題のツイート
よくある方法
10進数値を26で割っていく方法で各桁を0～25の数値に変換し、
その後、0～25を"A"～"Z"に変換して作成する方法です。
文字コードは、"A"が65、そこから1ずつ増えていき、"Z"が90です。
つまり、0～25に65を加算した文字コードが"A"～"Z"になります。
上記ツイートを辿ればいろいろな回答が出ています。
回答したVBAコード
Sub main()
Const alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim i, str As String
str = "AAA": Debug.Print str
For i = 1 To 26 * 26 * 26 - 1
If Mid(str, 3, 1) = "Z" Then
If Mid(str, 2, 1) = "Z" Then
Mid(str, 1, 1) = Mid(alpha, InStr(alpha, Mid(str, 1, 1)) + 1, 1)
Mid(str, 2, 1) = "A"
Else
Mid(str, 2, 1) = Mid(alpha, InStr(alpha, Mid(str, 2, 1)) + 1, 1)
End If
Mid(str, 3, 1) = "A"
Else
Mid(str, 3, 1) = Mid(alpha, InStr(alpha, Mid(str, 3, 1)) + 1, 1)
End If
Debug.Print str
Next
End Sub
使用している関数等は、
注意点はMid関数とMidステートメントの違いです。
上記解説ページを参考に、VBAコードを読み解いてみてください。
AAB
・・・
AAY
AAZ
ABA
ABB
・・・
AZZ
BAA
BAB
・・・
ZZY
ZZZ
同じテーマ「エクセル雑感」の記事
「VBAで導関数を求めよ」ツイッターのお題をやってみた
ツイッターのお題「君の名は？」
ツイッターのお題「CSV編集」
アルファベットの26進（ツイッターお題）
ナンバープレート数字遊び：ツイッターお題
保護されたブックの非表示シートについて
文字列のセルだけ結合
時間に関する関数の扱い方
COUNTIF関数の結果は?
【超難問】エクセル数式問題
IFステートメントの判定
新着記事NEW ・・・新着記事一覧を見る
還暦のVBA：VBAまでたどりつけるか… (2021-09-29)
VLOOKUPを使うことを基本としてシートを設計すべきか｜エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い｜エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法｜エクセル雑感(2021-08-13)
ADOでテキストデータを集計する｜VBAサンプル集(2021-08-04)
VBA学習のお勧めコース｜エクセル雑感(2021-08-01)
エクセル馬名ダービー｜エクセル雑感(2021-07-21)
在庫を減らせ！毎日棚卸ししろ！｜エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について｜エクセル雑感(2021-06-26)
DXってなんだ? ITと何が違うの?｜エクセル雑感(2021-06-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.並べ替え（Sort）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。