Как добавить значения метки VBA?

Question

Я только начинающий в использовании VBA в MS Excel.У меня есть 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 в переменную 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)