【求助】求VBA使日报表数据生成汇总表数据

lakumatata

如题，拜托大神运用VBA实现：
1.在日报表中点击“②数据上传”按钮，将绿色区域和橙色区域的数据根据第一行日期班值填入汇总表中对应的格内
2.点击“②数据上传”按钮后，弹出对话框“上传成功，可以保存报表”
3.如果没有点击“②数据上传”，直接点击保存，则弹出对话框“请先上传数据再保存”


请大神多多帮助

zjdh

日报表.rar (28.52 KB, 下载次数: 35)

2020-8-3 15:12 上传

点击文件名下载附件

lakumatata

zjdh 发表于 2020-7-31 09:19

请问一下这里I为什么要定义为7到23，为何不直接定义为1到17

lakumatata

zjdh 发表于 2020-7-31 09:19

R.Offset(I - 6, F) = Cells(I, "AD")中F代表什么意思？

zjdh

lakumatata 发表于 2020-8-3 11:51
请问一下这里I为什么要定义为7到23，为何不直接定义为1到17

数据源不是 7 到 23 行吗？这样引用时可直接引用 I了，不必再加 6 了。

zjdh

lakumatata 发表于 2020-8-3 12:46
R.Offset(I - 6, F) = Cells(I, "AD")中F代表什么意思？

原来是想作为偏移量变量，后来直接设置单元  R 了，忘了改过来了，直接改为 0 即可。

zjdh

也可这样
Sub TEST()
    With Sheets("汇总表")
        D = .Rows("1:1").Find(Range("J1").Value, LookIn:=xlValues).Address
        Set R = .Range(Split(Split(D, "$")(1))(0) & 2)
        If Range("L1") = "A" Then F = 0 Else F = 1
        For I = 7 To 23
            R.Offset(I - 6, F) = Cells(I, "AD")
        Next
        For I = 26 To 42
            R.Offset(I - 5, F) = Cells(I, "AD")
        Next
    End With
    MsgBox "上传成功，可以保存报表"
    Range("AC4") = True
End Sub

lakumatata

zjdh 发表于 2020-8-3 15:06
数据源不是 7 到 23 行吗？这样引用时可直接引用 I了，不必再加 6 了。

您好，感谢您耐心的解答，不过我还有一事，麻烦解答一下：
如果说增加数据源的行数，代码需要如何修改？不止是只修改“For I = 7 To 23”这一句吧。

zjdh

        For I = 7 To 23
            R.Offset(I - 6, F) = Cells(I, "AD")
        Next
        For I = 26 To 42
            R.Offset(I - 5, F) = Cells(I, "AD")
        Next