CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

krummel Juniormester

23. september 2019 - 13:09 Der er 4 kommentarer og
1 løsning

VBA excel: if then else

Hvor er fejlen? Er ikke super rutineret vba'er

Celle H6 er lig bogstavet x
Celle H7 er tomt
Celle H8 er lig bogstavet x

If H6 = "x" Then a = "F6;" Else a = ""
If H7 = "x" Then b = "F7;" Else b = ""
If H8 = "x" Then c = "F8;" Else c = ""

optimal = a + b + c
optimal = Left(optimal, Len(optimal) - 1)

Outputtet fra optimal skal gerne være F6;F8 (som tekst)

Synes godt om

krummel Juniormester

23. september 2019 - 14:39 #1

En variation af ovenstående for at prøve at finde fejle

H6 er lig 1
H7 er lig 1
H8 er tom

VBA:
If H6 = 1 Then a = "F6;" Else a = "q"
If H7 = 1 Then b = "F7;" Else b = "w"
If H8 = 1 Then c = "F8;" Else c = "e"
optimal = a + b + c
MsgBox optimal

Output bliver "qwe" - bør det ikke være "F6;F7;e" ?
Jeg forstår ikke, hvorfor jeg får dette output - hvad gør jeg galt?

Synes godt om

krummel Juniormester

23. september 2019 - 14:44 #2

Og hvis jeg skriver følgende i stedet:

H6 er lig x
H7 er lig x
H8 er tom

VBA:
If H6 = x Then a = "F6;" Else a = "q"
If H7 = x Then b = "F7;" Else b = "w"
If H8 = x Then c = "F8;" Else c = "e"
optimal = a + b + c
MsgBox optimal

bliver output "F6;F7;F8;" hvilket heller ikke giver mening (synes jeg). Er det mig som er en knold eller excel som er gået kold?

Synes godt om

store-morten Ekspert

23. september 2019 - 16:35 #3

Prøv:

If Range("H6") = "x" Then
a = "F6;"
Else
a = "q"
End If

If Range("H7") = "x" Then
b = "F7;"
Else
b = "w"
End If

If Range("H8") = "x" Then
c = "F8;"
Else
c = "e"
End If

optimal = a + b + c
MsgBox optimal

Synes godt om

Slettet bruger

24. september 2019 - 08:49 #4

du har ikke nogen "end if" - og desuden kan du ikke tælle tekst sammen - så optimal skal regnes med "a & b & c"

Synes godt om

krummel Juniormester

24. september 2019 - 09:38 #5

Mange tak - det hjalp :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS