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

名前

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

本文 特攻隊長まるるうさん、通りすがりさん、あぬひさんありがとうございました。 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 これで解決しました。 ありがとうございました。