CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Carmino Nybegynder

26. september 2013 - 18:14 Der er 4 kommentarer

Sammenligne to arrays

Hej

Jeg har to array som jeg gerne vil sammen ligne for værdier.

Begge arrays er dynamiske og operere indenfor et område defineret i hhv. PackageNumbers & PackagesAllocated

PackageNumbers indeholder kun unikke værdier. (Skal også testes)
PackagesAllocated indeholde værdier fra PackageNumbers men der kan godt være flere af den samme værdi fra PackageNumbers.

Det der skal undersøge er om alle værdier fra PackageNumbers er blevet brugt i PackagesAllocated, hvis de ikke er det så skal der lave en msgbox som viser hvilke numre der ikke er med. Hvis alle numre er med så sker der ingenting.

Jeg håber det giver mening.

mvh. Smeden

Synes godt om

arne_v Ekspert

27. september 2013 - 01:35 #1

en dobbelt for loekke

Synes godt om

MadsHaupt Juniormester

27. september 2013 - 12:47 #2

Carmino kan du ikke give os nået kode?.

Synes godt om

Carmino Nybegynder

27. september 2013 - 17:48 #3

Jeg har lave følgende kode indtil videre.

Sub compair()

Dim PackageNumbers As Range
Dim ContainersAllocated As Range
Dim i As Integer

PackageNumbers = Range("PackageNumbers").Value
ContainersAllocated = Range("ContainersAllocated").Value

ReDim Arr1(PackageNumbers) As Long
ReDim Arr2(ContainersAllocated) As Long

For i = LBound(Arr1) To UBound(Arr1) Step 1
If Arr1 <> i And Arr2 = "" Then
Cells(UBound(Arr1) + 3 + i, 2) = i
Next i
End If

End Sub

Den strander ved if Arr <> i And Arr2 = "" Then.

Mvh Smeden

Synes godt om

Carmino Nybegynder

28. september 2013 - 21:09 #4

Hej Jeg har fundet en løsning på dette lille problem som jeg kan leve med uden brug af VBA

=HVIS(TÆLV(PackageNumbers)-1<>SUM(HVIS(FREKVENS(PackagesAllocated;PackagesAllocated)>0;1));SAMMENKÆDNING("Packages not allocated, ";ABS(TÆLV(PackageNumbers)-1-SUM(HVIS(FREKVENS(PackagesAllocated;PackagesAllocated)>0;1)));" package missing");"All packages allocated")

Gør lige nøjagtig det jeg vil have den til...

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS