|
- Private Sub UserForm_Initialize()
- On Error Resume Next
- With Me.ListView1
- .ListItems.Clear
- .ListItems.Clear
- .View = lvwReport
- .FullRowSelect = True
- .Gridlines = True
- .HideSelection = False '显示为淡灰色
- .BackColor = &HFFC0C0 '背景显示为淡兰色
- .ColumnHeaders.Add , , "絪腹", ListView1.Width / 10, lvwColumnLeft
- .ColumnHeaders.Add , , "﹎?", ListView1.Width / 10, lvwColumnCenter
- .ColumnHeaders.Add , , "?丁", ListView1.Width / 10, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 10, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
- .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnRight
- m = [C65536].End(xlUp).Row
- For i = 3 To m
- .ListItems.Add , , Cells(i, 1)
- For j = 1 To 9
- .ListItems(i - 2).SubItems(j) = Cells(i, j + 1)
- Next j, i
- End With
- '********************************
- With UserForm1.ListView1
- For y = 1 To .ListItems.Count + 2
- If .ListItems(y) = .ListItems(y + 1) Then
- n = n + 1
- Else
- m = m + 1
- a = y: b = a - n
- For x = b To a
- For z = 1 To .ColumnHeaders.Count - 1
- If m Mod 2 <> 0 Then
- .ListItems(x).ForeColor = RGB(0, 0, 0)
- .ListItems(x).ListSubItems(z).ForeColor = RGB(0, 0, 0)
- Else
- .ListItems(x).ForeColor = RGB(255, 0, 0)
- .ListItems(x).ListSubItems(z).ForeColor = RGB(255, 0, 0)
- End If
- Next z
- Next x
- a = 0: b = 0: n = 0
- End If
- Next y
- End With
- End Sub
复制代码
|
|