Avatar billede Falentin Seniormester
05. august 2020 - 00:59 Der er 2 kommentarer og
1 løsning

Udfyld kollone indtil 7 række, derefter næste række

Hej

Jeg forsøger at lave et lille VBA-kode, der udfylder indtil den 7 kollone og derefter springer ned til næste række indtil denne 7 række er udfyldt, osv.

Grafisk skal det se sådan ud

1 2  3  4    5  6  7
8 9 10 11 12 13 14
15 16 17 18 ...

Her er hvad jeg har indtil videre:

Dim x As Integer
Dim c As Integer
Dim r As Integer
r = 1
c = 1
x = 1


Do Until x >= 26 'er antal gange programmet skal foretage skrive til cellen.
For c = 1 To 7
Sheets("Ark1").Range(Sheets("Ark1").Cells(r, c), Sheets("Ark1").Cells(r, c)) = x

x = x + 1
Next c
Loop

Men jeg kan ikke få skidtet til at virke :-(
Avatar billede Lene Fredborg Ekspert
05. august 2020 - 01:34 #1
Hvis jeg forstår din forklaring korrekt, skulle følgende give det resultat, du ønsker. Jeg har givet variablerne navne, som gør det lettere (for mig i hvert tilfælde) at holde styr på, hvad de bruges til:

Dim intCount As Integer
Dim intCol As Integer
Dim intRow As Integer
Dim oSheet As Worksheet

intCount = 0
intRow = 1

Set oSheet = ActiveWorkbook.Sheets("Ark1")

Do
    For intCol = 1 To 7
        intCount = intCount + 1
        oSheet.Cells(intRow, intCol) = intCount
       
        If intCount = 26 Then Exit Do
    Next intCol
   
    intRow = intRow + 1
Loop

Set oSheet = Nothing
Avatar billede store-morten Ekspert
05. august 2020 - 01:49 #2
Dim x As Integer
Dim c As Integer
Dim r As Integer
r = 1
c = 1
x = 1

'Antal gange programmet skal foretage skrive til cellen.
Do Until x >= 26

    'Gentag 7 gange (c)
    For c = 1 To 7
    'Skriv tal i celle (x)
    Sheets("Ark1").Range(Cells(r, c), Cells(r, c)) = x
    'Forøg tal med 1 (x)
    x = x + 1
    Next c
   
        'Forøg række med 1 (r)
        r = r + 1
Loop
Avatar billede Falentin Seniormester
05. august 2020 - 10:34 #3
Tak, Lene. Det virker perfekt :-)
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
Kategori
Kurser inden for grundlæggende programmering

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