VBA Excel 出报表

源数据

目标 

PS:"调休" 以高亮颜色区分
整理一下

CMDBUT下令  VBA代码

2. Private Sub CommandButton1_Click()
3. Dim ps As Integer
4. Dim pe As Integer
5. Dim srcs As Integer
6. Dim srce As Integer
7. Dim i As Integer
8. Dim j As Integer
9. Dim m As Integer
10. Dim pname As Variant
11. Dim pndme As Variant
13. ps = Range("I1").Value
14. pe = Range("I2").Value
15. srcs = Range("C1").Value
16. srce = Range("C2").Value
18. For i = ps To pe
19.    For j = 2 To 32
20.       For m = srcs To srce
21.       pname = Sheets("Sheet3").Range("A" & m).Value
22.         If pname = Range("A" & i).Value Then
23.         pndme = Cells(6, j).Value
24.             If Sheets("Sheet3").Range("B" & m).Value <= pndme And Sheets("Sheet3").Range("C" & m).Value >= pndme Then
25.                 Cells(i, j).Value = Sheets("Sheet3").Range("D" & m).Value
26.                 If Cells(i, j).Value = "调休" Then
27.                 Cells(i, j).Interior.ColorIndex = 6
28.                 ELSE
29.                 Cells(i, j).Interior.ColorIndex = 1
30.                 End If
31.             End If
32.         End If
33.       Next
34.    Next
35. Next
37. End Sub

复制代码