|
▼Seraph さん:ありがとうございます。
>
>上記の数値をこの関数を使用すると
>
>?format(0.00001231, "0.0000")
>0.0000
>?format(1.202, "0.0000")
>1.2020
>?format(10012.3, "0.0000")
>10012.3000
>
>のようになります。
>
>もし、ちがってたら、具体的にどのように表現したいか
>教えてください。
ご教授どおり行うと上手くいきました。
しかし、以下の問題が発生したので
申し訳ありませんがよろしくお願いします。
ユーザーフォームを開いたときにフォーム上にある20個のテキストボックス
にシート上の[A1:A20]の値を初期値として表示させる為に、
あらかじめ
「TexBox1 のTag には 1 」
「TexBox2 のTag には 2 」
「TexBox3 のTag には 3 」・・・
という具合に、Tagの値が目的のセルの行番号に相当するように設定して、
Userform_Intializeに
Private Sub UserForm_Initialize()
Dim myC As Control
For Each myC In Controls
If myC.Tag <> "" Then
'Tagに設定値があれば
myC.Value = Format(Cells(myC.Tag, 1), "#0.##")
End If
Next
End Sub
というような記述してUserformのテキストボックスに表示させているのですが、
セルの値が整数「10」の場合、テキストボックスに表示される値が
「 10. 」と小数点が表示してしまいます。
整数はそのままで、小数点がある場合は
下2桁までの表示にしたいのですが
どうすればよいでしょうか?
|
|