怎么在窗体里实现sumif的效果？

fengziiiiii · 发表于 2020-2-25 22:45

在textbox1输入电话之后，textbox2显示姓名（我写的代码里，A列是名字的话，能匹配到电话，但是A列是电话的话，匹配不了名字，希望这部分给修改一下）。textbox3显示消费金额的总和，listbox1显示每一个日期的消费清单
例如textbox1输入13800000000，按确定后，textbox2显示张三，消费金额自动求和显示在textbox3，

listbox1显示
消费金额       日期
6                2020/1/1
7                2020/1/2

新建 Microsoft Excel 工作表.zip (42.27 KB, 下载次数: 14)

excel海 · 发表于 2020-2-25 23:49

先用字典求和了再写入textbox3就行了

shenjianrong163 · 发表于 2020-2-26 00:33

Private Sub CommandButton1_Click()
Dim i, m, s, k, arr, brr(), crr(1 To 2)
arr = Sheets("Sheet2").UsedRange
ReDim brr(1 To UBound(arr))
s = " "
m = 1
brr(m) = "消费金额日期"
For i = 2 To UBound(arr)
If Me.TextBox1.Value = "" Then MsgBox "请输入电话号码！": Exit Sub
If arr(i, 1) = Val(Me.TextBox1.Value) Then
k = 1
m = m + 1
brr(m) = arr(i, 3) & s & arr(i, 4)
crr(1) = arr(i, 2)
crr(2) = crr(2) + Val(arr(i, 3))
End If
Next
If k = 0 Then
MsgBox "没有查到信息！"
Else
TextBox2.Value = crr(1)
TextBox3.Value = crr(2)
ListBox1.List = brr
End If
End Sub

复制代码

shenjianrong163 · 发表于 2020-2-26 00:34

请参考附件：

新建 Microsoft Excel 工作表.rar (37.93 KB, 下载次数: 4)

3190496160 · 发表于 2020-2-26 10:00

Public ar As Variant
Private Sub ComboBox1_Change()
With ComboBox1
If .Text = "" Then TextBox2.Text = "": Exit Sub
Dim br()
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) = Trim(.Text) Then
         n = n + 1
         For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
         Next j
      End If
Next i
If n <> "" Then
      TextBox2.Text = br(1, 2)
      TextBox3.Text = Application.Sum(Application.Index(br, 0, 3))
      ListBox1.List = br
End If
End With
End Sub

Private Sub UserForm_Initialize()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
      d(Trim(ar(i, 1))) = ""
End If
Next i
ComboBox1.List = d.keys
End Sub

3190496160 · 发表于 2020-2-26 10:01

新建 Microsoft Excel 工作表.rar (39.3 KB, 下载次数: 8)

		自动登录	找回密码
密码			免费注册

[求助] 怎么在窗体里实现sumif的效果？