14. december 2016 - 08:50Der er
10 kommentarer og 1 løsning
VBA hvis A så B, hvis C så D
Hej.
Jeg skal bruge en funktion der basseret på indtastning i en celle skriver noget i en anden celle.
Det er ikke noget problem, men problemmet er hvis jeg skal have flere betingelser. Hvis der i celle A1=1 - B2=2 Hvis A1=2 - B2=5 osv. Hvis A1 er tom så skal B2 også være det.
Jeg har brugt denne funktion:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then If Target = "1" Then Range("B2") = "2" Else Range("B2") = "" End If End sub
Dog er jeg ikke helt sikker på hvordan jeg kobler flere bitingelser ind. Hvis jeg blot gentater så er det kun den øverste betingelse der bliver set på.
Indtast dit tal i A1 og skriv følgende formel i B1 :
"=HVIS((A1/10-HELTAL(A1/10))>0,4;9;5)
Synes godt om
Slettet bruger
14. december 2016 - 10:31#5
Alt afhængig af, hvor mange betingelser du skal have; du kan bruge If if target = "1" Then Range("B2") = "2" elseif target = "2" then Range("b2") = "5" elseif target = "3" then range("B2") = "10" osv... Else Range("B2") = ""
eller du kan lave en Select case: Select Case Target Case Is = "" Range("B2") = "" Case Is = "1" Range("B2") = "2" Case Is = "2" Range("B2") = "5" Case Is = "3)" Range("b2") = "10" End Select
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.
