A8淡墨青衫A8的个人资料 - RAT

A8淡墨青衫A8 A8淡墨青衫A8

关注数: 50 粉丝数: 2 发帖数: 40 关注贴吧数: 3

请教各路大佬：如何动态求和可见行和被筛选掉行的总和我的需求是：当筛选A列的不同客户和C列的未结时，在D1单元格自动求和相应客户的总和（也就是未结和已结的和）。比如：当我筛选”客户1和“未结”时，D1单元格自动计算客户1对应的“未结”和“已结”的和。同理，当筛选“客户5时，D1单元格自动计算客户5对应的”未结“和”已结“的和。

请教大佬：如何在代码里增加代码以实现勾选B列的"空白"和日期 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim r As Long, c As Long, lastRow As Long Dim startDate As Date, endDate As Date r = Target.Row c = Target.Column ' 点击B列时的处理（从第四行开始） If c = 2 And r >= 4 Then ' 获取起始日期和结束日期 startDate = Cells(r, 4).Value endDate = Cells(r, 5).Value ' 处理客户详单筛选及跳转 With Sheets("客户详单") ' 动态确定数据的实际范围 lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row Dim dataRange As Range Set dataRange = .Range("A1:A" & lastRow) ' 筛选B列的日期范围 dataRange.AutoFilter Field:=2, _ Criteria1:=">=" & startDate, _ Operator:=xlAnd, _ Criteria2:="<=" & endDate ' 解除J列的筛选状态 dataRange.AutoFilter Field:=10 ' J列是第10列 ' 计算数据尾行并跳转 lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If lastRow = 2 And .Range("A1") = "" Then lastRow = 1 ' 空表处理 .Activate .Cells(lastRow, 1).Select End With End If End Sub

请教大佬：如何实现：当点击命令按纽后，跳转到指定的单元格数据区域在表1，命令按纽在表2，当点击按纽后则自动跳转到表1有数据的下面一行，谢谢！

只有在筛选状态下才显示求和的计算结果，不筛选时显示空值

请教大佬：看看表格是那里出问题了，谢谢！我的想法是：当I2+I3+K3等于零时，A1不弹出提示框，不等于零时弹出提示框。现在的情况是：I2+I3+K3等于零，A1还是要弹出提示框，请教这是怎么回事，谢谢！（选项里已选择了“以显示精度为准”）

那位大神帮忙写一个用户窗体弹窗提醒生日的代码，谢谢！如图：在表格内日期的前3天弹窗提醒生日，过期后则不弹窗提醒，谢谢！

求助各位大佬做一个生日弹窗提醒如图：在以后每年的6月27日和7月27日【提前2天】开始弹出窗体提醒生日，超过29日则停止弹窗。谢谢！

求助大佬用自定义窗体实现提醒功能，谢谢！能否用自定义窗体实现以下功能： 1：当E列内容为“已处理”时不弹窗提醒相应的行【根据日期条件】 2：当系统日期为8月3日时【也就时说提前7天】，自动弹窗提醒E列为空值的行和第4行 3：在8月3日以前不弹出任何窗体，8月3日以后再自动弹窗提醒【注意：是不弹出窗体，不是窗体里面提醒的内容】

求助大佬帮忙写一段代码，用自定义窗体弹窗提醒，如图能否用自定义窗体实现以下功能： 1：当E列内容为“已处理”时不弹窗提醒相应的行【根据日期条件】 2：当系统日期为8月3日时【也就时说提前7天】，自动弹窗提醒E列为空值的行和第4行 3：在8月3日以前不弹出任何窗体，8月3日以后再自动弹窗提醒【注意：是不弹出窗体，不是窗体里面提醒的内容】

求助大神！符合条件不弹窗提醒 1：如图1图2：当E2输入“已处理"时，打开工作簿时，不弹窗提醒第2行，其余行照常弹窗提醒 2：如图3：当工作表中所有日期超过当前电脑日期7天以上时，打开工作簿时不弹出任何窗体、

1 下一页