Søg
Avatar billede bambus Nybegynder
04. december 2001 - 09:53 Der er 4 kommentarer og
1 løsning

løkke

Er der en der har et forslag til følgende
Jeg skal bruge en løkke der tæller antal fyldte celler som COUNTA(1:1), og COUNTA(A:A) og indlæser området i en matrix(100,100)....

    MyMatrix(ColX + 1, RowX) = Range(\"I\" & RowX)
    MyMatrix(ColX + 2, RowX) = Range(\"J\" & RowX)
    MyMatrix(ColX + 3, RowX) = Range(\"K\" & RowX)
    MyMatrix(ColX + 4, RowX) = Range(\"L\" & RowX)
    MyMatrix(ColX + 5, RowX) = Range(\"M\" & RowX)
    MyMatrix(ColX + 6, RowX) = Range(\"N\" & RowX)
    MyMatrix(ColX + 7, RowX) = Range(\"O\" & RowX)
    MyMatrix(ColX + 8, RowX) = Range(\"P\" & RowX)
    MyMatrix(ColX + 9, RowX) = Range(\"Q\" & RowX)
    MyMatrix(ColX + 10, RowX) = Range(\"R\" & RowX)
    MyMatrix(ColX + 11, RowX) = Range(\"S\" & RowX)
    MyMatrix(ColX + 12, RowX) = Range(\"T\" & RowX)
Avatar billede Flemming Vadet - Smart Office DK Professor
04. december 2001 - 10:16 #1
Dette kunne være din løkke, måske skal den kunne mere !
Din udgave af MyMatrix linierne er ligeså god som min - blot for at vise et alternativ

Dim i As Integer
    For RowX = 1 To Range(\"A65536\").End(xlUp).Row
       
        MyMatrix(ColX + 1, RowX) = Range(\"A\" & i)
        MyMatrix(ColX + 2, RowX) = Range(\"A\" & i).Offset(0, 1)
        MyMatrix(ColX + 2, RowX) = Range(\"A\" & i).Offset(0, 2)

    Next

Avatar billede Flemming Vadet - Smart Office DK Professor
04. december 2001 - 10:18 #2
hov : For RowX = 1 To  skulle være For i = 1 To
Avatar billede bak Forsker
04. december 2001 - 10:41 #3
denne løkke indlæser området i mymatrix.
Sub test3()
Dim mymatrix(100, 100)
For c = 1 To Application.WorksheetFunction.CountA(Range(\"1:1\"))
    For r = 1 To Application.WorksheetFunction.CountA(Range(\"A:A\"))
    mymatrix(c, r) = Cells(r, c)
    Debug.Print mymatrix(c, r)
    Next r
Next c
End Sub
Avatar billede bak Forsker
04. december 2001 - 10:42 #4
Skip lige linien med debug.print
Avatar billede bambus Nybegynder
04. december 2001 - 10:55 #5
I den grad Tak :))
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker 2 14/05/202623:24 15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker 11 11/05/202610:48 12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker 12 24/04/202617:35 26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker 0 16/04/202622:13 -
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker 19 13/04/202616:33 04/05/202611:48
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 går 14:56 Udseende af datoer Af ErikHg i Excel
23/0509:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
22/0511:42 Mail med endelsen ".lat" Af ErikHg i E-mail
21/0511:48 Nyåbnede sider flimrer på Android tablet, hvorfor Af annam i Andet software
White papers
Flere white papers »