[Excel] Het grote Excel vragen topic #32

Welkom bij “Het grote Excel vragentopic” waar je terecht kan met vragen over Excel.

In dit topic is het de bedoeling dat we gericht vragen stellen en antwoorden geven op de gestelde vragen. Om alles zo goed mogelijk te laten verlopen zijn er een aantal regels.

Regels
1. Als je een vraag stelt, zet er dan bij welke versie van Excel je hebt en op welke taal hij ingesteld staat.
2. Zet macrocode tussen [ code ] tags
3. Als het “pseudo-code” is, vermeldt dit dan duidelijk
4. Er bestaan geen domme vragen, wel domme antwoorden. Als jouw antwoord niet gaat bijdragen, geef het antwoord dan niet.
5. Dit topic is geen “code-FEBO” waar je half opgewarmde code uit de muur trekt, het is de bedoeling dat je er zelf iets van leert.

Definities
Functie Een interne functie die bij Excel is geleverd.
UDF Een “user definded function”, een zelfgebouwde functie
Macro Een stuk code die opdrachten uitvoert, gebouwd in (meestal) de VBA editor
Add-In Een Excel workbook met VBA-code (of C#, C) die als .xla (of .xll) is opgeslagen, deze is als vaste plug-in in Excel te plaatsen.
Workbook Het excelbestand
Sheet of Worksheet Het tabblad
Form, Formulier, Userform Een Dialoogvenster in VBA gebouwd

Tips & Links
De help functie van excel of visual basic voor excel kan je een eind op weg helpen. (F1)

Het workbook met het FOK!-menu zoals in de banner weergegeven is hier te vinden. Dit menu is naar wens aan te passen. De icoontjes in het menu zijn hier allemaal weergegeven. In dit workbook zijn drie macro's aanwezig: Een printertool waarmee je uit meerder workbooks sheets kan selecteren voo afdrukken, een power replace die termen kan wijzigen in meerdere workbooks tegelijk en een formule vertaler, de formule in de actieve cell wordt in het engels weergegeven, je kan ook een engelse formule invoeren die dan in de actieve cell in de geldende taal wordt geplaatst. De UDF is naar aanleiding van een vraag in topic #29. De functie kan worden aangeroepen door in een cel =FOK() te typen en dan op de Fx te klikken voor uitleg over de variabelen.

De VBA editor bereik je door ALT+F11 in te drukken. Vanaf Excel 2007 is de VBA editor lastiger te vinden. Op deze site wordt uitgelegd hoe je de editor kan activeren.

De interne functies zijn afhankelijk van welke taal jouw Excel draait. Op deze en deze site kun je de formules in verschillende talen vertalen.

De meer uitgebreide macro's kunnen traag worden, ook kan het scherm flikkeren als gevolg van veel "select" acties. Deels kun je dit ondervangen door zo veel mogelijk select acties te vervangen door directe verwijzingen naar cells en deels door een macro-optimalisatie door te voeren. In de onderstaande code is een routine voor macro-optimalisatie en een routine om de optimalisatie weer uit te zetten weergegeven. In de voorbeeld sheet is een uitgebreide versie van MOA en MOU opgenomen.

SPOILER

Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Bij macro's die een bepaalde, merkbare, tijd nodig hebben om hun werk te doen is het van belang de gebruiker een idee te geven van wat er gebeurt, zeker met macro-optimalisatie aan kan het lijken alsof Excel is vastgelopen. Je kan bijvoorbeeld de statusbar een waarde geven, met eventueel een percentage van de reeds uitgevoerde code.

SPOILER

Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Mooi, grappig en cool
Een uitgebreide site met nuttige en minder nuttige excelsheetjes. Van kekke grafieken om je manager of leraar te betoveren via oscillogrammen en simulatoren tot pong voor als het weer een typische vrijdagmiddag is: Excelunusual

Verder
Alle vorige topics zijn hier terug te vinden.

Nieuw topic? Haal de OP uit de wiki

[ Bericht 1% gewijzigd door Deetch op 01-05-2012 12:59:37 ]

mooi om de komkommertijd mee te vullen

Alleen het hoogst geplaatste team van een stad krijgt dus punten. Dat is dan toch niet eerlijk als je met je groningen 2 team 2x boven groningen 1 komt dan ben je dus als groningen 1 in hte nadeel. of is er ook een team ranking?

Ik zou in ieder geval overald de "punten" weglaten zodat je alleen cijfers hebt.

Kolom A1 en verder, teamnamen incl volgnummer
Kolom B score (aflopend gesorteerd)
Nieuwe kolom C: geschoonde namen =LEFT(A1,LEN(A1)-2)
Nieuwe kolom D, geschoonde punten
Cel D1: =B1
Cel D2 en verder =IF(ISERROR(VLOOKUP(C2,$C$1:C1,1,FALSE)),B2,0)

Optellen per stad:
=SUMIF(C1:C5,"groningen",D1:D5)

quote:

Op dinsdag 1 mei 2012 15:37 schreef VASND het volgende:

[..]

Top!
In de praktijk komen deelnemers per stad, onderverdeeld in verschillende teams. Ze werken dus naar een overwinning voor hun stad toe, niet per sé individueel. (voor de beeldvorming, het gaat hier over 11 steden).
Om de grootte van de afvaardiging (soms verschillen van 200 vs 50) minder invloedrijk te maken is er voor deze methode gekozen.

Zeer bedankt, hier kan ik weer even mee verder!

Oh ja, nog even een opmerking voor de functie van de geschoonde namen. Dit gaat dus alleen goed als de teamnamen minus de laatste 2 tekens alleen voor de zelfde stad hetzelfde zijn.
Dus "groningen 1" en "groningen 2" gaat goed maar "amsterdam" en "amsterdom" gaat dus mis omdat de geschoonde naam dan in beide gevallen "amsterd" is
Ook "Utrecht 1" en "Utrecht 21" gaat mis omdat de geschoonde namen dan "Utrecht" en "Utrecht " (met spatie) wordt. Dus als je teams hebt met een volgnummer >9 dan moet je =LEFT(A1,LEN(A1)-3) doen.

quote:

Op woensdag 2 mei 2012 08:50 schreef qu63 het volgende:

[..]

Kan je dan niet beter op zoek naar de laatste spatie en vanaf daar afkappen?

Dat is natuurlijk veel beter: =LEFT(A1,FIND(" ",A1)-1)

Dat gaat alleen mis dan met Den Bosch en Den Haag want dat wordt allebei "Den"
en met teams zonder spatie.

Dit is nog beter dan: =IFERROR(LEFT(A1,FIND(" ",A1)-1),A1)

Maar hoe doe je de laatste spatie vinden dan? Kun je met find ook vanaf rechts zoeken?
Al googelend kom ik wat leuke shizzle tegen.

positie van laatste spatie vinden:
=FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))

laatste woord in een tekststring:
=RIGHT(A1,LEN(A1)-FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ","")))))

alle tekst voor de laatste spatie:
=LEFT(A1,FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))+1)

Bron: http://stackoverflow.com/(...)el-without-using-vba
Hierin wordt ook uitgelegd hoe je om moet gaan met bijzondere gevallen (geen spatie, laatste teken is een spatie etc)

en een hendig sjieke UDF om een tekstring om te draaien:

quote:

Op woensdag 2 mei 2012 20:19 schreef McGilles het volgende:

[..]

Maar dan elke , moet een ; worden.

=RIGHT(A1;LEN(A1)-FIND("|";SUBSTITUTE(A1;" ";"|";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))

Tja dat verschilt per taalversie en windows instelling.

Windows instelling: lijstscheidingsteken of list seperator kan dus een ; of , zijn

Office instelling: taal NL of EN: nederlandse functienamen of engelse

Meestal heb je de combinatie ; met NL functie namen of , met EN functie namen

Kolom F invoegen met de vermenigvuldiging van de oude H, I en J. vervolgens Vlookup doen op de waarde 0