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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.