Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
RE.「指定したセルの移動をマクロにしているがセルの位置を色付けに」の「園 日暮」さんへ
投稿日時: 18/09/02 14:48:12
投稿者: WinArrow
投稿者のウェブサイトに移動

対応策を考えましたので、一応掲示しておきます。
 
条件付き書式は、設定しておきます。
 
【標準モジュール】に
Option Explicit
 
Public CellTBL, Tx As Long
 
Sub cmdBTN()
    CellTBL = Split("J2,J3,J4,J5,J6,L2,L3,L4,L5,H1", ",")
    Range(CellTBL(0)).Select
End Sub
 
【Sheet1モジュール】に
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    For Tx = LBound(CellTBL) To UBound(CellTBL)
        If CellTBL(Tx) = Target.Address(0, 0) Then
            If Tx < UBound(CellTBL) Then
                Me.Range(CellTBL(Tx + 1)).Select
            End If
        End If
    Next
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = True
End Sub
 
※セルに値を入れないと 次のセルにはカーソルは移動しません。
 
 
 

投稿日時: 18/09/07 22:09:22
投稿者: WinArrow
投稿者のウェブサイトに移動

とりあえず、閉じます。