Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11600 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15211】入力制限 miko 04/6/17(木) 15:01 質問[未読]
【15214】Re:入力制限 ちゃっぴ 04/6/17(木) 16:00 回答[未読]
【15237】Re:入力制限 miko 04/6/17(木) 17:57 お礼[未読]
【15215】Re:入力制限 IROC 04/6/17(木) 16:00 回答[未読]
【15211】入力制限
質問  miko  - 04/6/17(木) 15:01 -
引用なし
パスワード
   VBA初心者なのでよろしくお願いします。
UserForm上にTextBox1とTextBox2があります。TextBox1に数値を入力すると
TextBox2に入力した数値かける500の値が表示させたいです。そしてTextBox1に数値しか入力できないようにするにはどのようにすればよいでしょうか。もし数値以外が入力されたらメッセージボックスで「数値以外は入力できません」という表示をさせたいです。
よろしくお願いします
【15214】Re:入力制限
回答  ちゃっぴ  - 04/6/17(木) 16:00 -
引用なし
パスワード
   TextBoxのIMEModeプロパティをあらかじめ、「3-fmIMEModeDisable」に設定

テキストボックスのKeyPressイベントで、
数字以外を入力できない(KeyAscii = 0)ように
すればいいと思います。
【15215】Re:入力制限
回答  IROC  - 04/6/17(木) 16:00 -
引用なし
パスワード
   このようにできます。

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
　　If IsNumeric(TextBox1.Text) = True Then
　　　　TextBox2.Text = TextBox1.Text * 500
　　Else
　　　　MsgBox "X"
　　　　TextBox1.Text = ""
　　End If
End Sub
【15237】Re:入力制限
お礼  miko  - 04/6/17(木) 17:57 -
引用なし
パスワード
   ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11600 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free