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