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.
sweet, het werkt..quote:Op zondag 18 december 2011 12:51 schreef KritischeMassa het volgende:
tuurlijk:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
if cells(i,1)="" then exit for
Str = Str & Cells(i, 1) & ", "
Next
ActiveCell.Value = Str
End Sub
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin ik deze wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
nou
te vervangen door
SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str
te typen
caps houdt in dat je die moet vervangen door passende waarden
Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
door activecell=strquote:
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin het wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
te vervangen door
SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str
te typen
caps houdt in dat je die moet vervangen door passende waarden
Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt..quote:
nou
[..]
door activecell=str
te vervangen door
SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str
te typen
caps houdt in dat je die moet vervangen door passende waarden
Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
moet wel vet zijn als je dit allemaal kan, lijkt me.. 
Geen probleemquote:
[..]
ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt..
enne jij kan het nu toch ook?
Ja dat is waarquote:
[..]
Geen probleem
, maar jij kent/spreekt echt die codetaal, hoe je het moet aanpassen enzo.. 
Google kan je ook goed helpenquote:
[..]
Ja dat is waar
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]
dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloosquote:
Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.
De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.
Ik hoop dat El_Presidente geïnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.
Zijn we niet allemaal begonnen door te vragen?
Nee, maar zelf doorzoeken op een antwoord wat hier gegeven wordt is imho leerzamerquote:
[..]
dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloos
Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.
Je gaf El_presidente een zet in de goede richting, iets wat met google mss niet gelukt was, maar google had daarna wel kunnen helpen denk ik
Ja, en mede daarom blijf ik hier ook nog steeds hangenquote:De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.
Ik hoop dat El_Presidente geïnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.
Zijn we niet allemaal begonnen door te vragen?
Misschien dat ik wat verder ben qua Excelkennis en VBA een beetje kan lezen en daardoor een code makkelijker werkend kan krijgen..
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]
Ben het deels eens met qu63. Je had een goede voorzet gegeven, de overige vragen had hij zelf wel over kunnen nadenken en uitvogelen...
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op
Ja ok, maar ik heb een hekel aan "google is your friend" reacties, ze voegen zelden wat toe.
Maar op verzoek:
een volledige verwijzing die onafhankelijk van de sheet of module waar de code instaat ziet er als volgt uit:
workbooks("werkboeknaam").sheets("sheetnaam").cells(RIJNUMMER, KOLOMNUMMER)
[ Bericht 5% gewijzigd door #ANONIEM op 18-12-2011 17:52:36 ]
Maar op verzoek:
| 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 | Sub AddCellVal() 'open een subroutine met een herkenbare naam Dim Str As String 'declareer een string variabele met de naam Str Dim i As Integer 'declareer teller i als integer (waarde van -32000 tot +32000) 'we maken een loop met een teller 'in de for loop tellen we met stappen van 1 tot 50 'je kan ook met stappen van bijvoorbeeld twee tellen door 'for i = 1 to 50 step 2 te gebruiken 'werken met een teller is handig omdat we de teller 'meteen gebruiken voor navigatie door de sheet For i = 1 To 50 'als er een lege cel wordt aangetroffen stopt de loop 'door "exit for" if cells(i,1)="" then exit for 'als er geen lege cel wordt aangetroffen 'rijgen we de stringvariabele "Str" met de celwaarden aaneen 'voorzien van een ", " komma spatie 'we lopen door de sheet heen waarin de code is 'aangebracht. Als je deze code vanuit een andere sheet of uit een module draait 'moet je aanwijzen waar de cells zich bevinden door 'bijvoorbeeld sheets("SHEETNAAM").cells(RIJ,KOLOM) of activesheet.cells(RIJ,KOLOM) 'ik maak gebruik van cells in plaats van Range omdat ik dan kan tellen door zowel 'rijen als kolommen (range vraagt celnamen, bv "A1") Str = Str & Cells(i, 1) & ", " 'door de statement "Next" springt de code terug naar het begin van de loop 'als de for loop wordt onderbroken door "exit for" of als er tot 50 is geteld 'gaat de code verder na de "next" statement Next 'De cel die geselecteerd was toen je de code liet draaien 'is de active cell, alternatief kun je verwijzen naar een statische cel 'door deze vast te zetten, bijvoorbeeld cel C1 -> activesheet.cells(1,3) of 'cel C1 in een tabblad met de naam "resultaat" -> sheets("resultaat").cells(1,3) 'ook kun je in dit geval gebruik maken van Range: sheets("resultaat").range("C3") 'zie ook activeworkbook en worbooks("workbooknaam") om 'tussen twee verschillen excel workbooks te schakelen ActiveCell.Value = Str End Sub |
een volledige verwijzing die onafhankelijk van de sheet of module waar de code instaat ziet er als volgt uit:
workbooks("werkboeknaam").sheets("sheetnaam").cells(RIJNUMMER, KOLOMNUMMER)
[ Bericht 5% gewijzigd door #ANONIEM op 18-12-2011 17:52:36 ]
Ik heb een excel bestand waarin vanuit een ander bestand plaatjes zijn geplakt. Kan ik op 1 of andere manier excel deze plaatsjes laten lezen, dus bijvoorbeeld wanneer er ergens een plaatje van een plusje staat dat excel dat herkent?
ook niet met een gave sumproduct-formule?quote:
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
I wish... Fap fap fapquote:Op vrijdag 23 december 2011 14:24 schreef Deetch het volgende:
[..]
ook niet met een gave sumproduct-formule?
Nou ja... http://social.msdn.micros(...)e3-b4e2-0976950ae9faquote:
http://joymonscode.blogsp(...)from-excel-file.html
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]
Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.quote:
[..]
Nou ja... http://social.msdn.micros(...)e3-b4e2-0976950ae9fa
http://joymonscode.blogsp(...)from-excel-file.html
Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)
dus, geen kans
Owquote:
[..]
Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.
Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)
dus, geen kans
Had het artikel ff snel gescand, niet goed gelezen dus
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]
zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zoquote:
[..]
Ow
Nou ja, een zwart plusje op een witte achtergrond is wel heel anders dan kromme, onduidelijke letters op een gekleurde achtergondquote:
[..]
zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zo
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]
Het kan best, er zijn open source OCR bibliotheken die je met excel (al dan niet met wat klussen) aan kan spreken.
Het waarom blijft echter.
Het waarom blijft echter.
Dat had ik ook al aangegeven in post #43 maar ik vraag me af in hoevere die gedocumenteerd en open zijn. Daarbij inderdaad, hoe interessant is het om je erin te verdiepen, ik ben het zelf nog nooit tegengekomen (de wens om plaatjes te lezen in excel)quote:
Het kan best, er zijn open source OCR bibliotheken die je met excel (al dan niet met wat klussen) aan kan spreken.
Het waarom blijft echter.
Ik loop al een dag te worstelen met een probleem dat volgens mij redelijk makkelijk opgelost kan worden. Ik heb een uitgebreide database (>500.000 records) met privacy gevoelige informatie waar ik graag wat analyses op los wil laten. Omdat ik deze database helaas niet kan delen, heb ik een document bijgevoegd waarin ik enkele fictieve gegevens heb genoteerd, maar waarop ik wat betreft systemathiek vergelijkbare analyses wil draaien.
Het bijgevoegde voorbeeld kent drie bladen; één met filtercriteria , één met de database en één waarin de output geplaats moet worden. Op basis van de criteria geplaatst in het eerste blad wil ik graag in het derde blad alle spelers krijgen die aan beide criteria voldoen. Omdat sommige spelers meerdere keren voorkomen in de database, zou ik graag zien dat elke speler maar één keer in het derde blad (de output) terecht komt.
Ik redelijk thuis in Excel, maar van het programmeren in VBA heb ik absoluut geen kaas gegeten. Met filteren kom ik al een heel eind, maar de slag naar unieke records kan ik maar niet slaan. Daarnaast zou het ook heerlijk zijn om alleen maar criteria in te hoeven vullen in plaats van telkens de filters aan te passen. Volgens mij moet dit mogelijk zijn met behulp van VBA, maar ik ken de krachten van die tool ook niet echt goed...
http://www.mediafire.com/?h4sx6dmyjf5oh5d
Het bijgevoegde voorbeeld kent drie bladen; één met filtercriteria , één met de database en één waarin de output geplaats moet worden. Op basis van de criteria geplaatst in het eerste blad wil ik graag in het derde blad alle spelers krijgen die aan beide criteria voldoen. Omdat sommige spelers meerdere keren voorkomen in de database, zou ik graag zien dat elke speler maar één keer in het derde blad (de output) terecht komt.
Ik redelijk thuis in Excel, maar van het programmeren in VBA heb ik absoluut geen kaas gegeten. Met filteren kom ik al een heel eind, maar de slag naar unieke records kan ik maar niet slaan. Daarnaast zou het ook heerlijk zijn om alleen maar criteria in te hoeven vullen in plaats van telkens de filters aan te passen. Volgens mij moet dit mogelijk zijn met behulp van VBA, maar ik ken de krachten van die tool ook niet echt goed...
http://www.mediafire.com/?h4sx6dmyjf5oh5d
Beste Thijs,
Ik heb de file bekeken en dat is heel goed mogelijk, ik zou dit in een handomdraai kunnen programmeren, echter, wat is jouw doel?
Wil je een kant en klaar product of wil je leren hoe je het aan moet pakken?
Daarbij heb ik wel aanvullende vragen over de filtercriteria, namelijk in je eerste criteria "kwaliteit" noem je eigenlijk twee keuzemogelijkheden.
Wil je dus een formulier met drie rolmenutjes die als volgt heten:
Kwaliteit 1
Kwaliteit 2 (optioneel)
Lengte
En dan een ok button die alle unieke spelers in blad drie neergooit?
[ Bericht 0% gewijzigd door #ANONIEM op 29-12-2011 19:38:53 ]
Ik heb de file bekeken en dat is heel goed mogelijk, ik zou dit in een handomdraai kunnen programmeren, echter, wat is jouw doel?
Wil je een kant en klaar product of wil je leren hoe je het aan moet pakken?
Daarbij heb ik wel aanvullende vragen over de filtercriteria, namelijk in je eerste criteria "kwaliteit" noem je eigenlijk twee keuzemogelijkheden.
Wil je dus een formulier met drie rolmenutjes die als volgt heten:
Kwaliteit 1
Kwaliteit 2 (optioneel)
Lengte
En dan een ok button die alle unieke spelers in blad drie neergooit?
[ Bericht 0% gewijzigd door #ANONIEM op 29-12-2011 19:38:53 ]
