|
▼fryday さん:
>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
'ここらへんで
Cancel = True
> ※実際には40箇所を設定しています※
> UserForm1.Show
> Else
> End If
>End Sub
>
>フォーム内のボタンでsheetにデータを入力するなどの処理をさせてます。
>また閉じるボタンを作り、閉じるときに下記の記述で
>
>Private Sub CommandButton1_Click()
>Unload UserForm1
>ActiveCell.Offset(1, 0).Select
>End Sub
>
>うまく下のセルに移動してくれるようになったのですが…
>
>フォームを表示させたあと何もせずに、フォーム右上の×でフォームを閉じると
>セルが選択された状態でセル内のカーソルが点滅しています、
>これを通常のセルの選択状態に戻す、または下のセルに移動させるには
>どうしたらよいのでしょうか?、ご指導、宜しくお願い致します。
> ※実際には40箇所を設定しています※
これは・・全部Or でつないで書いてるんでしょうか?
Leftで切り出すのではなくて
他の方法でチェックしたほうが良いのでは?
Intersect とか。
|
|