30. december 2015 - 13:04Der er
1 kommentar og 1 løsning
Logik til noget udtrækning
Hvert element tilhører en overorden element.
Når jeg sætter dem sammen gør jeg sådan her
Dim i As Integer Dim endelse As Integer Dim count As Integer Dim Data As String count = Range("B1").Value + 2 i = 1
Do While i < count If (i = 1) Then Data = Cells(i, 1).Value & "#" i = i + 1 ElseIf (i = count) Then Data = Data & " " & Cells(i, 1).Value i = i + 1 Else Data = Data & "" & Cells(i, 1).Value & "\ " i = i + 1
End If
Loop Cells(1, 3).Value = Data
Men når jeg kommer til næste kolonne, som er 5,1. Hvor min løkke stopper korrekt. Så vil jeg gerne læse hvor mange den indeholder ved, at jeg læser hvad tallet er sat til i den kolonne, hvor løkken stopper og så sætte den nye variabel, som count og kører løkken igen
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Er kommet til denne løsning og slutning slutter ikke helt korrekt af. Den formåer ikke at indlæse det 0 og lukke løkken helt
Dim i As Integer Dim endelse As Integer Dim count As Integer Dim Data As String count = Range("B1").Value + 2 i = 1
Do
If (endelse = count) Then count = i + Cells(count, 2).Value End If
Do While i < count If (i = 1) Then Data = Cells(i, 1).Value & "#" i = i + 1 ElseIf (i = count) Then Data = Data & " " & Cells(i, 1).Value i = i + 1 Else Data = Data & "" & Cells(i, 1).Value & "\ " i = i + 1
End If Cells(count - 1, 1).Value = Data endelse = i
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.
