|
▼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
は問題なく動作します。
|
|