Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48819 / 76736 ←次へ | 前へ→

【32846】Re:セルに設定された書式(表示形式)の取得方法について
お礼  ken  - 05/12/24(土) 14:42 -

引用なし
パスワード
   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
>
>意味が違ってましたら、すみません。

0 hits

【32842】セルに設定された書式(表示形式)の取得方法について ken 05/12/24(土) 12:07 質問
【32843】Re:セルに設定された書式(表示形式)の取得... ponpon 05/12/24(土) 12:17 発言
【32846】Re:セルに設定された書式(表示形式)の取得... ken 05/12/24(土) 14:42 お礼

48819 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free