如上图,查找A列的数据在D,F列是否存在,如果存在背景色变绿,如果不存在则A列的背景色变红. 直接贴上代码: Private Sub CommandButton1_Click() Call lookUpAToDF End Sub Public Sub lookUpAToDF() Dim a, d, f As Long 'Count of non-empty data in colum A,D,F a = Application.WorksheetFunction.CountA(Range("A:
Valery is a PE teacher at a school in Berland. Soon the students are going to take a test in long jumps, and Valery has lost his favorite ruler! However, there is no reason for disappointment, as Valery has found another ruler, its length is l centim