Excel２０００の表示形式で・・

Excel2000の　セルの表示形式のユーザー定義について教えてください。
桁数の多いセルの表示単位を千にするには、#,#,　または#,###,などでできますよね。
それでは、表示単位を　万や百にはできないのでしょうか？
よろしくお願いします。

No.1 回答者： a-kuma 回答日時： 2001/04/24 21:13

> 表示単位を　万や百にはできないのでしょうか？

できません。ユーザー定義の書式に使える文字とその意味は
予め決まっています。ヘルプを見ると書いてありますが、

> カンマを 1000 単位の区切り記号として表示したり、数値を 1000 で割って
> 小数部を四捨五入して表示するには、カンマを指定します。

とあります。

因みに、百万単位であれば #,, (カンマをふたつ) でできます。

この回答へのお礼

早速の回答ありがとうございました。
できないことが分かってすっきりしました。
グラフの目盛の所では万単位とかができるようなので、もしかしてできるカモと思ったのです。

お礼日時：2001/04/24 21:20

No.2 回答者： yosshii24 回答日時： 2001/04/24 22:31

a-kumaさんの続きですが、千単位ならＯＫですよね。

#,"千"(カンマ+ダブルクォーテーション+千+ダブルクォーテーション)
職場の予算の収支予定とか、千円単位なので、私はこれで千円単位で表現しています。（100,000を100千円として）
※百と万は、カンマの位置関係でだめでした。

この回答へのお礼

ありがとうございました。
やっぱり百とか万とかはダメなんですね。

お礼日時：2001/04/25 00:11

No.3 ベストアンサー 回答者： nishi6 回答日時： 2001/04/24 23:56

質問の主旨にあっていないかもしれませんが・・・・

１.例えば10000で割って、ユーザー定義で書式を#,###"万"にしては？
２．同じようですがユーザー定義関数です。入力と出力が異なっていれば使える？一旦変換すれば数値として使えません。
'=======================
'万円単位で表示する関数
'=======================
Public Function Tan100manen(vGaku As Long)
Application.Volatile
Tan100manen = Format(Int(vGaku / 10000), "#,#") & "万"
End Function

'=======================
'100円単位で表示する関数
'=======================
Public Function Tan100en(vGaku As Long)
Application.Volatile
Tan100en = Format(Int(vGaku / 100), "#,#") & "百"
End Function

３.Worksheet_Changeを使って・・・(大事なシートに使用しないで、新しいシートで試してください)
Sheet1に貼り付けてください。(モジュール)
Sheet1のＣ列に入力すると万表示するようにしてあります。
'************************************************
'ワークシートのC列に値の変更があった場合、万円表示にする
'************************************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ErrorTrp

Application.EnableEvents = False
If Target.Column = 3 Then
Target = Format(Int(Target.Value / 10000), "#,#") & "万"
End If
Application.EnableEvents = True

Exit Sub

ErrorTrp:
Application.EnableEvents = True
End Sub

この回答へのお礼

大変丁寧な回答、どうもありがとうございました。
関数＆ＶＢＡはあまり詳しくないのですが、一度トライしています。

お礼日時：2001/04/25 00:19