エクセルで整数入力値を小数点にするユーザー定義

質問

エクセル2003です。
下記の入力をした場合、セル内が小数点になる方法を教えて下さい。
Sheet内で整数と小数点が必要なのですが、ツール→オプション→編集→小数点位置を固定の
チェックを入れると、A1セルに入力値1234が12.34となり問題はないのですが、A2セルに
入力値1234と入力した場合1234としたいのですが、ユーザー定義で設定できますか？

A1　「1234」を入力した場合→「12.34」となるのでOK
A2　「1234」を入力した場合→「1234」としたい　　　

小数点位置を固定のチェックを外し、入力値をB1に入力し、A1に数式「=A2/100」を入れる方法
もありますが、本来の入力セルが「AB」欄以降で画面を移動しないといけないので。

宜しくお願いします。

回答No.3

keithin · ベストアンサー

＞この状態でグラフ作成したら1234を認識しグラフが大きくなってしまいました。

方法１：添付図

たとえそうであっても、通常はあまり問題にはなりません。
実際に新しいエクセルを用意し、添付図のように数字を並べて、練習でグラフを描いてください。
「見せ掛けだけ１／１００した大きい数字」と「そのまま大きい数字」を主軸と第二軸に分けて、軸ラベルの数字も「見た目だけ１００分の１表示」にしてやることで、正しいグラフとして作成できます。

元々が１００分の１された数字と「大きい数字」を混載したグラフを描こうとしていたのですから、２軸に振り分けて作成する事自体は全く支障なく行えるはずです。

方法２：
工夫したり考えるのがメンドウで「実際に１／１００されている数字」がどーしても欲しいなら、次の手順の通りに「まっさらのエクセルに」作成してください。

手順：Ａ列の数字を１００分の１する
まっさらのシートを用意する
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　application.enableevents = false

　for each h in application.intersect(target, range("A:A"))
　　if isnumeric(h) then
　　　h = h / 100
　　end if
　next

　application.enableevents = true
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列やＢ列に数字を記入する。

＃こういう風に「具体的にこうします」という回答が欲しくても、あなたはご相談で「具体体にどこの範囲のセルでそうなって欲しい」のか説明していません。
てきとーに「Ａ１で」と質問したら、あとはご自分でどうにか出来ると思っていたのですから、必要に応じて工夫して実地で行ってください。

まぁ言わずもがなですが、「書式設定で１／１００されている数字を実際に作る」なんてマネは、全くできません。
１／１００されているように見せかけているだけの数字は、方法１のように下流側でもそうである前提で工夫して行うしか無いという事です。

＃更に余談
＞グラフ

今回のようにそもそも"無理を通したい"ご相談で特によく起こることですが、「どうしてそういう事をしたいのか」具体的な説明が最初からあれば、「それならこっちがイイでしょう」みたいなアドバイスも最初から寄せられて、こういう具合に二度手間三度手間する事も無かったというワケです。

お礼

回答有難う御座います。

＞方法１：添付図（グラフ）
グラフの２軸を使う方法はまったく思いつかなかったです。
勉強になりました。

＞方法２：（ＶＢＡ？）
本件の目的が達成できました。
ＶＢＡはほぼ解らないので、チョコチョコいじって勉強します。

質問の内容が不備で申し訳ありません。
今後の参考にさせて頂きます。

回答No.2

Nouble

VBAは使っていい環境ですか？
また、お使いになられますか？

補足をお願いします。

補足

早速の回答有難う御座います。

＞VBAは使っていい環境ですか？
あまりよくわからないですが、会社でＶＢＡを作成できる
方が居て、その方が作られたＶＢＡで自動作業を実施しています。
自宅のＰＣでも問題ないと思います。

＞また、お使いになられますか？
自分でＶＢＡを作成出来ないのですが、ＶＢＡで本件が解決
できるなら使わせて頂きたいです。

宜しくお願いします。

回答No.1

keithin

オプションのチェックを外し、片方のユーザー定義を
0"."00
と設定しておきます。

補足

早速の回答有難う御座います。

ユーザー定義で実施した結果、セルの表示は問題なく12.34と表示しました。
しかし、この状態でグラフ作成したら1234を認識しグラフが大きくなってしまいました。
セルを確認すると、表示は12.34ですがセル値は1234のままである事で大きくなった様です。

質問時にグラフに反映させる事を記載していませんでした。

他の定義で、グラフまで問題なく表示できる方法をご教授下さい。