|
お忙しいところ、
時間を割いて検証していただき、
ありがとうございます。
WindowsXP Professional ver2002 SP2
Excelは2000です。
PCは
Dell DIMENSION DIM4600C
Intel(R) Pentium(R) 4 CPU 2.80GHz
2.79GHz, 512 MB RAM
です。
Excel2000で動かせないと駄目なので、
2003にUpDateせずに解決できたらと思っております。
ちなみに、KeyDown(KeyPress,KeyUp)以外の方法でEnterを押したら、
シート移動させる(コマンドボタンをクリックさせる)方法はありませんでしょうか?
過去ログ探してみましたが、探せませんでした。
よろしくお願いします。
Private Sub CommandButton1_Click()
Sheets("Sheet2").Activate
ActiveSheet.CommandButton1.Activate
End Sub
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
Call bmove("Enter", 1)
Case vbKeyTab
Call bmove("Tab", 1)
End Select
End Sub
|
|