Excel vbaでのユーザー入力後のハイライトカラーの変更

Question

オペレータがウェイトを入力する列Fの次の空きセルを見つけることができるコードがあります。

私は、入力を行う必要がある場所に近い範囲のセルを強調表示するのを手伝っていました。これは、フィルタリングなしで入力が正しいことを確認するのに役立ちます。

私は以下のコードでそれを行うことができますが、セルが書き込まれた後にハイライト表示を削除しようとしていますが、失敗しています。私は「Do Until」のアプローチを試みましたが、満足できませんでした。コードは実行されますが、ユーザーが値を追加するとハイライトが削除されません。

私もWait関数を使ってみましたが、Excelは完全にフリーズしています（値は変更できません）。また、私はデバッグを実行し、ランダムな反復を使用してCellの値を変更すると、私のコードが動作します。サーBruceWayneとして

'Find the last non-blank cell in column F (aka, column 6) 
    ' We will add i rows to make the ith blank (in the for loop) 
      PreFree = Cells(Rows.Count, 6).End(xlUp).Row 

      NextFree = PreFree + 1 

    ' Select Cell for manual input 
      Range("F" & NextFree).Select 


      'Do Until emptyWeight = False 
      If ThisWorkbook.Sheets("Input").Range("F" & NextFree) = "" Then 
      emptyWeight = True 
      Range(Cells(NextFree, "C"), Cells(NextFree, "F")).Interior.Color = RGB(181, 244, 0) 
      Else 
      Range(Cells(NextFree, "C"), Cells(NextFree, "F")).Interior.Color = RGB(255, 255, 255) 
      emptyWeight = False 
      End If 

Answer 1

あなたはWorksheet_Changeイベントでこれを行うことができ、と述べました。

Private Sub Worksheet_Change(ByVal Target As Range) 

' Declare and prepare the intersection & union of ranges 
Dim rIntersect As Range 
Set rIntersect = Intersect(Target.Offset(1, 0), Sheets("YourSheet").Range("F:F")) 

' Exit this event if there is no change in column f 
If rIntersect Is Nothing Then Exit Sub 

' Include TargetCell 
Set rIntersect = Union(Target, rIntersect) 

' Declare the 'each range', in case the user will paste values into column f 
Dim rEach As Range 

' Will loop through each cell that made a change in column f 
For Each rEach In rIntersect 
    ' Give default color. 
    rEach.Interior.Color = RGB(255, 255, 255) 

    ' And test if the value <blank>, sets color if it is true. 
    If rEach.Value = "" Then rEach.Interior.Color = RGB(181, 244, 0) 
Next 

End Sub 

これはうまくいきます。がんばろう！ OPへ

、ここにコードを貼り付け