Блог

У меня есть несколько флажков (от 1 до 8) в форме пользователя (VBA), и их значения указаны в Ride.Подпись (от 1 до 8). Если я установлю какой-либо флажок, то его значение, указанное в Поездке, должно добавить общее значение, а если я сниму какой-либо флажок, то это значение должно вычесть из общего значения

В соответствии с приведенным ниже кодом я добавил все значения в общей сложности. Но кодирование флажка все еще не завершено, и я не знаю, как я могу завершить этот код. Помогите мне с вашим опытом.

 Private Sub TotalValue_Click()
Dim X As Double
X = 0
If Len(Ride1.Caption) > 0 Then X = X   Ride1.Caption
If Len(Ride2.Caption) > 0 Then X = X   Ride2.Caption
If Len(Ride3.Caption) > 0 Then X = X   Ride3.Caption
If Len(Ride4.Caption) > 0 Then X = X   Ride4.Caption
If Len(Ride5.Caption) > 0 Then X = X   Ride5.Caption
If Len(Ride6.Caption) > 0 Then X = X   Ride6.Caption
If Len(Ride7.Caption) > 0 Then X = X   Ride7.Caption
If Len(Ride8.Caption) > 0 Then X = X   Ride8.Caption
TotalValue.Caption = X
End Sub
 

https://ibb.co/7jh7mJh

Я устанавливаю любой флажок, затем его значение, указанное в Поездке, должно добавить общее значение, и если я сниму какой-либо флажок, то значение должно вычитаться из общего значения

Вы можете обрабатывать все свои флажки в цикле. Также вам не нужно отчислять. Просто пересчитайте.

Это то, что вы пытаетесь сделать?

 Private Sub CommandButton1_Click()
    Dim TotalSum As Double
    Dim i As Long
    
    For i = 1 To 8
        If Controls("Ride" amp; i).Value = True Then
            TotalSum = TotalSum   Val(Controls("CheckBox" amp; i).Caption)
        End If
    Next i
    
    TotalValue.Caption = TotalSum
End Sub
 

Это то, что ты пытаешься сделать? Я сделал это в цикле, так как это чище и проще в обращении.

Вам нужно изменить «Флажок» на то, как называются ваши флажки.

 Private Sub TotalValue_Click()

Dim X As Double, i As Integer

X = 0
For i = 1 To 8
    If Me.Controls("CheckBox" amp; i).Value = True  And Len(Me.Controls("Ride" amp; i).Caption) > 0 Then 
        X = X   Me.Controls("Ride" amp; i).Caption
    End If
Next i
TotalValue.Caption = X

End Sub
 

В качестве альтернативы, если вы хотите, чтобы ваш итог обновлялся всякий раз, когда кто-то проверяет/снимает флажок, вы можете добавить событие изменения для каждого из ваших текстовых полей, например:

 Private Sub CheckBox1_Change()

If Me.CheckBox1.Value = True Then
    Me.TotalValue.Caption = Me.TotalValue.Caption   Val(Me.Ride1.Caption)
Else
    Me.TotalValue.Caption = Me.TotalValue.Caption - Val(Me.Ride1.Caption)
End If

End Sub
 

Опять же, просто измените «Флажок 1» на соответствующее имя флажка.