会社・法人登録免許税計算

見積書等に利用する際は、

１　登記、登録、特許、免許、許可、認可、認定、指定又は技能証明の事項について略称の追加

２　登記情報、登記事項証明書取得、議事録作成や交通費等の料金表マスターデータの追加

３　報酬基準マスターデータの追加

が必要なのかなと思います。

利用した機能

・ドロップダウンリスト

・IF関数、VLOOKUP関数

・e-Gov法令検索のXMLファイル

・VBA

Dim 下端 As Integer '元データの下端

'---------------------------------------------------------------------------------

Sub 漢数字を半角数字に置き換える()

Sheets("登録免許税").Select 'シートを選択する ※１

Columns("A:A").Copy

Range("B1").PasteSpecial Paste:=xlAll 'すべて貼り付け

Range("B1").Select '列見出し

ActiveCell.Value = "半角英数"

下端 = Range(Cells(1, 2), Cells(1, 2)).End(xlDown).Row '元データの下端検出

リプレスする

End Sub

'---------------------------------------------------------------------------------

'---------------------------------------------------------------------------------

Private Sub リプレスする()

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="一件につき", replacement:=""

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="一万八千", replacement:="18000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="一万五千", replacement:="15000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="十五", replacement:="15"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="一", replacement:="1"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="二", replacement:="2"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="三", replacement:="3"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="四", replacement:="4"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="五", replacement:="5"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="六", replacement:="6"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="七", replacement:="7"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="八", replacement:="8"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="九", replacement:="9"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="○", replacement:="0"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="万", replacement:="0000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="九千", replacement:="9000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="二千", replacement:="2000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="千分の", replacement:="1000/"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="千", replacement:="000"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="十", replacement:="0"

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="・", replacement:="."

Range(Cells(2, 2), Cells(下端, 2)).Replace what:="円", replacement:=""

End Sub