| |
▼mutu さん：
こんばんわ
確認したいのですが、使用されているのはエクセルＶＢＡですか？
バージョンの違いなどには詳しくないのですが、
>Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
は”ＶＢ”のデフォルトのコマンドボタンのKeyDownイベントだと思うのですが？
”ＶＢＡ”ではデフォルトで
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
となると思うのですが？
あと、
> .Box1.Value = Year(buf)
> .Box2.Value = Month(buf)
のBox1、Box2はテキストボックスということですか？
”ＶＢ”のデフォルトでは”Text1”、”ＶＢＡ”のデフォルトでは”TextBox1”だと思うのですが？
(オブジェクト名はデフォルトを使用するようにして下さい)
ＯＳ、Office、(ＶＢを使用しているようであれば)ＶＢ、のバージョンを記載してください。
同じ環境の回答者が答えられると思います。
とりあえず、私の環境では
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
は問題なく動作します。
|
|
漂流民
- 06/6/22(木) 3:22 -
