質問: excelvbaでテキストボックスの表示形式を小数点第二位まで表示する方法 excelのプログラムで、テキストボックスに例えば、「10.00」や「10.50」など小数点第二位まで0であっても表示させる方法はありませんか? あまり複雑になるようなら特に必要なプログラムではないのですが。 回答よろしくお願いします。
回答: 値の元は何処からですか? 自分自身ですか? 値の元が違うなら、 no2さんが答えたように、 textbox2.text = format(textbox1.text, ""#."#0") ですが、自分自身で入力が終わってフォーカスが移動した時などなら private sub textbox1_lostfocus() textbox1.text = format(textbox1.text, "#.#0") end sub こうすることで、出来ます。 ただし、この #.#0は、 0の場合→ .00 となり 0.567822 → .56 となります。 0の場合→ 0.00 0.567822 → 0.56 としたい場合は、 0.00を指定します。 例 textbox1.text = format(textbox1.text, "0.00")