VBA kode Array

MedlemsNrCurrent = Range("E" & i)
countup = 1
ActivityArray(MedlemsNrCurrent, 0) = Range("E" & i).Value

If ActivityArray(MedlemsNrCurrent, 1) <> "" Then
    ActivityArray(MedlemsNrCurrent, 1) = ActivityArray(MedlemsNrCurrent, 1) + countup
Else
    ActivityArray(MedlemsNrCurrent, 1) = countup
End If


Next i

"" betyder tom eller ignenting - coutup er bare et tal på 1 der tillægges. Den kunne for den sags skyld kaldes Hest.

oki tak.

Jeg ved godt at countup bare er en tal.

Men hvordan kan det være hvis jeg erstatte countup med 2 så bliver mine tal fra arrayet dobbelt så stort???

Hvordan ser funktionen ActivityArray() ud?

Sub Top10ogbund10()
GetMedlemsNummerLimits

Dim ActivityArray(21260, 1) As Variant '21260 er række nummer og 1 = medlemnr
Dim MedlemsNrCurrent, Counter As Integer

Sheets("Reservationer").Select
'tæller antallet af bookninger
antal = ThisWorkbook.Worksheets("Reservationer").Range(Range("E1"), _
Range("E1").End(xlDown)).Count
For i = 2 To antal ' MedlemsnrMax

MedlemsNrCurrent = Range("E" & i)
countup = 1
ActivityArray(MedlemsNrCurrent, 0) = Range("E" & i).Value

If ActivityArray(MedlemsNrCurrent, 1) <> "" Then
    ActivityArray(MedlemsNrCurrent, 1) = ActivityArray(MedlemsNrCurrent, 1) + countup
Else
    ActivityArray(MedlemsNrCurrent, 1) = countup
End If


Next i

Kan du ikke forklare hvad koden skal gøre?

Jeg har en liste af data af holdbookninger af medlemmer,
Jeg skal så udefra disse data udforme en top 10 og bund 10.
Ude fra antal medlemmer er på arket = med antal bookninger.

Resten er koden

Worksheets("HallOfSomething").Cells.Delete

Worksheets("HallOfSomething").Range("A" & 1) = "Medlemsnummer"
Worksheets("HallOfSomething").Range("B" & 1) = "Antal træninger"

For j = 2 To antal

    If (ActivityArray(j, 1) <> "") Then
    Worksheets("HallOfSomething").Range("A" & j) = ActivityArray(j, 0)
    Worksheets("HallOfSomething").Range("B" & j) = ActivityArray(j, 1)
Else
   
End If
Next j

Sheets("hallofsomething").Select
Range("A1:B600").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

'copy range af top 10
    Range("A2:B11").Select
    Selection.Cut Destination:=Range("F2:G11")
    Range("F2:G11").Select
'copy range af bund 10
    Range("A578:B588").Select
    Range("B588").Activate
    Selection.Cut Destination:=Range("F14:G24")
    Range("F14:G24").Select
    'Navngivning af G1
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Top10"
    'Navngivning af F1
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Medlemsnr"
   
   
    Range("G13").Select
    ActiveCell.FormulaR1C1 = "Bund10"
   
    Range("F13").Select
    ActiveCell.FormulaR1C1 = "Medlemsnr"
    'sletter hele Række A og B
    Columns("A:B").Select
    Selection.ClearContents
   
End Sub

det er bare det countup jeg ikke forestå :(

fra excel

række E

Medlemsnr
501
563
451
577
425
594
437
452
476
539
559
332
476
521
550
291
540
513
156
598
591
543
362
142
204
483
502

.....op til21260

Ja, men hvad vil du have den skal tælle?

antal hvor mange gange de har booket

Så du vil tælle gentagelser i kolonne E?

ja præcis

Du vil tælle hvor mange gange 501 står der? Og gemme det hvor?

i arrayet

derefter overføre det til ark hallofsomething

Du har måske ikke selv lavet koden?

Jeg skal lige have det helt på plads. Din kode virker, men du skal blot have en forklaring hvordan?

ja

bare count hvad den gør

countup

Den laver et array med plads til 2 værdier i hver række. Derefter søger den kolonne E igennem. Tallet i E, bliver lagt på samme placering i arrayet, altså hvis den finder tallet 501, skrives der 501 i ActivityArray(501, 0). Samtidig tælles der op i ActivityArray(501, 1) med tallet countup. Det er derfor der tælles dobbelt, hvis du ændrer 1 til 2.

oki mange tak 200 p til dig

hehe hvordan gøre lig nu det henne???

Når jeg putter dette svar, skal du markere mit NAVN I DEN LILLE BOKS NEDERST PÅ SIDEN.

Ups, der ramte jeg vidst Caps Lock.

Ellers kig her: http://www.racingcar.dk/eksperten/svar/svar.html

Finder du ud af det?

Er det en eksamensopgave eller lignende?

yes, ska forsvar den:) fik du de 200point?

Ja, tak. Hvornår skal du op?

hehe imorgen, så lig igang med det sidste forberedelse :p
hmm har lig en sidste spørgsmål, det jo fandme 1 måned jeg sidste lavede koden

myArray(i, 1) = 0
myArray(i, 2) = 0

hvorfor skal man man fylder array med 0

Hi,

  Can you please send your Visual Basic problem to me in English, i can solve it

Email Me: binuyogi@hotmail.com

Thanks,
Binu

jiggaboi: Den forstår jeg ikke lige. Den indgår da ikke i koden!

binuyogi: He doesn't have a problem, but just needed an explanation on the code.