需要实现两个复选框都不为空时，求和同时符合两个复选框的值并显示在对应的TextBox

zhenting1005

需要实现两个复选框都不为空时，同时符合两个复选框的单元格求和并显示在对应的TextBox，请大神帮忙

一把小刀闯天下

Option Explicit

Private Sub CommandButton1_Click()
  Dim i, arr, sum
  If Not (Len(ComboBox1.Text) > 0 And Len(ComboBox2.Text) > 0) Then Exit Sub
  ReDim sum(1 To 4)
  arr = Sheets("收入明细").[a1].CurrentRegion
  For i = 2 To UBound(arr, 1)
    If arr(i, 3) = ComboBox1.Text And arr(i, 4) = ComboBox2.Text Then
      sum(1) = sum(1) + arr(i, 6)
      sum(2) = sum(2) + arr(i, 9)
      sum(3) = sum(3) + arr(i, 8)
    End If
  Next
  arr = Sheets("支出明细").[a4].CurrentRegion
  For i = 2 To UBound(arr, 1)
    If arr(i, 3) = ComboBox1.Text And arr(i, 4) = ComboBox2.Text Then
      sum(4) = sum(4) + arr(i, 6)
    End If
  Next
  For i = 1 To 4: Controls("TextBox" & i).Text = sum(i): Next
End Sub

Private Sub UserForm_Initialize()
  Dim i As Integer
  For i = 2 To 1000
    ComboBox1.AddItem Sheets("查询").Range("g" & i)
    ComboBox2.AddItem Sheets("查询").Range("h" & i)
  Next
End Sub

zhenting1005

一把小刀闯天下 发表于 2018-8-26 18:29
Option Explicit

Private Sub CommandButton1_Click()

大神，我上传的附件中if实现的两个功能还是要保留的，目前需求是在这个原有的基础上增加，能否帮忙再次调整下并提供附件呢，非常感谢！！

zhenting1005

zhenting1005 发表于 2018-8-26 19:33
大神，我上传的附件中if实现的两个功能还是要保留的，目前需求是在这个原有的基础上增加，能否帮忙再次调 ...

我把两段代码结合，功能实现了，谢谢大神了