| |
ponpon様、
的確かつ迅速なご回答、ありがとうございます。
正に、知りたかったのはNumberFormatLocalプロパティでした。
ですが、2つ目の表現形式をそのまま文字列化したデータがTextプロパティで
取得できることを教えていただき、こちらでやりたいことができました。
# 恥ずかしながら、このようにTextが使えることを知りませんでした。
今回のケースでは、以下のように通貨記号の設定されたセルを引数にとるユー
ザー定義関数を定義することで、解決しました：
■ユーザー定義関数
Function GetCurrencyCode(Target As Range)
GetCurrencyCode = Left$(Trim(Target.Text), 3)
End Function
■利用方法
A1に設定されている通貨記号をB1の値として取得する場合のセルB1の値：
=GetCurrencyCode(A1)
本件、誠にありがとうございました。
▼ponpon さん：
>こんにちは。
>
>Sub test()
>
> MsgBox Range("A1").NumberFormatLocal
> MsgBox Left$(Range("A1").Text, 3)
>End Sub
>
>意味が違ってましたら、すみません。
|
|
ken
- 05/12/24(土) 14:42 -
