Excelで超シンプルなはがき印刷ソフトを作ってみよう

'データのセット
Private Sub ExPrintDataSet(drow As Long)
    Dim i As Integer
    Dim n As Integer
    Dim dat As String
    Dim s As String
    
    '宛先郵便番号
    n = 1
    dat = ActiveSheet.Cells(drow, 3)
    For i = 1 To 8
        s = Mid(dat, i, 1)
        If s <> "-" And s <> "－" Then
            Sheets("はがき表").Shapes("〒" & n).TextFrame.Characters.Text = s
            n = n + 1
        End If
    Next
    
    '住所1、住所2
    dat = ActiveSheet.Cells(drow, 4)
    s = ActiveSheet.Cells(drow, 5)
    If s <> "" Then
        dat = dat & vbCrLf & s
    End If
    dat = Replace(dat, "-", "│")
    dat = Replace(dat, "－", "│")
    Sheets("はがき表").Shapes("宛先住所").TextFrame.Characters.Text = dat
    
    '名前
    dat = ActiveSheet.Cells(drow, 6) & " " & ActiveSheet.Cells(drow, 7)
    Sheets("はがき表").Shapes("宛先名前").TextFrame.Characters.Text = dat
End Sub