|
sheetの特定セルをダブルクリックしてフォームを下記の記述で表示させています。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim CEL
CEL = Left(Target.Address, 5)
If CEL = "$Q$18" Or CEL = "$Q$19" Or CEL = "$Q$20" Then
※実際には40箇所を設定しています※
UserForm1.Show
Else
End If
End Sub
フォーム内のボタンでsheetにデータを入力するなどの処理をさせてます。
また閉じるボタンを作り、閉じるときに下記の記述で
Private Sub CommandButton1_Click()
Unload UserForm1
ActiveCell.Offset(1, 0).Select
End Sub
うまく下のセルに移動してくれるようになったのですが…
フォームを表示させたあと何もせずに、フォーム右上の×でフォームを閉じると
セルが選択された状態でセル内のカーソルが点滅しています、
これを通常のセルの選択状態に戻す、または下のセルに移動させるには
どうしたらよいのでしょうか?、ご指導、宜しくお願い致します。
|
|