Array problem - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2023-01-11 19:15

aolsson

Medlem sedan: 2023-01-11

2 inlägg

Array problem

Hej!,

Har försökt lägga in alla antalPall värden i en array och letat igenom en array istället för att göra som nedan i koden, fick det och funka men problem va att den letade inte igenom hela arrayen innan den gick vidare i programet, går det att lösa på ett enkelt sätt?

antalPall variablen reflekterar värdet i en cell.

If antalPall = 80 Or antalPall = 90 Or antalPall = 108 Or antalPall = 110 Or antalPall = 120 Or antalPall = 140 Or antalPall = 240 Then

fullPall = True

Else

fullPall = False

End If

Tack på förhand!

2023-01-12 09:42

Christian

Medlem sedan: 2015-08-26

1209 inlägg

Re: Array problem

Hej hej

Nedan kod undersöker statusen på samtliga dina pallar. När koden har kört klart så kommer fullpall motsvara statusen på den sista pallen i arrayen. Vill du spara status på samtliga pallar behöver du spara samtliga dessa världen inuti loopen till en array.

'Se till att namge området där du har alla dina antalpall, för att programsnutten ska fungera ska dessa ligga i en kolumn, samt att det ska döpas till samma namne som nedan: rngAntalPallar

Dim vnt as variant: vnt = activesheet.range("rngAntalPallar")

Dim i as long, antalpall as long, fullpall as boolean

For i = 1 to ubound(vnt,1)

antalPall = vnt(i, 1)

If antalPall = 80 Or antalPall = 90 Or antalPall = 108 Or antalPall = 110 Or antalPall = 120 Or antalPall = 140 Or antalPall = 240 Then

fullPall = True

Else

fullPall = False

End If

Next i

2023-01-12 14:17

aolsson

Medlem sedan: 2023-01-11

2 inlägg

Re: Array problem

Hej Igen!

Fick det att funka nu, provade de du skrev men fick det inte riktiga att funka, kan ha vart lite otydlig vad jag menade i mitt första inlägg. vba programmering är inte min starka sida men löste problemet med koden nedanför. Tack ändå!

Sub test()

Dim i As Variant

Dim chkAntal As Variant

Dim antalPall As Integer

Dim fullPall As Boolean

chkAntal = Array(80, 90, 108, 110, 120, 140, 240)

antalPall = Worksheets("auto").Range("K1").Value

fullPall = False

For Each i In chkAntal

If i = antalPall Then

fullPall = True

Exit For