ExcelでIDを変更するためのツールを作成する方法

質問

• Excelを使って、数字4～5桁のID番号を変更するツールを作成する方法について教えてください。
• 複数のIDを入力しても対応できるようにしたいです。
• 関数のみでツールを作成する方法や、VBやマクロを使用する方法について詳しく教えてください。

回答No.3

_Kyle · ベストアンサー

例えば、参考画像のように
　・$AA$3:$AB$23　の位置に対応表がある。
　・B3セルに変換前の文字列を入力する。
　・C3セルに変換後の文字列を表示する。
とします。
---------------------------------------------------------------------
●数式だけでやる場合（１度に変換する要素数は１０個以内）

　C3セル：結果を結合する
　　=REPLACE(CONCATENATE(N3,O3,P3,Q3,R3,S3,T3,U3,V3,W3),1,1,"")
　とする。

　D3セル：各要素を切り出す
　　=VALUE(REPLACE(LEFT($B3,FIND("†",SUBSTITUTE($B3&",",",","†",COLUMN()-COLUMN($C3)))-1),1,FIND("†",SUBSTITUTE(","&$B3,",","†",COLUMN()-COLUMN($C3)))-1,""))
　としてM3セルまで右方にフィル。

　N3セル：各要素を置き換える
　　=IF(ISERROR(D3),"",","&IF(ISNA(VLOOKUP(D3,INDEX(VALUE($AA$3:$AB$23),),2,0)),D3,VLOOKUP(D3,INDEX(VALUE($AA$3:$AB$23),),2,0)))
　としてW3セルまで右方にフィル。
---------------------------------------------------------------------
●VBA(ユーザー定義関数)を使う場合（要素数無制限）

下記のようなコードを設置して、
　C3セル
　　=sample(B3,AA3:AB23)
　とする。

'--------------------------↓　ココカラ　↓--------------------------
Function Sample(ByVal ogStr As String, ByVal myRng As Range) As String

　Dim myAry As Variant
　Dim myTbl As Variant
　Dim i As Long
　Dim j As Long

　myAry = Split(ogStr, ",")
　myTbl = myRng.Value

　For i = 1 To UBound(myTbl)
　　myTbl(i, 1) = CStr(myTbl(i, 1))
　　myTbl(i, 2) = CStr(myTbl(i, 2))
　Next i

　For i = 0 To UBound(myAry)
　　For j = 1 To UBound(myTbl)
　　　If myAry(i) = myTbl(j, 1) Then
　　　　myAry(i) = myTbl(j, 2)
　　　　Exit For
　　　End If
　　Next j
　Next i

　Sample = Join(myAry, ",")

End Function
'--------------------------↑　ココマデ　↑--------------------------

Excel2003で動作確認。以上ご参考まで。

お礼

ありがとうございました。
後日試してみます。