小数点の位置を固定するには？ (ID:113091)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 text1.text="0.00" Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then: KeyAscii = 0: Exit Sub Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 3) & Right(Text1.Text, 2) & Chr(KeyAscii) If Left(Text1.Text, 1) = "0" Then: Text1.Text = Mid(Text1.Text, 2) Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2) & "." & Right(Text1.Text, 2) KeyAscii = 0 End Sub