| |
okb さん、Jakaさん、おはようございます。
>かなり、解決しました。
>>入力し易くするため、あらかじめRANGEを選択していたとき、イベントが発生しないようなんですが、どうすれば発生させることが出来るでしょうか？
>これが、解決しません。
SelectionChangeイベントはセルの選択に変化が起こったタイミングで
発生しています。
よって、Jakaさんは、
>ブックオープン時に適当なセルを選択してから、再度入力する所を選択しなおせばいい
>と思います。
というようにコードの中でセルの選択に変化を与えるコードを書いてみては？
とおっしゃったのですよ！！
で、そのコードをどのようにどこに記述するかは、このご質問では、
はっきりとは記述できないんです。
例えば、シートの選択を切り替えたとき、アクティブなセルが
>> If Target.Count = 1 And Target.Row > 16 Then
>> If Target.Column = 6 Then
この範囲だったときにはイベントを実行させたいのであれば、
Private Sub Worksheet_Activate()
Dim rng As Range
Set rng = ActiveWindow.RangeSelection
Range("a1").Select '範囲外のセルを一度選択する
rng.Select '元に戻す
End Sub
とすれば、SelectionChangeイベントは発生します。
ブックをオープンしたときにというのであれば、
同じようなコードを
Workbook_Openイベントにて記述する事になります
|
|
ichinose
- 05/4/9(土) 9:38 -
