Excel右カーソル移動の順番がセル結合時に変になる。

Question

カーソル移動を右へ設定します。
この状態で、添付Excel画面にて1から順番に入力し4入力でWorksheet_SelectionChangeでカーソルを5へ飛ばしました。
その後に、5入力後エンターを押すと2へ飛んでしまう。6へ飛ぶのが正常。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lRow    As Long
    Dim lMinCol As Long
    Dim lMaxCol As Long
    Dim MyRange As Range
    lMinCol = Range("C1:F1").Column
    lMaxCol = lMinCol + Range("C1:F1").Columns.Count - 1
    If Target.Column <= lMaxCol Then
        Exit Sub
    End If
    Cells(5, 3).Select
End Sub

試したこと。
結合セルを解除すると正常に6へ飛ぶ。
環境。
Windows10Pro(64bit)
Excel2010(V.14.0.6023.100)32ビット
気になること。
この様になるのは私の環境だけでしょうか。
何か対策はあるでしょうか。

Comments

[ttyp03]

私の環境(Office365)でも再現しました。
なんでしょうね、これ。

[radames1000]

Tabキーでも同じ動きをしますね。Office2016で再現してます。

Answer 1

解決済ですが、面白そうなテーマなので考えてみました。

ですが、
1）エンターキー押下で横移動
2）F2セルの次はCセルへ移動
以外の説明がないので、
他のセルの時はどうしたいか分かりませんが、
「C2:F2とC5:F5のセル範囲以外は選択させない。」
という条件をこちらで勝手に追加してで考えてみました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Me.Range("C2:F2,C5:F5").Select
    Application.EnableEvents = True
End Sub

まぁ、こういうことはマクロを使わなくても、
入力したいセル以外は選択させないように、
シートの保護を使えばいいかと思いますが。。。

Comments

[ad.sys.soleil]

有難う御座います。
アイディアは出るものですね。関心しました。
今後の参考にさせて頂きます。

Answer 2

Excel2013 VBA でENTER後のセルの移動を右方向に設定しているのに，左斜め上のセルに移動してしまう。

Microsoftのコミュニティにも同様事象がありましたが、対症療法しかなさそうです。

①結合を解除

②結合解除ができないなら、結合セルの前に一列ダミーの列を置き、幅を限りなく狭くして事実上見えなくする。
（非表示で済めが一番良いのですが、非表示にしてしまうと、選択されなくなるため、D列の判定に引っかからなくなる）

---

荒業ですが

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lRow    As Long
    Dim lMinCol As Long
    Dim lMaxCol As Long
    Dim MyRange As Range
    lMinCol = Range("C1:F1").Column
    lMaxCol = lMinCol + Range("C1:F1").Columns.Count - 1
    If Target.Column <= lMaxCol Then
        Exit Sub
    End If
    Cells(6, 3).Select
    Application.SendKeys "{UP}"
End Sub

Comments

[ad.sys.soleil]

有難う御座います。
最終手段はこれかなと思っておりました。

[radames1000]

追記しましたのでお試しください。

[tosi]

-ミスキャンセルします-

[ad.sys.soleil]

有難う御座います。
何故か私の環境ではEnter後にUP部でループが発生しました。
取り合えず一番スマートな此方で対応したいと思っています。
>結合セルの前に一列ダミーの列を置き

Answer 3

何が原因かはよくわかりませんでしたが、次のようなコードにしたら発生しませんでした。

Private Sub worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 5 Then
        Cells(5, 3).Select
    End If
End Sub

Comments

[radames1000]

Target.Column > 6 でしょうか。これでも発生しました（Office2016）

[ttyp03]

あ、すいません、6でしたね。
1列見間違えてました。

[ttyp03]

そして確かにダメでした。
そうなると結合セルに到達するとよくない動きになるみたいですね。

[ad.sys.soleil]

ご回答有難う御座います。お手数かけまして申し訳けありせん。
>そうなると結合セルに到達するとよくない動きになるみたいですね。
同じく通常セルと結合セルの違いでイベント部不具合が出ている気がしています。

Answer 4

というか普通に設定できるよ入力順
決めた順序でアクティブセルを移動したい：Excelの基本操作

追記
質問者様のコードの場合フォーカスが当たった瞬間にイベント発生します
("F4"が選択した場合か"F4"セルから移動した場合にしか感知できない)
どうやって処理しても"F4"セルから移動した場合は全て"C5"セルに移動してしまいます。
その為通常のExcel設定での入力順を決める方法をお伝えしたのですが...

もしVBAで行うのなら"F2"指定セルが変更した場合のイベントに変更して
("F2"セルを含む状態でEnterが押された場合)
このような処理になります。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F2")) Is Nothing Then
        Application.EnableEvents = False
        Range("C5").Select
        Application.EnableEvents = True
    End If
End Sub

ただ複数セル選択してその中に"F2"があっても処理が動きます。
それをさせたくない場合「Target.Cells.Count = 1」を条件に追加して下さい。

Comments

[ad.sys.soleil]

有難う御座います。
別の解決方法と言う事で参考にさせて頂きます。

[kuma_kuma_]

いや気になったんだけど
> Worksheet_SelectionChange
> Cells(5, 3).Select
セルの選択範囲の変更時にさらに選択範囲(位置)変更していますよね？
下手すると無限ループになりませんか？
せめて
Application.EnableEvents = False
でイベントキャンセルしないと...

[ad.sys.soleil]

If Target.Column <= lMaxCol Then
　Exit Sub
を入れて入るので無限ループにはならず2回Callが掛る感じですね。
イベント中のApplication.EnableEvents=Falseで全イベントですか････
Application.EnableEvents = False
Cells(5, 3).Select
Application.EnableEvents = True
この様な感じになると思いますが変わらないですね。

[kuma_kuma_]

基本的にWorksheet_SelectionChangeで行うのが間違いです。
質問者様の処理はあくまで
「"F2"でEnter押したら"G2"に移動する」という前提が付きます。
ではふつうに"G2"を選択したらどうなりますか？
カーソル移動の方向が「隣のセル」ではなく「下のセル」と設定していた場合は？
動かなかったり、変な動きをします。
それに2重ループで済めば良いですが作り方を間違えると
永久ループで止まらなくなりますよ。

[ad.sys.soleil]

相当数Worksheet_SelectionChangeを使ってこんな感じで動かしています。特別に問題ないです。プログラムチェックを適正にやれば良いだけの話では････

[kuma_kuma_]

> プログラムチェックを適正にやれば
うん気を付けてね。
この永久ループ起こすとExcelファイルの破損とかWindowsのシステムダウン起こすから。