代码之家 › 专栏 › 技术社区 › WillGreco

计数文本框已填充(仅部分)

userform textbox vba

WillGreco · 技术社区 · 7 年前

我正在尝试计数7个文本框,如果它们已填充,我将为每个文本框乘以10.50的值,但我无法进行此验证。。。我编写了下面的代码,但它不适用于

错误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

1 回复 | 直到 7 年前

Brian M Stafford 7 年前

如果我了解您的要求,您需要将文本框中包含的值相加,然后乘以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

推荐文章

Mahhdy · VBA-使用RefEdit复制工作簿之间的范围

7 年前

WillGreco · 计数文本框已填充(仅部分)

7 年前

stov12 · 将第二列添加到Excel Userform中的动态行源

7 年前

freeflyz · 对userform textbox条目的测试失败

7 年前

kan · 为两个控件编写一个代码?例如,双命令按钮

7 年前

CptGoodar · UserForm中的文本框是否可以包含公式?

7 年前

ben mazor · Excel VBA Userform If Focus Changes触发器

7 年前

shiv chhabra · 无法使用变量字段获取DLookup值

7 年前

Serversta · VBA Excel用多列填充列表框

7 年前

nuke · VBA单选按钮:至少选择一个选项

7 年前