计数文本框已填充（仅部分）

Question

我正在尝试计算 7 个文本框是否已填满我将为每个文本框乘以 10.50 的值，但我无法进行此验证......我在下面编写了代码但它不是与

合作

error 91

Sub btnCal_Click()

    Dim cont As Integer
    Dim ctrl As Control

    cont = 1

    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            If Not IsNull(ctrl.Value) And Left(ctrl.Name, 6) = "txtDp" & cont Then
                cont = cont + 1
            End If
        End If
    Next ctrl

    txtEx.Value = ctrl * 10.5

End Sub

Answer 1

如果我理解您的要求，您需要将文本框中包含的值相加，然后乘以 10.5。如果这是正确的，请尝试以下代码：

Private Sub btnCal_Click()
   Dim cont As Integer
   Dim ctrl As Control

   cont = 0

   For Each ctrl In Me.Controls
      If TypeOf ctrl Is TextBox Then
         If Val(ctrl.Text) <> 0 And Left(ctrl.Name, 5) = "txtDp" Then
            cont = cont + Val(ctrl.Text)
         End If
      End If
   Next ctrl

   txtEx.Text = cont * 10.5
End Sub

计数文本框已填充（仅部分）

Count TextBox Filled (Only Some)

vba

textbox

userform