ＶＢＡの関数の作成

ＶＢＡの関数の作成

標準モジュールの使い方

• 空白を削除する関数
• フリガナをつける関数
• ★（ホシ）を表示する関数

関数の作成

標準モジュールに追加

blankoff

空白を削除　

ソースコード

Function blankoff(buf As String)
     buf = Replace(buf, "　", "")
     buf = Replace(buf, "  ", "")
     buf = Replace(buf, " ", "")
     blankoff = buf
End Function

フリガナ

Function フリガナ(buf As String, sw As Integer)
     If sw = 0 Then フリガナ = Application.GetPhonetic(buf)
     If sw = 1 Then フリガナ = StrConv(Application.GetPhonetic(buf), vbHiragana)
End Function

★（ホシ）

Function ★(s As Integer)
  fs = ""
  For i = 1 To s
      fs = fs & "★"
  Next i
  ★ = fs
End Function

実行

関数として登録

=blankoff(C8)

=フリガナ(E8,0)

=フリガナ(E8,1)

=★(D8)