|
CommandButton1がActivateになるとCommandButton1の表示が消えてしまう問題
を解決しようと、いろいろやってみたのですが解決方法が見つかりません。
この様な状態になる原因と解決法をアドバイス頂けると助かります。
よろしくお願いします。
Excel 2007 Windows XP SP3
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'"a1"にOldKeyCodeを保存
If Range("a1").Value = KeyCode Then '同じキー押しが2度続いたか?
If KeyCode = Asc(vbCr) Then Me.CommandButton1.Activate
'If KeyCode = Asc(vbCr) Then Me.CommandButton1.Select
'If KeyCode = Asc(vbCr) Then Me.CommandButton1.Verb
'CommandButton1.Visible = True
End If
Range("a1").Value = KeyCode 'OldKeyCodeの更新
End Sub
|
|