Excelで年賀状印刷ソフトを作ってみよう

Step 9 住所の「-」を「|」に変換する

住所は縦書きの為、番地等に使われる横棒の「-」を縦棒「|」に変換します。
横棒には、半角と全角があるので2回に分けて検索しみつかれば変換します。

Homeへ > Excelでアプリケーションソフト > 年賀状印刷ソフト > Step9 住所の「-」を「|」に変換する


スポンサーリンク





シート画面

宛先面の印刷シート
「-」が「|」に変換されています。
はがき印刷結果

スポンサーリンク



下記のコードを追加してください。

'文字列の置き換え
'src: 元の文字
'fnd: 置き換え前の文字
'repl: 置き換え後の文字
Public Sub ExReplaceStr(src As String, fnd As String, repl As String)
    Dim delpos As Long
    Dim startpos As Long
    Dim before As String
    Dim after As String
    
    '検索開始位置
    startpos = 1
    '開始の検索結果位置
    delpos = InStr(startpos, src, fnd)

    Do Until delpos = 0
        '検索位置から前の文字
        before = Left(src, delpos - 1)
        '検索位置から後の文字
        after = Right(src, (Len(src) - (delpos + Len(fnd) - 1)))
        '置き換え後の文字
        src = before & repl & after
        '次の位置から繰り返す
        startpos = Len(before) + Len(repl) + 1
        delpos = InStr(startpos, src, fnd)
    Loop
End Sub




Homeへ > Excelでアプリケーションソフト > 年賀状印刷ソフト > Step9 住所の「-」を「|」に変換する

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved