【已解决】计算特定列表框的个数和带单位的时间统计

lagssl · 发表于 2024-8-25 08:40

本帖最后由 lagssl 于 2024-8-27 08:39 编辑

【求助】
计算特定列表框的个数和带单位（带数字的后面有空格，有些是 “- - -” 字符）的时间统计。谢谢！

123.7z (29.38 KB, 下载次数: 3)

3190496160 · 发表于 2024-8-25 09:50

Private Sub CommandButton1_Click()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Dim ob As OLEObject
ar = Array("ComboBox13", "ComboBox2", "ComboBox36", "ComboBox4", "ComboBox51", "ComboBox7", "ComboBox18", "ComboBox9", "ComboBox10", "ComboBox22")
For i = 0 To UBound(ar)
d(ar(i)) = ""
Next i
For i = 0 To UBound(ar)
Mc = ar(i)
If Me.Controls(Mc).Text = "ON" Then
n = n + 1
End If
Next i
For i = 2 To 11
sl = Me.Controls("TextBox" & i)
If ls <> "- - -" Then
m = m + Val(sl)
End If
Next i
TextBox1.Text = n
TextBox12.Text = m
End Sub

3190496160 · 发表于 2024-8-25 09:52

123.rar (28.58 KB, 下载次数: 5)

饮冰e士 · 发表于 2024-8-25 10:04

本帖最后由饮冰e士于 2024-8-25 10:09 编辑

lagssl · 发表于 2024-8-26 08:35

饮冰e士发表于 2024-8-25 10:04

谢谢饮冰老师！代码很简洁。学习了！
但是由于窗体中还有其他不需要计算的列表框等控件，所以需要指定。上面3190496160老师的方案合适一些。
再次感谢！

lagssl · 发表于 2024-8-26 08:43

本帖最后由 lagssl 于 2024-8-27 08:40 编辑

3190496160 发表于 2024-8-25 09:50
Private Sub CommandButton1_Click()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.d ...

谢谢3190496160老师！
正是我所需要的方式。
如果TEXTBOX不是2 to 11，我尝试使用上面ComboBox的方式修改了一下，但是计算出来的时间为0。不知道哪里出错了。

ar1 = Array("TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "TextBox7", "TextBox8", "TextBox9", "TextBox10", "TextBox11")
For i = 0 To UBound(ar1)
d(ar1(i)) = ""
Next i
For i = 0 To UBound(ar1)
Mc = ar1(i)
If Me.Controls(Mc).Text <> "- - -" Then
m= m + Val(Mc)
End If
Next i

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

[求助] 【已解决】计算特定列表框的个数和带单位的时间统计