コンボボックスのテキスト部分に数値だけを入力させたい (ID:88868)

名前

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

本文 コピペまでガードしたいなら、 Private Sub Combo1_Change() If IsNumeric(Combo1.Text) = False Then Combo1.Text = "" End If End Sub かな。