Question

我只是在MS Excel中使用VBA的初学者。我有1个表格和5个标签。我们仅将其命名为Label1到Label5。我想要Label1到Label4的值之和并将其显示在Label5上。

With UserForm1

   Dim str As String
   str = Label5.Caption
   str = WorksheetFunction.Sum(.Label1.Caption, .Label2.Caption, _
         .Label3.Caption, .Label4.Caption)
End With

这是我得到的代码，但是不起作用。请帮助T_T

Answer 1

它没有用，因为您将Sum的结果放入了str，但没有放入Label5。

请注意，String变量不是对象，而只是字符串值。因此，它并没有引用Label5.Caption，而是引用了str = Label5.Caption，只是将变量Label5.Caption的值{strong>复制到变量str中（没有引用）。

With UserForm1
   .Label5.Caption = WorksheetFunction.Sum(.Label1.Caption, .Label2.Caption, .Label3.Caption, .Label4.Caption)
End With

Answer 2

我会用

.Label5.caption = Cdec(.Label1.Caption) + Cdec(.Label2.Caption) + Cdec(.Label3.Caption) + Cdec(.Label4.Caption)

如何添加VBA标签值？

2 个答案: