|
koshimizu さん、おはようございます。
>回答をいただきましたが、(StrConv関数で変換かける)と言うことが
>わかりません。
ということでしたので、こちらにもつけておきます。
でれすけさん提案のProperも同じ結果になります(まあ当たり前なんですけどね)。
標準モジュールに以下のマクロをコピペして、Testを実行してみてください。
===============
Sub Test()
Dim A$
A$ = kana2roma("ぎゃ")
'StrConvはVBの関数(引数の詳細などはVBヘルプを参照)
MsgBox A$ & "=>" & StrConv(A$, vbProperCase), _
vbInformation, "StrConv(A$, vbProperCase)"
'PROPERはEXCELのワークシート関数
MsgBox A$ & "=>" & Application.WorksheetFunction.Proper(A$), _
vbInformation, "WorksheetFunction.Proper(A$)"
End Sub
Function kana2roma(s1 As String) As String
'koshimizuさんが作成された関数の内容は知らないので
'実際にはここを置き換えてください。書いてください
kana2roma = "gya" '暫定結果表示用
End Function
こんな感じです。
|
|