大家好，我在使用 vba 時遇到了問題。我想要劃分框來計算 txt 框的數量是否被填充，例如如果 txtbox1 > 0 然后 txt.divide = txt.divide 1 同樣，如果使用其他文本框，那么它會繼續添加 1，就像有 2 個文本一樣使用的盒子然后除法值將是 2 等
有什么可以幫忙的嗎？
If Trading_calculator1.txt_currency1.Value > 0 Then
Trading_calculator1.txt_divide.Value = txt_divide 1
ElseIf Trading_calculator1.txt_currency2.Value > 0 Then
Trading_calculator1.txt_divide.Value = txt_divide 1
End If
uj5u.com熱心網友回復：
要測驗 TextBox 是否為空，您可以執行Len(TextBox.Text) > 0. 當文本框中有任何文本時，這將回傳 TRUE。
您可以通過使用回圈來搜索用戶表單（Userform.Controls 集合）中的每個控制元件來實作動態化。這樣您就不需要為每個文本框單獨使用 IF 陳述句。您可以使用TypeName函式來測驗控制元件是否為“TextBox”，然后檢查它是否不為空。
Dim TextBoxCount As Long, ctrl as Variant
For Each ctrl In Trading_calculator1.Controls
If TypeName(ctrl) = "TextBox" Then
If Len(ctrl.Text) > 0 Then TextBoxCount = TextBoxCount 1
End If
Next
txt_divide = TextBoxCount
uj5u.com熱心網友回復：
我在這里解決了我使用的問題：
Dim divide As Integer
divide = 0
If Trading_calculator1.txt_currency1.Value > 0 Then divide = divide 1
If Trading_calculator1.txt_currency1.Value = "" Then divide = divide - 1
Trading_calculator1.txt_divide = divide
它對我有用，如果文本框值更改，則第一個 if 陳述句將添加一個如果沒有值則將其更改回第二個 if 并將其回傳 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/390963.html
下一篇：對共享一個公共索引值的多行求和