Как объявлять переменные и суммировать значения переменных - PullRequest
Новая
       16

Как объявлять переменные и суммировать значения переменных

0 голосов
/ 04 июля 2019

Привет, я хотел бы суммировать эти 3 переменные и автоматически заполнить значение суммы другой переменной - txtTotalMonthly Salary в Excel.

  1. txtLastMonthlyDrawnSalary
  2. txtAWS
  3. txtAllowance

Может кто-нибудь посоветовать, пожалуйста? 

Private Sub txtLastMonthlyDrawnSalary_Change()

If Me.txtLastMonthlyDrawnSalary.Value <> "" Then
    Dim Product As Long
    Product = Me.txtLastMonthlyDrawnSalary.Value * 12

    Me.txtLastAnnualDrawnSalary.Value = Product
End If

If Me.txtLastMonthlyDrawnSalary.Value <> "" Then
    Dim Sum As Long

  Me.txtLastMonthlyDrawnSalary.Value Me.txtAWS.Value + Me.txtAllowance.Value = Sum

End If

End Sub

1 Ответ

0 голосов
/ 04 июля 2019

Прежде всего, в качестве хорошей практики, я бы объявил переменные в начале.

так что начните с продукта DIM и т. Д. также, что такое "Я"

Кроме того, если txtlastmonthdrawnsalary является числовым, вам не нужно добавлять «.value» в конце.

Чтобы избежать возможных ошибок, я добавил «z» в конце вашей переменной, чтобы отделить их от команд VB.

Я бы начал со следующего, если это все еще не работает, давайте посмотрим, где это сломается: 

Private Sub txtLastMonthlyDrawnSalary_Change()
    Dim Productz As Long, Sumz As Long, txtLastMonthlyDrawnSalary as long, txtLastAnnualDrawnSalary as long

    If not txtLastMonthlyDrawnSalary = "" Then

        Productz = txtLastMonthlyDrawnSalary * 12

        txtLastAnnualDrawnSalary = Productz
    End If

    If not txtLastMonthlyDrawnSalary = "" Then


      sumz = txtLastMonthlyDrawnSalary +  txtAWS + txtAllowance 

    End If

    End Sub
...