Excel VBA 漢数字を半角算用数字に変換

質問

アプリから取得したデータの中に、一から十八までの漢数字がありますが、これを半角算用数字に変換するのに[Replace]関数で18行記述していますが、もっと簡単にできる方法がありましたら教えてください。

回答No.7

cj_mover · ベストアンサー

＃６、ｃｊです。
＃６の補足欄見ました。
ご提示のコードを読み込んで、
「フラ盤」の棋譜データからサンプルを作り、
テストしました。

ご提示のコードで試したところ、
なんのストレスもなく、正しく動作することを確認しました。
現在のコードのままでもいいような気もしていますが、
冗長な感じが気になるのも理解できるところです。

今回の課題は「もっと簡単に」ということでしたから、
持駒の漢数字置換に関連した部分に限って、
簡単にする書き方を提示してみます。

その前にプロシージャの構成を整理しておきます。

■データ読込・整形
　●棋譜ファイル
　　▲盤面
　　　　行位置の取得
　　　　盤面要素を　出力用フォーマットに置換
　　　　最下行位置取得
　　▲持駒
　　　　行位置の取得
　　　　タイトル削除
　　　　持駒DATAを配列化
　　　　持駒要素の漢数字を半角算用数字へ置換
　　▲指手
　　　　行位置の取得
　　　　最下行から　何手詰めか取得
　　　　指手配列を　手数分で再定義
　　　　指手要素を　出力用フォーマットに置換
■データ出力
　●配置DATA
　●持駒
　●正解

ここで示すのは、▲持駒セクションの処理全体です。
構成を変えることで簡単にする可能性が増すので、
セクションごと提示します。
＃６補足欄のコードでいうと、
　　ER = Range("A1").End(xlDown).Row
と
　　C = 1
の間をすべて入れ替えると動くように書いています。

' ' ・
' ' ・
' ' ・
' ' ER = Range("A1").End(xlDown).Row
' '　　　　　■　↓　■
　　Const 漢数字1_9 = "一二三四五六七八九"　　'　　宣言部に転記してください
　　Dim arrS As Variant　　'　　宣言部に転記してください
' ' 持駒――――――――――――――――――――――――――――――
' ' 先手の持駒　行位置の取得
　　MB = Range("A:A").Find(What:="先手の持駒", LookAt:=xlPart).Row
' ' "先手の持駒："　タイトル削除
　　持駒DATA = Mid$(Cells(MB, "A"), 7)
' ' "十　"を基準に、単独の漢数字'十'を半角算用数字'10'に置換
　　持駒DATA = Trim$(Replace(持駒DATA & "　", "十　", "10　"))
' ' 漢数字'十'を半角算用数字'1'に置換
　　持駒DATA = Replace(持駒DATA, "十", "1")
' ' 漢数字'一～九'を半角算用数字'1～9'に置換
　　For N = 1 To 9
　　' ' 見つかったものだけを置換する
　　　　If InStr(持駒DATA, Mid$(漢数字1_9, N, 1)) > 0 Then 持駒DATA = Replace(持駒DATA, Mid$(漢数字1_9, N, 1), CStr(N))
　　Next N
' ' Split()関数で持駒DATAを文字列配列に
　　arrS = Split("　" & 持駒DATA, "　")
' ' 出力用配列 [持駒] に転写
　　For 行 = 1 To UBound(arrS)
　　　　If Len(arrS(行)) = 1 Then arrS(行) = arrS(行) & "1"
　　　　持駒(行) = arrS(行)
　　Next 行
' '　　　　　■　↑　■
' ' 指手――――――――――――――――――――――――――――――
' ' C = 1
' ' ・
' ' ・
' ' ・

切り分けてから置換より置換してから切り分ける方が効率いいです。

行位置の取得　の部分はFind メソッドを簡単に書いていますが、
この部分は、ご提示の方法そのままでもいいと思います。

Split()関数はＶＢＡの中でもかなり優秀な関数なので採用しましたが、
Excel2000よりも前のバージョンには用意されていません。

ところどころ、正規表現を使うと簡潔にできる部分もあります。
将来的に検討してみるのもいいと思います。

セル範囲に配列を出力する方法として、
例えば、
　v = Array("名前", Date, 980)
　Range("A1").Resize(, 3).Value = v
のように配列まるごと出力することも可能です。
完結にまとめるには有力な手法ですから、
色々試してみるといいかも知れません。

以上、参考まで。

お礼

重ねての丁重な回答をいただきましてありがとうございます