| |
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
こんな感じです。
|
|
りん
- 03/4/25(金) 4:19 -
