ユーザー定義書式を表示させたい

対象：Excel97,Excel2000,Excel2002,Excel2003

似たようなことですが、
セルに設定されている表示形式を別のセルに表示させたい
という要望をセルの書式設定の重要性に気づいた方からいただくことがあります。

また、セルの情報を取得できるCELL関数を知った方からは、
CELL関数の第1引数に「"format"」を指定すると、第2引数で指定されたセルの表示形式が調べられるみたいですが、ユーザー定義書式を表示させるにはどうすればいいのでしょう？
というご質問をいただくことがあります。

［スポンサードリンク］

残念ながらCELL関数で取得できる書式の情報は、「D4」「C0-」というコードなので、このコードが何を表しているのかを調べなければなりません。

［セルの書式設定］ダイアログ−［表示形式］タブの［分類］欄で「ユーザー定義」を選択したときと同じ情報を取得するには、数式を表示させるユーザー定義関数と非常によく似たコードをVBAで書いてしまう方が簡単です。

▼表示形式を表示させるユーザー定義関数
Function ViewFormat(objCell As Range) As String

ViewFormat = objCell.NumberFormatLocal

End Function

上記のコードをVBE（Visual Basic Editor）を起動して標準モジュールに貼り付ければ、通常のワークシート関数と同様に使えます。

例えば、A1セルに「#,##0.0;[赤]#,##0.0」という書式が設定されているときに、B1セルに「=ViewFormat(A1)」とすれば、B1セルには「#,##0.0;[赤]#,##0.0」と表示されます。

Excelで業務アプリを作ったようなときに、セルに設定されている表示形式を印刷しておきたいということもあるでしょう。そんなときなどに使ってみてください。

関連語句

自作関数

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「ユーザー定義関数」の記事一覧