Excelで自己更新モジュールを作成できますか？

Question

私は単純化する必要があるデータを持つ列を持っています。

ColumnA  ColumnB 

Cyan   Blue 
Navy   Blue 
Forest  Green 

シアンについて最初に遭遇したときに何をすべきかを尋ねるモジュールを書きたいと思います。青を入力する必要があります。しかし、この後でシアンに遭遇するすべての事例について、対応する列Bは青色でなければならない。

Answer 1

Sub SIMPLIFY() 
    RECORD_COUNT = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 1 To RECORD_COUNT 
     If WorksheetFunction.CountIf(Columns("A"), Range("A" & i)) > 0 Then 
      RECORD_ROW = WorksheetFunction.Match(Range("A" & i), Columns("A"), 0) 
      If Cells(RECORD_ROW, 2) <> Empty Then 
       Cells(i, 2) = Cells(RECORD_ROW, 2) 
      Else 
       Cells(i, 2) = InputBox("Input Color for " & Cells(i, 1)) 
      End If 
     End If 
    Next i 
End Sub 

上記のコードをワークシートVBAにコピーします。 コードは列 "A"の変更を待って以前のデータをチェックします。 存在する場合は自動的に色を入力し、新しい場合は色を尋ねます。