Excel VBA kode hjælpe til If Then - indsæt værdier i flere celler
Jeg er begynder i VBA og har brug for hjælp til en If Then procedure.Jeg har indsat to OptionButtons i mit regneark, afhængigt af hvad man vælger skal der ske noget forskelligt.
Når man vælger OptionButton1 skal der ske følgende:
- celle C2 skal udfyldes med teksten "Interat kursus"
- Linie 12 og 13 skal ikke vises
Når man vælger OptionButton2 skal der ske følgende:
- celle C4 skal udfyldes med teksten "Eksternat kursus" og celle C8 skal udfyldes med 100
- Linie 9 skal ikke vises
Min kode ser således ud, men det virker ikke:
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("C2").Value = "Internat kursus"
Else: Range("C2").Value = ""
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("C8").Value = 100
If OptionButton2.Value = True Then Range("C4").Value = "Eksternat kursus"
Else: Range("C2").Value = ""
End If
End Sub