Ｐａｇｅ 757 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックスに数字のみの入力制限 タカ 03/2/17(月) 13:05 ┣Re:テキストボックスに数字のみの入力制限 BOTTA 03/2/17(月) 13:23 ┃ ┗Re:テキストボックスに数字のみの入力制限 タカ 03/2/17(月) 13:53 ┃ ┗おまけ、このような方法もあります。 Jaka 03/2/17(月) 14:31 ┃ ┗Re:おまけ、このような方法もあります。 JuJu 03/2/17(月) 15:16 ┗追加質問：テキストボックスの文字を選択状態に タカ 03/2/17(月) 16:43 ┗Re:追加質問：テキストボックスの文字を選... つん 03/2/17(月) 16:56 ─────────────────────────────────────── ■題名 ： テキストボックスに数字のみの入力制限 ■名前 ： タカ ■日付 ： 03/2/17(月) 13:05 -------------------------------------------------------------------------
| シート上にに配置したテキストボックスに 数字以外の文字を入力できなくするには どうすればいいのでしょうか。 |
| タカさん、こんにちは。 >シート上にに配置したテキストボックスに >数字以外の文字を入力できなくするには >どうすればいいのでしょうか。 [#1021] が参考になると思います。 |
| ▼BOTTA さん： ありがとうございます。 まさにそのまんま過去にあったのですね。 今後はよく過去スレみてから投稿します。 BOTTAさん、ありがとうございました。 |
| こんにちは。 抜けているキーも有るかもしれないけど．．．。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Not (KeyCode = 8 Or KeyCode = 46 Or KeyCode >= 37 And _ KeyCode <= 40 Or KeyCode >= 96 And KeyCode <= 105) Then KeyCode = 0 End If End Sub |
| みなさん、こんにちはぁ 旧目安箱に書いた覚えがあるので、こっちも見てねぇ 知名度低いですけど^^;;;; http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=5;id=FAQ |
| Jakaさん、JuJuさんありがとうございます。 いろいろな方法があるのですね。 追加の質問なのですが、テキストボックスを複数作って リターンキーなどでフォーカスを移動した後(TextBox2.Activate) 移動先のテキストボックスにあらかじめ入っていた文字を選択状態に することって可能でしょうか。 キーボードで操作する場合、入っている文字をいちいち消すのが 操作的に手間なので。 度々すみませんが、よろしくお願いいたします。 |
| タカ さん、こんにちは >リターンキーなどでフォーカスを移動した後(TextBox2.Activate) >移動先のテキストボックスにあらかじめ入っていた文字を選択状態に >することって可能でしょうか。 >キーボードで操作する場合、入っている文字をいちいち消すのが >操作的に手間なので。 こんな感じかな〜 Private Sub TextBox1_Enter() With TextBox1 .SelStart = 0 .SelLength = Len(.Value) End With End Sub リターンキーやタブキーで移動したときは上手く行くけど、マウスで直接クリックした場合はダメみたい・・・ |