Avatar billede matrix007 Nybegynder
27. marts 2014 - 15:27 Der er 3 kommentarer

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
Avatar billede supertekst Ekspert
27. marts 2014 - 15:42 #1
Et stykke af vejen..

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
Avatar billede finb Ekspert
27. marts 2014 - 15:48 #2
prøv denne

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
Avatar billede supertekst Ekspert
13. april 2014 - 23:09 #3
Er problemet blevet løst?
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester