VBA Excel 出报表

源数据

目标

PS:调休 以高亮颜色区分

整理一下

CMDBUT命令 VBA代码

复制代码
Private Sub CommandButton1_Click()
Dim ps As Integer
Dim pe As Integer
Dim srcs As Integer
Dim srce As Integer
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim pname As Variant
Dim pndme As Variant


ps = Range("I1").Value
pe = Range("I2").Value
srcs = Range("C1").Value
srce = Range("C2").Value

For i = ps To pe
   For j = 2 To 32
      For m = srcs To srce
      pname = Sheets("Sheet3").Range("A" & m).Value
        If pname = Range("A" & i).Value Then
        pndme = Cells(6, j).Value
            If Sheets("Sheet3").Range("B" & m).Value <= pndme And Sheets("Sheet3").Range("C" & m).Value >= pndme Then
                Cells(i, j).Value = Sheets("Sheet3").Range("D" & m).Value
                If Cells(i, j).Value = "调休" Then
                Cells(i, j).Interior.ColorIndex = 6
                End If
            End If
        End If
      Next
   Next
Next

End Sub
相关推荐
President~wolf7 小时前
总结:在工作场景中的应用。(Excel)
excel
GitCode官方7 小时前
直播预告 | Excelize 跨语言实战
开源·excel·gitcode
listhi5207 小时前
C# 操作 Excel
c#·excel·mfc
mysusheng8 小时前
2025 批量下载雪球和东方财富帖子和文章导出excel和pdf
pdf·excel
mudtools10 小时前
使用二次封装的Excel COM 组件操作Excel\WPS ET IExcelRange 高级应用
.net·excel
尼恩久1 天前
Excel工作技巧
爬虫·python·excel
玩泥巴的2 天前
使用二次封装的Excel COM 组件操作Excel\WPS ET IExcelRange 高级应用
excel·二次开发·com互操作
SYWG02 天前
【DBCExcelConvent】CAN报文解析辅助工具之DBC与Excel互转
c语言·qt·excel·can·dbc
诗酒当趁年华2 天前
Yapi接口文档导出测试用例至Excel中
yapi·测试用例·excel
CodeCraft Studio2 天前
国产化Excel开发组件Spire.XLS教程:Python 将 CSV 转换为 Excel(.XLSX)
windows·python·excel·csv转excel·spire·excel开发