' [149.xls]



' [Module1] のコード
'★★☆　文字列から全角文字数をカウントする　☆★★

Option Explicit

Public 文字列 As String

Sub start()

    UserForm1.Show

End Sub

Sub 全角数(文字列 As String)
Dim 全角文字数 As Integer
Dim i As Integer

    全角文字数 = 0

    For i = 1 To Len(文字列)
    
        'Asc関数で全角文字を判定して結果を加算していきます
        If Asc(Mid(文字列, i, 1)) < 0 Or Asc(Mid(文字列, i, 1)) > 256 Then
            全角文字数 = 全角文字数 + 1
        End If
    Next i
    
    MsgBox "全角文字数は " & Format(全角文字数) & " 文字です"

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

    文字列 = TextBox1.Text

    'マクロに値（文字列）を引き渡します
    全角数 文字列

End Sub

Private Sub UserForm_Initialize()
        
    TextBox1.Text = "これは Macro で全角文字数を数えるプログラムです"
    Me.Caption = "テキストボックスの文字を適当に書き換えて下さい"

End Sub