2 dimensionele array
- Onderwerp starter bifi
- Startdatum
- Status
ok.
Mr het probleem is dus dat ik moet gaan kijken welke waarden van kolom B horen bij kolom A in Excel. Nu heb ik mijn aantal punten al geteld in kolom en moet ik alleen nog gaan kijken welke waarden van kolom B hierbij horen.
Dit is mijn programma wat ik al heb,
Sub VBA_Vincent()
Dim i, j, y, z As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim punten_array() As String
Dim elementen() As String
Dim aantal_elementen As Integer
Dim aantal_verschillende_elementen As Integer
Dim index As Integer
Dim test As Boolean
'ReDim punten_array(1)
i = 1
Do
ReDim Preserve punten_array(i)
x_value = Cells(i, 1)
punten_array(i - 1) = x_value
i = i + 1
Loop While Cells(i, 1) <> ""
ReDim Preserve punten_array(i - 1)
j = 1
Do While punten_array(j) <> ""
MsgBox (punten_array(j))
j = j + 1
Loop
'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen) & " ")
index = 0
ReDim Preserve elementen(1)
elementen(index) = punten_array(index)
index = 1
For y = 0 To UBound(punten_array)
test = False
For z = 0 To UBound(elementen)
If (test = False) Then
If (punten_array(y) = elementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve elementen(index)
elementen(index - 1) = punten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen:" & Str(UBound(elementen)))
End Sub
Hoe zou ik hier een 2 dimensionele array aan kunnen toevoegen.
Heb er nog nooit mee gewerkt
groeten
Mr het probleem is dus dat ik moet gaan kijken welke waarden van kolom B horen bij kolom A in Excel. Nu heb ik mijn aantal punten al geteld in kolom en moet ik alleen nog gaan kijken welke waarden van kolom B hierbij horen.
Dit is mijn programma wat ik al heb,
Sub VBA_Vincent()
Dim i, j, y, z As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim punten_array() As String
Dim elementen() As String
Dim aantal_elementen As Integer
Dim aantal_verschillende_elementen As Integer
Dim index As Integer
Dim test As Boolean
'ReDim punten_array(1)
i = 1
Do
ReDim Preserve punten_array(i)
x_value = Cells(i, 1)
punten_array(i - 1) = x_value
i = i + 1
Loop While Cells(i, 1) <> ""
ReDim Preserve punten_array(i - 1)
j = 1
Do While punten_array(j) <> ""
MsgBox (punten_array(j))
j = j + 1
Loop
'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen) & " ")
index = 0
ReDim Preserve elementen(1)
elementen(index) = punten_array(index)
index = 1
For y = 0 To UBound(punten_array)
test = False
For z = 0 To UBound(elementen)
If (test = False) Then
If (punten_array(y) = elementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve elementen(index)
elementen(index - 1) = punten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen:" & Str(UBound(elementen)))
End Sub
Hoe zou ik hier een 2 dimensionele array aan kunnen toevoegen.
Heb er nog nooit mee gewerkt
groeten
sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.620
hoi bifi
waarom wil je met een array werken?
je kan toch direct cellen met elkaar vergelijken
twee kolommen vormen samen toch een 2D gebied
vb:
kolom1 = 1
kolom2 = 2
enz
en dan een loopje maken met zoiets er in
if cells(rij1,kolom1)=cells(rij2,kolom2) then
teller=teller + 1)
enz.
endif
groet sylvester
Ja da zou ik ook kunnen maar mij is gevraagd om dat met een array te doen. Zou je dan ook weten hoe ik dan ongeveer moet werken. ik heb het nog altijd niet gevonden
toch bedankt om al te reageren
groeten
Code:
Sub VBA_Vincent()
Dim i, j, y, z As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim punten_array() As String
Dim elementen() As String
Dim aantal_elementen As Integer
Dim aantal_verschillende_elementen As Integer
Dim index As Integer
Dim test As Boolean
'ReDim punten_array(1)
i = 1
Do
ReDim Preserve punten_array(i)
x_value = Cells(i, 1)
punten_array(i - 1) = x_value
i = i + 1
Loop While Cells(i, 1) <> ""
ReDim Preserve punten_array(i - 1)
j = 1
Do While punten_array(j) <> ""
MsgBox (punten_array(j))
j = j + 1
Loop
'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen) & " ")
index = 0
ReDim Preserve elementen(1)
elementen(index) = punten_array(index)
index = 1
For y = 0 To UBound(punten_array)
test = False
For z = 0 To UBound(elementen)
If (test = False) Then
If (punten_array(y) = elementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve elementen(index)
elementen(index - 1) = punten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen:" & Str(UBound(elementen)))
End Subtoch bedankt om al te reageren
groeten
Dag Bifi,
Dim a() as string
Dim i as integer
Dim j as integer
Dim m as integer
Dim n as Integer
With Activeworkbook.Sheets(1)
m=.Cells(1,1).CurrentRegion.Rows.Count 'bepaal het aantal rijen
n=-1
Redim a(1,m)
For i = 1 to m
n=n + 1
a(0, n') = .Cells(i, 1).Value
a(1, n) = .Cells(i, 2).Value
Next
End With
Redim Preserve a(1,n)
' Tweedimensionele array is gereed.
Nu cellen vergelijken:
With Activeworkbook.Sheets(1)
m=.Cells(1,1).CurrentRegion.Rows.Count
For i = 1 to m
For j = 1 To m
If .Cells(i,1).value = .Cells(j,2) then
Next
Next
End With
Gegroet,
Axel.
Dim a() as string
Dim i as integer
Dim j as integer
Dim m as integer
Dim n as Integer
With Activeworkbook.Sheets(1)
m=.Cells(1,1).CurrentRegion.Rows.Count 'bepaal het aantal rijen
n=-1
Redim a(1,m)
For i = 1 to m
n=n + 1
a(0, n') = .Cells(i, 1).Value
a(1, n) = .Cells(i, 2).Value
Next
End With
Redim Preserve a(1,n)
' Tweedimensionele array is gereed.
Nu cellen vergelijken:
With Activeworkbook.Sheets(1)
m=.Cells(1,1).CurrentRegion.Rows.Count
For i = 1 to m
For j = 1 To m
If .Cells(i,1).value = .Cells(j,2) then
Next
Next
End With
Gegroet,
Axel.
merci axel
Maar als ik dit toevoeg aan mijn programma dan bekom ik dit
Hier zit nog iets mis denk. Maar ik ben niet zo gevorderd om dit probleem te achterhalen
groeten
Maar als ik dit toevoeg aan mijn programma dan bekom ik dit
Code:
Sub VBA_Vincent()
' Written by Vincent Claes - XIOS Hogeschool Limburg
' 18/04/2007
' For educational Purposes of Yf Brems :-)
Dim i, j, y, z, m, n As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim punten_array() As String
Dim elementen() As String
Dim aantal_elementen As Integer
Dim aantal_verschillende_elementen As Integer
Dim index As Integer
Dim test As Boolean
Dim a() As String
'ReDim punten_array(1)
i = 1
Do
ReDim Preserve punten_array(i)
x_value = Cells(i, 1)
punten_array(i - 1) = x_value
i = i + 1
Loop While Cells(i, 1) <> ""
ReDim Preserve punten_array(i - 1)
j = 1
Do While punten_array(j) <> ""
MsgBox (punten_array(j))
j = j + 1
Loop
'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen) & " ")
'Detectie van het aantal verschillende waarden in onze array
'aantal_verschillenden_elementen = UBound(punten_array)
'For y = 0 To (UBound(punten_array))
' For z = y + 1 To (UBound(punten_array))
' If (punten_array(y) = punten_array(z)) Then
' aantal_verschillenden_elementen = aantal_verschillenden_elementen - 1
' End If
' Next z
' Next y
index = 0
ReDim Preserve elementen(1)
elementen(index) = punten_array(index)
index = 1
For y = 0 To UBound(punten_array)
test = False
For z = 0 To UBound(elementen)
If (test = False) Then
If (punten_array(y) = elementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve elementen(index)
elementen(index - 1) = punten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen:" & Str(UBound(elementen)))
With ActiveWorkbook.Sheets(1)
m = .Cells(1, 1).CurrentRegion.Rows.Count 'bepaal het aantal rijen
n = -1
ReDim Preserve a(1, m)
For i = 1 To m
n = n + 1
a(0, n) = .Cells(i, 1).Value
a(1, n) = .Cells(i, 2).Value
Next
End With
ReDim Preserve a(1, n)
' Tweedimensionele array is gereed.
'Nu cellen vergelijken:
With ActiveWorkbook.Sheets(1)
m = .Cells(1, 1).CurrentRegion.Rows.Count
For i = 1 To m
For j = 1 To m
If .Cells(i, 1).Value = .Cells(j, 2) Then
Next
Next
End With
End SubHier zit nog iets mis denk. Maar ik ben niet zo gevorderd om dit probleem te achterhalen
groeten
merci Axel
Maar hier heb ik nog geen 2 dimensionale array.
Wanneer ik nu in Kolom B ook nog waardes invul moet ik kunnen zien welke waarden bij elkaar horen. dus wanneer er lang letter A bv B staat dan moet er in bv een matrix geschreven worden dat bij letter A, letter B hoort en zo verder als er nog letters A zijn moet dit allemaal hieronder geschreven worden. Dit is eigenlijk het grote probleem
groeten Bifi
Maar hier heb ik nog geen 2 dimensionale array.
Wanneer ik nu in Kolom B ook nog waardes invul moet ik kunnen zien welke waarden bij elkaar horen. dus wanneer er lang letter A bv B staat dan moet er in bv een matrix geschreven worden dat bij letter A, letter B hoort en zo verder als er nog letters A zijn moet dit allemaal hieronder geschreven worden. Dit is eigenlijk het grote probleem
groeten Bifi
alles van dezelfde regel hoort bij elkaar. dus alles wat in dezelfde regel staan in kolom A en kolomB moet ik onder elkaar kunnen zetten 2 dimensionale array. Als iets in kolom A dubbel voorkomt mag dat toch mr in 1 keer voor komen in mijn matrix en moet ik alles van kolom B wat hierbij hoort gewoon eronder zetten. Dus bv in Kolom A staat 2 keer A10 dan komt dat dus mr 1 keer voor in de matrix en wat bij beide A1's staat komt hier gewoon onder te staan
Je bent echt enorm fel bedankt voor uw hulp Axel
groeten
Je bent echt enorm fel bedankt voor uw hulp Axel
groeten
sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.620
hoi Bifi
wat moet er gebeuren als dit voor komt?
groet sylvester
wat moet er gebeuren als dit voor komt?
HTML:
kolom A kolom B wordt dit kolom A kolom B of kolom A kolom B
piet marie jan marie jan marie
jan marie klaas an klaas an
piet marie piet marie piet marie
piet an marie an
klaas an angroet sylvester
sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.620
hoi Bifi
een array is in vba altij een 1D omgeving niet 2D
inde help van exel staat
misschien bedoelje een 2D matrix dat is een stuk makkerlijker
je kunt zoals eerder vermeld wel in een Array meerdere Array's opslaan
dat is niet handig werken
groet sylvester
een array is in vba altij een 1D omgeving niet 2D
inde help van exel staat
HTML:
Array, functie
Geeft als resultaat een Variant met een matrix.
Syntaxis
Array(argumenten)
[B]Het vereiste argument argumenten bestaat uit een lijst met waarden die met een komma zijn gescheiden[/B].
Deze waarden worden toegewezen aan de onderdelen van de matrix die in de Variant is opgenomen.
Als u geen argumenten opgeeft, wordt een matrix met een lengte nul gemaakt.
Notities
De notatie die u gebruikt om te verwijzen naar een onderdeel van een matrix,
bestaat uit de naam van de variabele gevolgd door het indexnummer tussen haakjes van het gewenste onderdeel.
In het volgende voorbeeld stelt de eerste instructie een variabele A in als Variant.
De tweede instructie wijst een matrix toe aan de variabele A.
De laatste instructie geeft aan hoe de waarde die in het tweede matrixonderdeel is opgenomen,
aan een andere variabele wordt toegewezen.
Dim A As Variant
A = Array(10,20,30)
B = A(2)je kunt zoals eerder vermeld wel in een Array meerdere Array's opslaan
dat is niet handig werken
groet sylvester
Laatst bewerkt:
ja kweet niet juist wat het makkelijkste is.
Dit is het juiste voorbeeld wat het moet worden. Ik denk dat het de bedoeling is dat ik dan met een matrix werk.
Als dit voorbeeld niet met een 2 dimensionele array gaat
groetjes Bifi
Code:
kolom A kolom B wordt dit kolom A kolom B
piet marie jan marie
jan marie klaas an
piet marie piet marie
piet an marie
klaas an anDit is het juiste voorbeeld wat het moet worden. Ik denk dat het de bedoeling is dat ik dan met een matrix werk.
Als dit voorbeeld niet met een 2 dimensionele array gaat
groetjes Bifi
Dag Bifi,
Wat dacht je van een Combobox waar alle items van kolop A eenmaal in staan en een Listbox waarin – als je op een item van de Combobox klikt – alle bijbehorende items van kolom B staan.
Ik begrijp nog vsteeds niet wat je er mee wilt bereiken?
Gegroet,
Axel.
Wat dacht je van een Combobox waar alle items van kolop A eenmaal in staan en een Listbox waarin – als je op een item van de Combobox klikt – alle bijbehorende items van kolom B staan.
Ik begrijp nog vsteeds niet wat je er mee wilt bereiken?
Gegroet,
Axel.
ik heb het probleem opgelost
dit is de code. Nu moet ik eigenlijk alleen nog een X zetten in de matrix wanneer er de 2 waarden bij elkaar horen. Jij weet misschien niet hoe ik dat het eenvoudigste oplos.
Groeten
dit is de code. Nu moet ik eigenlijk alleen nog een X zetten in de matrix wanneer er de 2 waarden bij elkaar horen. Jij weet misschien niet hoe ik dat het eenvoudigste oplos.
Groeten
Code:
Sub VBA_Vincent()
Dim i, j, y, z, x As Integer
Dim test_waarde As String
Dim test_waarde2 As String
Dim x_value As String
Dim y_value As String
Dim punten_array() As String
Dim eindpunten_array() As String
Dim elementen() As String
Dim eindelementen() As String
Dim aantal_elementen As Integer
Dim aantal_eindelementen As Integer
Dim aantal_verschillende_elementen As Integer
Dim index As Integer
Dim test As Boolean
Dim vertrekpunt_eindpunt_kabellijst() As String
Dim vertrekpunt_eindpunt_kabellijst_comments() As String
Dim dimpoint As Integer
Dim dimpoint2 As Integer
'ReDim punten_array(1)
i = 1
Do
ReDim Preserve punten_array(i)
x_value = Cells(i, 1)
punten_array(i - 1) = x_value
i = i + 1
Loop While Cells(i, 1) <> ""
ReDim Preserve punten_array(i - 1)
j = 0
'Do While punten_array(j) <> ""
' MsgBox (punten_array(j))
' j = j + 1
'Loop
'Detectie van aantal waarden in onze array
aantal_elementen = UBound(punten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_elementen) & " ")
index = 0
ReDim Preserve elementen(1)
elementen(index) = punten_array(index)
index = 1
For y = 0 To UBound(punten_array)
test = False
For z = 0 To UBound(elementen)
If (test = False) Then
If (punten_array(y) = elementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve elementen(index)
elementen(index - 1) = punten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen in kolom 1:" & Str(UBound(elementen)))
dimpoint = UBound(elementen)
i = 1
Do
ReDim Preserve eindpunten_array(i)
y_value = Cells(i, 2)
eindpunten_array(i - 1) = y_value
i = i + 1
Loop While Cells(i, 2) <> ""
ReDim Preserve eindpunten_array(i - 1)
j = 0
'Do While punten_array(j) <> ""
' MsgBox (eindpunten_array(j))
' j = j + 1
'Loop
aantal_eindelementen = UBound(eindpunten_array)
MsgBox ("Het aantal elementen van de array: " & Str(aantal_eindelementen) & " ")
index = 0
ReDim Preserve eindelementen(1)
eindelementen(index) = eindpunten_array(index)
index = 1
For y = 0 To UBound(eindpunten_array)
test = False
For z = 0 To UBound(eindelementen)
If (test = False) Then
If (eindpunten_array(y) = eindelementen(z)) Then
test = True
End If
End If
Next z
If (test = False) Then
index = index + 1
ReDim Preserve eindelementen(index)
eindelementen(index - 1) = eindpunten_array(y)
End If
Next y
MsgBox ("Aantal verschillende elementen in kolom 2:" & Str(UBound(eindelementen)))
dimpoint2 = UBound(eindelementen)
ReDim vertrekpunt_eindpunt_kabellijst(dimpoint, dimpoint2)
ReDim vertrekpunt_eindpunt_kabellijst_comments(dimpoint, dimpoint2)
For y = 1 To (UBound(elementen))
vertrekpunt_eindpunt_kabellijst(y, 0) = elementen(y - 1)
vertrekpunt_eindpunt_kabellijst_comments(y, 0) = elementen(y - 1)
Next y
For x = 1 To (UBound(eindelementen))
vertrekpunt_eindpunt_kabellijst(0, x) = eindelementen(x - 1)
vertrekpunt_eindpunt_kabellijst_comments(0, x) = eindelementen(x - 1)
Next x
MsgBox ("Done")
End SubNee ik bedoel nog iets anders.
Wanneer je mijn progromma laat lopen. dan krijg je een matrix. Nu moet ik kijken welke waarden van kolom 2 langs de waarde in kolom in staat. hierin moet ik dan een kruisje zetten. achteraf kan ik dan met behulp van x een lijn in autocad plaatsen.
groeten
bifi
Wanneer je mijn progromma laat lopen. dan krijg je een matrix. Nu moet ik kijken welke waarden van kolom 2 langs de waarde in kolom in staat. hierin moet ik dan een kruisje zetten. achteraf kan ik dan met behulp van x een lijn in autocad plaatsen.
groeten
bifi
- Status
