CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede Nielsen15 Nybegynder
22. marts 2010 - 19:12 Der er 3 kommentarer og
1 løsning

Køre for next loop for grupper af ranges

Håber der er nogen der gider hjælpe med den her:
Jeg skal udfylde række F2:F25 med tallet 1, F27:F50 med tallet 2, osv. Altså ranges a 24 celler der skal have en stigende værdi indtil F8785 der slutter med en værdi på 366.

Jeg kan lave det for hver enkelt range, men så bliver det alt andet lige en lang kode :-).

Er der nogen der har et bud på et For Next loop???
Mvh Nielsen
Avatar billede kabbak Professor
22. marts 2010 - 19:38 #1
Public Sub test()
    Dim I As Long, X As Integer
    'Jeg skal udfylde række F2:F25 med tallet 1, F27:F50 med tallet 2, osv. Altså ranges a 24
    I = 1
    For X = 1 To 366
        Do
            I = I + 1
            Cells(I, "F").Value = X
        Loop Until I Mod 25 = 0
        I = I + 1
    Next

End Sub


slutter nu i F9150, du forlanger en blank imellem hver
Avatar billede Nielsen15 Nybegynder
22. marts 2010 - 20:10 #2
Fantastisk, tak for svar! Jeg finder lige ud af give points...

Forresten skal jeg også bruge koden uden blanke imellem, men det må være at udkommentere den sidste I=I+1 ikke?
Avatar billede kabbak Professor
22. marts 2010 - 21:04 #3
Public Sub test()
    Dim I As Long, X As Integer
    'Jeg skal udfylde række F2:F25 med tallet 1, F27:F50 med tallet 2, osv. Altså ranges a 24
    I = 1
    For X = 1 To 366
        Do
            I = I + 1
            Cells(I, "F").Value = X
        Loop Until I Mod 24 = 0
     
    Next

End Sub

sådan uden blanke
Avatar billede kabbak Professor
22. marts 2010 - 21:08 #4
sådan

Public Sub test()
    Dim I As Long, X As Integer
    'Jeg skal udfylde række F2:F25 med tallet 1, F27:F50 med tallet 2, osv. Altså ranges a 24
    I = 1
    For X = 1 To 366
        Do
            I = I + 1
            Cells(I, "F").Value = X
        Loop Until (I - 1) Mod 24 = 0
   
    Next

End Sub
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

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 2 25/04/202414:26 25/04/202422:06
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 -
Filtrering af dato i Pivottabel driller Af TrinoJ. i Visual Basic 4 07/08/202310:40 10/08/202310:44
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:20 Geninstallation af Office 2019 Af ErikHg i Office & Kontorpakker
I dag 09:13 Antivirus til en Linux Mint computer? Af Polle i Linux
I går 15:30 signalforstærker til trådløs rutrer tænkes brugt til pc næt pc -og MÅSKE TV 4 m borte eller begge Af Novice-1 i Routere & Switches
I går 11:43 Hvilket styresystem på en gammel Pc ??? Af Jan Post i Andre styresystemer
I går 07:44 Virus advarsler - falske Af jdann i Backup- & Antivirus
White papers
Flere white papers »


Premium
Teaser billede
Her er de nye medlemmer af Statens It-råd: Skal vurdere it-projekter på over 15 millioner kroner
Læs mere »
Antallet af anmeldelser af ulovligt indhold på beskedtjenester stiger: Regeringen skubber ansvaret videre til EU og Belgien
Efter masser af kritik af store prisstigninger: VMware åbner for gratis licenser - ændrer i licens-strukturen
Seks store selskaber med på årets image-liste for første gang: Kæmper alle med lav kendskabsgrad
Se alle »
Computerworld
Teaser billede
Nyopdaget sårbarhed rammer næsten alle VPN'er: Gør dem usikre og nærmest ubrugelige
Læs mere »
Om under en uge går det løs: Pc’en bliver aldrig den samme igen
VPN-test fra virkeligheden: To tjenester som glimrer på hver deres måde
Test: Samsungs nyeste laptop er noget af det tætteste du kommer på en Windows-Macbook
Se alle »
CIO
Teaser billede
Nu begynder den største GDPR-retssag mod dansk myndighed nogensinde: Står over for million-bøde
Læs mere »
Lukker it-systemerne ned i to uger på grund af implementering: Den bedste måde at sikre, at ingen data går tabt
Sådan har Coop sagt farvel til mainframen - sparer et to-cifret millionbeløb årligt på licenser
Hundredevis af selskaber klager over Microsofts licens-policy: Vi er låst fast og bundet
Se alle »
Job & Karriere
Teaser billede
Her er Danmarks fem bedste CIO’er lige nu: Se de fem nominerede til prisen som Årets CIO 2024
Læs mere »
Medarbejderne fik udleveret badetøfler ved indflytningen: Kom med inden for i IBM Danmarks nye topmoderne hovedkontor
Så meget tjener dine kollegaer: Her er alle data fra Computerworlds store it-lønstatistik for 2024
Får du den løn, du fortjener? Få overblikket over hvor meget dine kolleger tjener hver måned
Se alle »
White paper
Teaser billede
Guide: Sådan udvikler du en moderne netværksstrategi
Læs mere »
MDR: Transparent sikkerhed og overvågning i realtid
Unbreakable - sådan sikrer du dig vedvarende og uafbrudt adgang til dine data
Whitepaper: Komplet sikkerhedsguide til Kubernetes
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »