Question

EXCEL的VBA公式，求修改下

H列记录日期，I列记录值，然后想在他们旁边做一个选择日期范围内，如2016-06-06至2016-07-06之间发生的值的和，请给出代码

Answer 1

如果是在两个单元格中输入的是起止日期，那么也不用VBA，直接写公式，要简单很多的。

追问

H列是记录日期的数值，I是每个日期的值的数据，然后要做一个统计选择日期内值的和

追答

J1是开始日期，J2是结束日期：

=SUMIFS(I:I,H:H,">="&J1,H:H,"<="&J2)

追问

那在新的一行输入开始日期跟结束日期，不是又要重新输入这个公式，能VBA吗？简单点

追答

VBA我也会，也能写出来，不过觉得公式简单点而已。
而且，看得出来，你没试用我的公式。

追问

有，这个公式为也用过，不过就是在你要写第二行的时候，必须复制这个公式到第二行的 指定位置，所以还是不实用的，觉得VBA的好，能给出吗？

追答

我不懂，为什么第二行要复制公式，如果情况特殊，那你得具体描述，最好发模拟文件给我。
如果按你现在描述，此公式即可解决。

追问

你的公式就是在克重的位置输入，然后那两个位置修改下就可以了，不过每次都要向下复制，我上面是简化的，其实数据源是在另外一个EXCEL的，而它的H列就是日期，I列就是克重，然后通过这边统计

追答

也就是说，你的日期是文本格式，而且日期也不在同一列，你发的图是在两列吧，
并且日期是个范围，我不明白，你要的结果格式是什么。
即使写代码，也要与你用的一样，除非，你会自己修改代码。

追问

修改代码会，但是写这个统计的不会，我这里是要手写输入上面两个日期后，克重的单元格会自动统计A.xlsm的H列（日期）跟I列（克重）的数据，就是要在这个范围内统计数据源A.xlsm的克重，后面两个是手动输入的，可以不管的

追答

也就是说，你这个图片是结果格式，而不是条件格式，对么？

追问

是的，我另外一样的标题的还有问题，你可以这里直接给出代码

追答

Public Sub 导入数据()
    Dim cPath As String, myFile As String, Wb As Workbook, CXrng As Range, XRrng As Range
    cPath = ThisWorkbook.Path & "\A.xlsm"
    Set Wb = GetObject(cPath)
    For Each CXrng In Wb.Sheets(1).Range("H1:H" & Wb.Sheets(1).Range("H1000000").End(xlUp).Row)
        For Each XRrng In Range("A4:A" & Range("A1000000").End(xlUp).Row)
            If CXrng.Value >= XRrng.Value And CXrng.Value <= DateValue(Replace(XRrng.Offset(0, 1).Value, "～", "")) Then
                XRrng.Offset(0, 2).Value = XRrng.Offset(0, 2).Value + CXrng.Offset(0, 1).Value
            End If
        Next
    Next
    Wb.Close False
    Set Wb = Nothing
End Sub

追问

A.xlsm源文件的日期，我是用20160606输入，然后整列的格式调成####-##-##，所以才显示是2016-06-06，然后上图第二列的~2016-07-06，也是用格式调的“~”####-##-##，这样能统计吗？我试了几次，都没反应，估计是这个日期的问题，能怎么办呢，还有上面日期是两个单元格的哟

追答

你自己修改下代码吧，