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
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("C4").Value = "Eksternat kursus" Range("C8").Value = 100 Else Range("C2").Value = "" End If End Sub
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 AND Range("C4").Value = "Eksternat kursus" Else: Range("C2").Value = "" End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.