01. februar 2009 - 14:32Der er
9 kommentarer og 1 løsning
Simplificere kode
Jeg vil bare lige høre om man kan simplificere denne kode:
j = 2 Do Until IsEmpty(Cells(j, 1)) If Cells(j, 1) = "DK10" And _ Cells(j, 8) = "KG" Then DK103md = DK103md + Cells(j, 11) ElseIf Cells(j, 1) = "DK10" And _ Cells(j, 8) = "KA" Then DK103md = DK103md + Cells(j, 11) ElseIf Cells(j, 1) = "DK10" And _ Cells(j, 8) = "KR" Then DK103md = DK103md + Cells(j, 11) ElseIf Cells(j, 1) = "DK10" And _ Cells(j, 8) = "RE" Then DK103md = DK103md + Cells(j, 11) ElseIf Cells(j, 1) = "DK10" And _ Cells(j, 8) = "YG" Then DK103md = DK103md + Cells(j, 11) ElseIf Cells(j, 1) = "DK10" And _ Cells(j, 8) = "YR" Then DK103md = DK103md + Cells(j, 11) End If
j = j + 1 Loop
Kan man putte noge "or" ind et eller andet sted, så jeg ikke behøver så mange linier kode?
Jeg skal bruge det til at løbe et ark igennem og finde linier der indeholder "DK10" i kolonne 1, "KG","KR","KA","RE","YG" eller "YR" i kolonne 8 og så sammenlægge værdierne fra kolonne 11.
Burde jeg måske istedet lave det som et Case statement?
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.
ellers måske rk = Cells(1000, 1).End(xlUp).Row For t = 2 To rk c = Cells(t, 8).Value If Cells(t, 1).Value = "DK10" Then If c = "KG" Or c = "KA" Or c = "KR" Or c = "RE" Or c = "YG" Or c = "YR" Then DK103md = DK103md + Cells(t, 11) End If End If Next
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.
