Excel (VBA)

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

 
(指定なし : 指定なし)
Worksheet_SelectionChange で直前のSelectionのセル範囲の取得は可能ですか?
投稿日時: 22/05/23 20:57:43
投稿者: taichi

選択中のセル範囲に色を付け、次に移動した時に直前で色を付けていたセルを
.Interior.ColorIndex = xlNone にし、次に選択したセル範囲に色を付けたいのですが、
直前に選択していたセル範囲の取得方法が分かりません。
 
よろしくお願いいたします。

回答
投稿日時: 22/05/23 21:31:07
投稿者: はるき

下のコードを試してみてください。
 
Option Explicit
  Dim RngA As Range, RngB As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
  Application.EnableEvents = False
    Set RngA = Selection
    RngA.Interior.ColorIndex = 5
    If Not RngB Is Nothing Then RngB.Interior.ColorIndex = xlNone
    Set RngB = RngA
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

投稿日時: 22/05/23 21:44:37
投稿者: taichi

はるき さん ありがとうございます。
希望通りの動きです。
こんな短いコードでできるのですね。
感謝!感謝!