|
お世話になります。お教え下さい。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 3 Then
UserForm1.Show
End If
で ListBox付 userformを表示させ
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ActiveCell() = ListBox1.Text
Unload UserForm1
ActiveCell.Offset(0, 1).Activate
End Sub
keypress iventでセルに値を入れ次のセルに移るのですが
この様な単純な構文では問題ないのですが
ちょっと複雑になると
次のセルに移った途端にフリーズしてエラーになります。
エラー表示はアップデートを勧告されるのですが
アップデートすると他のファイルに問題が起こり
余りさわりたくありません
同じマクロを BeforeDoubleClick で書くと問題なく操作出来るので
操作上はKeyPressが使いよいのですが、KeyPress イベントには何か問題があるのでしょうか?
ヒントだけでもお教え下さい
excelは2000,windowsはXPです
|
|