设置文本框的背景颜色

    With Nlist
   
        .ColumnHeaders.Clear
      
        .ListItems.Clear
      
        .ColumnHeaders.Add , , "文件名", .Width * 2.8 / 10, lvwColumnLeft
      
        .ColumnHeaders.Add , , "类型", .Width * 0.6 / 10, lvwColumnCenter
      
        .ColumnHeaders.Add , , "修改日期", .Width * 1.2 / 10, lvwColumnLeft
      
        .ColumnHeaders.Add , , "路径", .Width * 6.7 / 10, lvwColumnLeft
      
        .View = lvwReport
      
        .Gridlines = True
      
        .FullRowSelect = True
      
        .CheckBoxes = True
      
        For i = 3 To ThisWorkbook.Sheets("DATA").[E1048576].End(xlUp).Row
      
        Set ITM = .ListItems.Add()
      
        ITM.Text = ThisWorkbook.Sheets("DATA").Cells(i, 5)
      
        ITM.SubItems(1) = ThisWorkbook.Sheets("DATA").Cells(i, 6)
      
        ITM.SubItems(2) = ThisWorkbook.Sheets("DATA").Cells(i, 7)
      
        ITM.SubItems(3) = ThisWorkbook.Sheets("DATA").Cells(i, 8)
      
        Next i
      
    End With