テキストボックスの制御について (ID:88310)

名前

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

本文 TextBoxでもできるかも Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Call ConvText(Text1) End If End Sub 'TextBoxを参照渡しすることで汎用性を持たせる Private Sub ConvText(ByRef vText As TextBox) Dim fmt As String With vText fmt = String(.MaxLength, "0") .Text = Format(.Text, tmp) End With End Sub