Excel VBA質問箱 IV

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

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


42493 / 76732 ←次へ | 前へ→

【39307】Re:コマンドボタンでEnterを押して処理さ...
発言  漂流民  - 06/6/22(木) 3:22 -

引用なし
パスワード
   ▼mutu さん:
こんばんわ

確認したいのですが、使用されているのはエクセルVBAですか?

バージョンの違いなどには詳しくないのですが、
>Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
は”VB”のデフォルトのコマンドボタンのKeyDownイベントだと思うのですが?
”VBA”ではデフォルトで
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
となると思うのですが?

あと、
>    .Box1.Value = Year(buf)
>    .Box2.Value = Month(buf)
のBox1、Box2はテキストボックスということですか?
”VB”のデフォルトでは”Text1”、”VBA”のデフォルトでは”TextBox1”だと思うのですが?
(オブジェクト名はデフォルトを使用するようにして下さい)

OS、Office、(VBを使用しているようであれば)VB、のバージョンを記載してください。
同じ環境の回答者が答えられると思います。

とりあえず、私の環境では

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    CommandButton1_Click
  End If
End Sub

Private Sub CommandButton1_Click()
  With Sheets("Sheet1")
    .TextBox1.Value = Year(Date)
    .TextBox2.Value = Month(Date)
    .Select
  End With
End Sub

は問題なく動作します。

2 hits

【39296】コマンドボタンでEnterを押して処理させ... mutu 06/6/21(水) 16:58 質問
【39307】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/22(木) 3:22 発言
【39316】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 11:12 質問
【39319】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/22(木) 11:28 発言
【39320】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 11:36 質問
【39328】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/22(木) 12:02 発言
【39329】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 12:19 質問
【39336】デバックで順を追ってみたのですが mutu 06/6/22(木) 13:33 質問
【39338】Enterキー押下時の処理で他の方法はあり... mutu 06/6/22(木) 14:07 質問
【39358】Re:Enterキー押下時の処理で他の方法はあり... Jaka 06/6/22(木) 15:54 発言
【39365】Re:Enterキー押下時の処理で他の方法はあり... mutu 06/6/22(木) 16:43 質問
【39376】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 1:03 発言
【39383】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/23(金) 9:14 質問
【39395】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/23(金) 10:29 発言
【39398】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/23(金) 11:36 お礼
【39421】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/23(金) 16:32 発言
【39436】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 22:31 発言
【39520】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/26(月) 9:26 お礼
【39435】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 22:19 発言

42493 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free