| |
▼ぴかる さん：
こんにちは、上で私の提示したもの試されましたか？
見た目はともかく、仰っている内容は実現できていると思うのですが。
動作上どこに問題があるか分かれば対応できるかも知れません。
もし３．の時点でスクロールをしたくないというのであれば
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Row <> R And R <> 0 Then
Application.EnableEvents = False
Cells(R, .Column).Select
Application.EnableEvents = True
Else
R = .Row
ActiveWindow.ScrollRow = 1
If R > 15 Then
ActiveWindow.SmallScroll Down:=R - 15
End If
End If
End With
R = 0
End Sub
でIf文内で動作条件を分ければ良いのではないでしょうか。
>３．の際、Application.EnableEvents = Falseを使って、２回目のelectionChangeを無効にする事は出来たのですが、それ以降のイベントを有効にするトリガが浮かばない状態で困っています。
セル移動によるキャンセル直後にApplication.EnableEvents = Trueで良いのではないでしょうか
>お世話になります。色々と皆様のアドバイスを基にトライしてみましたが、なかなかいいアイデアが浮かびません。フローチャートが描けない状態です。自分がどうの様にしたいのか伝わっていない様ですので、動作説明の方をさせて頂きます。
>
>１．入力後のセル移動は、下方向に設定
>２．１６行目以降は、アクティブセルを画面の真ん中ぐらいの表示位置に固定
>３．ある行位置からは、任意行位置にジャンプ
> ４５→５８ ５８→４７ ５７→４６ ４６→５９
>
>３．の際、Application.EnableEvents = Falseを使って、２回目のelectionChangeを無効にする事は出来たのですが、それ以降のイベントを有効にするトリガが浮かばない状態で困っています。
>始めに質問させて頂いた時から、ここが？？？でして・・・
|
|
SS
- 09/11/25(水) 12:53 -
