如何添加 VBA 标签值

Question

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

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的值复制到变量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)