DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Vraag dat aan degenen die de dataset leverden. Meestal geven ze kleine sets als excel formaat, maar nu dus een keer een snoeigrote comma-delimited text file. Vandaar dat ik die om te beginnen met excel wilde openenquote:Op donderdag 25 augustus 2011 14:58 schreef ralfie het volgende:
[..]
Waarom zou je in godesnaam excel voor zoiets gebruiken?
Ik ga heel andere tools dan excel gebruik om nut van deze set te gaan hebben, wees gerust
I'm surrounded by morons!
TRV plannen/geboekt 2024:Nederland, UK, Nederland, Denemarken, UK, Nederland, Nederland
TRV 2023: Bangkok, Los Angeles, Nederland/Belgie, Denemarken, Noord-Noorwegen, Londen, Thailand, Nederland, Gdansk, Nederland, Japan
TRV 2022: Los Angeles, New York, Nederland, Los Angeles, Nederland/Duitsland/Belgie, Noord-Noorwegen, Nederland, UK
TRV plannen/geboekt 2024:Nederland, UK, Nederland, Denemarken, UK, Nederland, Nederland
TRV 2023: Bangkok, Los Angeles, Nederland/Belgie, Denemarken, Noord-Noorwegen, Londen, Thailand, Nederland, Gdansk, Nederland, Japan
TRV 2022: Los Angeles, New York, Nederland, Los Angeles, Nederland/Duitsland/Belgie, Noord-Noorwegen, Nederland, UK
lol, een csv kun je toch ook wel in acces inlezen?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
niet zo heel erg denk ikquote:Op donderdag 25 augustus 2011 15:41 schreef DaFan het volgende:
En in SQL.
Weet niet hoe blij een huis, tuin en keukendatabaseprogramma wordt van 6 miljoen rijen.
hier had ik nou een smilie "lacht achter hand" willen hebben
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
6 miljoen zou Access wel aan moeten kunnen als je niet al te gekke dingen wil doen met de data. Ik heb het wel eerder gedaan en dat ging prima.
reset
Mee eens, al je er niet te veel mee doet, en als het maar lokaal staat 
Op een netwerk moet je er niet echt aan denken.
Op een netwerk moet je er niet echt aan denken.
Vraagje m.b.t mijn macro'tje
Heb de volgende spreadsheet:
A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1
A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2
.
.
A9 B9 C9 D9 E9 F9 G9 H9 I9 J9 K9
.
.
etc
Ik wil via een macro kijken of de getallen A1 t/m J1 groter zijn dan K1.
Zelfde geldt voor rij 2, dus A2 t/m J2 groter dan K2
Heb nu deze VBA code
If Range("A1").Offset(g, i) > Range("K11").Offset(g) Then
[berekening]
Werkt prima, totdat er in kolom K (bij K9) een negatief getal staat.
Krijg dan een runtime error:6, overflow.
Dit zou volgens de berekeningen niks moeten uitmaken. Er wordt bijvoorbeeld niet gedeeld door 0.
Een FOK!ker die mij uit de brand kan helpen?
Heb de volgende spreadsheet:
A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1
A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2
.
.
A9 B9 C9 D9 E9 F9 G9 H9 I9 J9 K9
.
.
etc
Ik wil via een macro kijken of de getallen A1 t/m J1 groter zijn dan K1.
Zelfde geldt voor rij 2, dus A2 t/m J2 groter dan K2
Heb nu deze VBA code
If Range("A1").Offset(g, i) > Range("K11").Offset(g) Then
[berekening]
Werkt prima, totdat er in kolom K (bij K9) een negatief getal staat.
Krijg dan een runtime error:6, overflow.
Dit zou volgens de berekeningen niks moeten uitmaken. Er wordt bijvoorbeeld niet gedeeld door 0.
Een FOK!ker die mij uit de brand kan helpen?
Deze werkt gewoon prima bij mij
| 1 2 3 4 5 6 7 8 9 10 | Dim LastRow LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow For j = 1 To 9 If Cells(i, j).Value > Range("K" & i).Value Then MsgBox Cells(i, j).Address End If Next j Next i |
Ik heb het vandaag tijden de toets geprobeerd en het is gelukkig gelukt. Ik snap niet wat ik anders had gedaan dan de vorige kerenquote:
[..]
@s-h: is het gelukt? Die link is voor de data structuur. Al die data kan je selecteren en dan krijg je een as met 2 categorieen.
Misschien niet van alle data's de gemiddelde genomen ? iig is het gelukt, tnx voor het vragen
quote:Op donderdag 25 augustus 2011 18:19 schreef DaFan het volgende:
Moet je er niet gewoon ff .Value achterzetten (achter Offset())
Top, ik ga het morgen allebei even proberen!quote:
Deze werkt gewoon prima bij mij
[ code verwijderd ]
Ben niet zo ervaren met VBA, dus het kan zijn dat mijn code erg inefficient is.
Kopieer en leerquote:Op donderdag 25 augustus 2011 23:06 schreef Rejected het volgende:
Top, ik ga het morgen allebei even proberen!
Ben niet zo ervaren met VBA, dus het kan zijn dat mijn code erg inefficient is.
beste iedereen ik heb ook vraagje
excel 2007 engels
ik wil voor iemand een workbook aanmaken die van zichzelf password protected is,
dat is niet zon drama snel gedaan.
maar ook aparte sheets password protecten maar dan ook dat ze niet zichtbaar zijn.
dus liever ook geen hide functie oid maar net zoals een workbook password protected krijgen.
en dan per sheet een apart wachtwoord in kunnen stellen.
(is om meerdere groepen mensen met verschillende rechten met sheets kunnen laten werken)
mocht het zo zijn dat deze vraag al eerder is beantwoord , dan excuus voor posten heb aantal pagina's doorgezocht maar niks kunnen vinden.
grgr henk&ingrid
excel 2007 engels
ik wil voor iemand een workbook aanmaken die van zichzelf password protected is,
dat is niet zon drama snel gedaan.
maar ook aparte sheets password protecten maar dan ook dat ze niet zichtbaar zijn.
dus liever ook geen hide functie oid maar net zoals een workbook password protected krijgen.
en dan per sheet een apart wachtwoord in kunnen stellen.
(is om meerdere groepen mensen met verschillende rechten met sheets kunnen laten werken)
mocht het zo zijn dat deze vraag al eerder is beantwoord , dan excuus voor posten heb aantal pagina's doorgezocht maar niks kunnen vinden.
grgr henk&ingrid
quote:
Deze werkt gewoon prima bij mij
[ code verwijderd ]
Het lukt allebei niet.quote:
Moet je er niet gewoon ff .Value achterzetten (achter Offset())
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Sub momentum() countw = 0 k = 3 For g = 0 To 500 Step 1 'aantal rijen countw = 0 Dim winc As Double decilew = Range("AA5").Offset(g).Value For i = 0 To 24 Step 1 'aantal kolommen If Range("B5").Offset(g, i).Value > decilew Then 'hoger? count w = countw + 1 win = (Range("Prijzen!B5").Offset(k + g, i).Value / Range("Prijzen!B5").Offset(g, i).Value) - 1 Range("AC2").Offset(countwinner - 1).Value = win EndIf Next i Next g |
Als groter, dan berekening. Gaat allemaal goed totdat AA5 een negatief getal is, krijg dan een Overflow error.
Bij debug wordt regel 15 geel gemarkeerd, dan zit de fout denk ik hierin.
Wanneer ik die regel uitsplits:
| 1 2 3 | a = Range("Prijzen!B5").Offset(omlaag, i).Value b = Range("Prijzen!B5").Offset(g, i).Value winner = (a / b) - 1 |
Krijg ik de foutmelding in regel 3. Ik kan a blijkbaar niet delen door b, terwijl dit wiskundig wel mogelijk is (b is nooit nul).
Wanneer ik deze waarden bijv optel, dan krijg ik de foutmelding niet.
| 1 | winner = a + b |
[ Bericht 19% gewijzigd door Rejected op 26-08-2011 18:51:41 ]
Je mist nog een paar .Value
Daarnaast is je code een bende ik zal straks, als Deetch me niet voor is, stukjes herschrijven en toelichten.
Daarnaast is je code een bende ik zal straks, als Deetch me niet voor is, stukjes herschrijven en toelichten.
Wat zijn die "Step 1" verwijzingen op regel 5 en 10?quote:
[..]
[..]
Het lukt allebei niet.
[ code verwijderd ]
In B5 t/m Y5 heb ik dus waarden zitten die ik wil vergelijken met cel AA5.
Als groter, dan berekening. Gaat allemaal goed totdat AA5 een negatief getal is, krijg dan een Overflow error.
Bij debug wordt regel 15 geel gemarkeerd, dan zit de fout denk ik hierin.
Wanneer ik die regel uitsplits:
[ code verwijderd ]
Krijg ik de foutmelding in regel 3. Ik kan a blijkbaar niet delen door b, terwijl dit wiskundig wel mogelijk is (b is nooit nul).
Wanneer ik deze waarden bijv optel, dan krijg ik de foutmelding niet.
[ code verwijderd ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Met Step kan je aangeven hoe groot de stapgrootte van je For loop moet zijn (bv 0,1). Hier is het overbodig.quote:
[..]
Wat zijn die "Step 1" verwijzingen op regel 5 en 10?
En wat is 'omlaag' nou weer dan?
PAste even je volledige code en een deel van je sheet waar de fout in staat.
PAste even je volledige code en een deel van je sheet waar de fout in staat.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | Sub Momentum2() Dim countwinner As Integer Dim countloser As Integer Dim decw As Double Dim decl As Double k = 3 For g = 0 To 30 Step 1 decw = Range("AA5").Offset(g).Value decl = Range("AB5").Offset(g).Value countloser = 0 countwinner = 0 Dim omlaag As Integer omlaag = k + g For i = 0 To 24 Step 1 'winner of loser? If Range("B5").Offset(g, i).Value > decw Then 'winner? countwinner = countwinner + 1 Dim qwn As Long Dim qwo As Long qwn = Range("Prijzen!B5").Offset(omlaag, i).Value qwo = Range("Prijzen!B5").Offset(g, i).Value winner = (qwn / qwo) - 1 Range("AC2").Offset(countwinner - 1).Value = winner ElseIf Range("B5").Offset(g, i).Value < decl Then 'loser? countloser = countloser + 1 loser = -((Range("Prijzen!B5").Offset(omlaag, i).Value / Range("Prijzen!B5").Offset(g, i).Value) - 1) Range("AD2").Offset(countloser - 1).Value = loser End If Next i Range("AE1") = countwinner + 1 Range("AJ1").Formula = "=SUM(INDIRECT(""AC2:AC""&AE1))" sumwin = Range("AJ1").Value If countwinner = 0 Then Range("AE5").Offset(g) = 0 Else: Range("AE5").Offset(g) = sumwin / countwinner End If Range("AF1") = countloser + 1 Range("AK1").Formula = "=SUM(INDIRECT(""AD2:AD""&AF1))" sumlose = Range("AK1").Value If countloser = 0 Then Range("AF5").Offset(g) = 0 Else: Range("AF5").Offset(g) = sumlose / countloser End If If countwinner + countloser = 0 Then retmom = (sumlose + sumwin) / 1 Else: retmom = (sumlose + sumwin) / (countwinner + countloser) End If Range("AG5").Offset(g) = retmom Next g End Sub |
Het gaat dus fout bij regel 28 doordat AA27 negatief is.
[ Bericht 0% gewijzigd door Rejected op 26-08-2011 23:26:26 ]
Ok.
Als ik het zo zie denk ik niet dat je een macro nodig hebt voor wat je probeert te bereiken. Het is alleen een beetje delen door elkaar en de cel vullen etc. maar goed dat moet je zelf weten.
Heb je ook een idee welke waardes qwo en qwn hebben? (en evt i, dan weet je ook welke cellen je door elkaar deelt)
Je kan ook je code handmatig starten met F8 en dan elke keer met F8 erdoor heen lopen (ingedrukt houden tot je foutmelding krijgt). Dan kan je je muis hoveren boven een variable en krijg je de waarde te zien.
Als ik het zo zie denk ik niet dat je een macro nodig hebt voor wat je probeert te bereiken. Het is alleen een beetje delen door elkaar en de cel vullen etc. maar goed dat moet je zelf weten.
Heb je ook een idee welke waardes qwo en qwn hebben? (en evt i, dan weet je ook welke cellen je door elkaar deelt)
Je kan ook je code handmatig starten met F8 en dan elke keer met F8 erdoor heen lopen (ingedrukt houden tot je foutmelding krijgt). Dan kan je je muis hoveren boven een variable en krijg je de waarde te zien.
Leek me handig om een macro te schrijven, maar gezien de moeite Is misschien inderdaad makkelijker door de sheet te vergroten met formules.
Als ik qwo en qwn handmatig op elkaar deel krijg ik een hele normale waarde. Dus ik snap niet zo goed waar die foutmelding vandaan komt.
Nogmaals bedankt voor alle moeite!
edit: i moest lopen van 0 t/m 23!
[ Bericht 17% gewijzigd door Rejected op 27-08-2011 00:05:34 ]
Als ik qwo en qwn handmatig op elkaar deel krijg ik een hele normale waarde. Dus ik snap niet zo goed waar die foutmelding vandaan komt.
Nogmaals bedankt voor alle moeite!
edit: i moest lopen van 0 t/m 23!
[ Bericht 17% gewijzigd door Rejected op 27-08-2011 00:05:34 ]
Is er een (liefst makkelijke) manier om met een formule aan het einde van een rij aan te geven hoeveel cellen zijn ingevuld?
Thanks! Ik zat met de count te rommelen, was me niet bewust dat die commando's in de nederlandse Excell anders warenquote:
