|
かみちゃんさん
ご回答ありがとうございます。
choose関数ですが、引数の最大は29個ではありませんか?
>Sub Test()
> Dim Str1, Str2, Str2_Tmp As String
> Dim KaKuSu As Integer
>
> Str1 = "ヤマダタロウ"
> 'Str1を半角変換する。
> Str2 = StrConv(Str1, vbNarrow)
> '画数の合計用変数をクリア
> KaKuSu = 0
> '文字列を1文字ずつ取り出す
> For i = 1 To Len(Str2)
> Str2_Tmp = Mid(Str2, i, 1)
> '画数を取得する。
> 'Str2_Tmpの文字コードを取得する。
> 'たとえば、半角のアは、177が返る。
> 'Choose関数を使って、各文字の画数を取得する。
> 'Choose(文字コード-176,A,B,C,D....)
> 'Aはアの画数2、Bはイの画数2、Cはウの画数3、Dはエの画数3....
> 'Choose関数の引数は、すみませんが記述してください。
> KaKuSu = KaKuSu + Choose(Asc(Str2_Tmp) - 176, 2, 2, 3, 3...)
> Next
> MsgBox KaKuSu
>End Sub
|
|