[Excel] Het grote Excel vragen topic #33

quote:

Op donderdag 23 augustus 2012 12:40 schreef qu63 het volgende:

[..]

In dit of het vorige topic is dezelfde vraag ook al langesgekomen, inclusief antwoord

Dan ga ik het even doorspitten.

quote:

Op donderdag 23 augustus 2012 12:40 schreef qu63 het volgende:

[..]

In dit of het vorige topic is dezelfde vraag ook al langesgekomen, inclusief antwoord

Gevonden en (veel te makkelijk ) opgelost. Bedankt voor de heads up.

Ola!

Ik gebruik om het aantal keren te tellen dat een Nee of Ja uit cellen voorkomt het volgende:

Sub Copy_()
MsgBox Evaluate("Sum(COUNTIF(A:L,{""Nee"",""Ja""}))")
End Sub

Dat werkt prima. Alleen nu heb ik grote cellen met lange strings, dus ik wil dat hij door de hele string heen telt. Nu vind het script namelijk alleen 'schone' cellen met los een Nee of een Ja en bijv. niet in cellen waar Ja Nee achter elkaar staan.

Nou heb ik deze code gezien, maar ik kom er niet uit hoe ik precies moet invullen?

MsgBox Evaluate("Sum(COUNTIF(A:L,{""" & Join(v, """,""") & """}))")

Heb natuurlijk al een en ander geprobeerd, maar het lukt vooralsnog niet..

[ Bericht 0% gewijzigd door Stringer op 29-08-2012 22:32:55 ]

-dubbel-

Voor mij is er net te weinig info om de vraag te beantwoorden. Je kan namelijk verschillende dingen willen.

Optie 1: Je wilt het aantal cellen tellen waarin ja of nee in voorkomt (ongeacht of er meer info in staat).
Gebruik wildcards in je huidige code door het toevoegen van *
MsgBox Evaluate("Sum(COUNTIF(A:L,{""*Nee*"",""*Ja*""}))")

Optie 2: Je wilt het aantal cellen tellen de som van het aantal cellen met ja en de som van het aantal cellen met nee. (in dit geval tel je dus een cel met ja nee 2 keer, maar 1 keer wanneer er meerdere keren ja in staat.)

quote:

Dim i As Integer
Dim myCell, rRange As Range
'Aan de hand van deze rRange zorg ik dat je alleen de beschreven cellen in A:L doorloopt
'formules worden niet meegenomen.
Set rRange = ActiveSheet.Range("A:L").SpecialCells(xlCellTypeConstants)

For Each myCell In rRange
'wanneer die ja bevat dan moet je hem meenemen
If myCell Like "*ja*" Then
i = i + 1
End If
'wanneer die nee bevat ook meenemen
If myCell Like "*nee*" Then
i = i + 1
End If
Next myCell
Set rRange = Nothing

maar wellicht nog iets anders?

quote:

Op woensdag 29 augustus 2012 23:10 schreef snabbi het volgende:
Voor mij is er net te weinig info om de vraag te beantwoorden. Je kan namelijk verschillende dingen willen.

Optie 1: Je wilt het aantal cellen tellen waarin ja of nee in voorkomt (ongeacht of er meer info in staat).
Gebruik wildcards in je huidige code door het toevoegen van *
MsgBox Evaluate("Sum(COUNTIF(A:L,{""*Nee*"",""*Ja*""}))")

Optie 2: Je wilt het aantal cellen tellen de som van het aantal cellen met ja en de som van het aantal cellen met nee. (in dit geval tel je dus een cel met ja nee 2 keer, maar 1 keer wanneer er meerdere keren ja in staat.)

[..]

maar wellicht nog iets anders?

Dank voor je antwoord! Ik denk dat ik er zo uit kom.. (anders kom ik nog even terug ;-)

Thanks!!!

[ Bericht 6% gewijzigd door Stringer op 30-08-2012 00:01:54 ]

Let wel op, dat hij het dus maar 1 keer telt wanneer het meerdere keren voorkomt in 1 cel:

quote:

Dim aantalJa, aantalNee, AantalJaNee As Integer
Dim myCell, rRange As Range
Set rRange = ActiveSheet.Range("A:L").SpecialCells(xlCellTypeConstants)

For Each myCell In rRange

If Lcase(myCell.value) Like "*ja*" And Lcase(myCell.value) Like "*nee*" Then
AantalJaNee = AantalJaNee + 1
ElseIf Lcase(myCell.value) Like "*ja*" Then
aantalJa = aantalJa + 1
ElseIf lcase(myCell.value) Like "*nee*" Then
aantalNee = aantalNee + 1
End If
Next myCell
Set rRange = Nothing

*edit: even Lcase toegevoegd zodat alles naar lower case gaat en hij Ja JA en jA ook meetelt.

Mocht je ook binnen een cel meerdere keren willen tellen, dan moeten we daar iets aparts voor schrijven.

[ Bericht 4% gewijzigd door snabbi op 30-08-2012 00:09:19 ]

quote:

Op donderdag 30 augustus 2012 00:00 schreef snabbi het volgende:
Let wel op, dat hij het dus maar 1 keer telt wanneer het meerdere keren voorkomt in 1 cel:

[..]

Mocht je ook binnen een cel meerdere keren willen tellen, dan moeten we daar iets aparts voor schrijven.

ah dank, had even ge-eddited, ben een beetje onduidelijk vanwege het late tijdstip.

Top dankje, morgen verder ;-)

De context is alles bepalend. In mijn voorbeeld wordt een cel met de waarde "ja nee" dus niet meegeteld in het aantal ja's. Dit komt doordat hij eerst kijkt of het en een ja-nee is. Wanneer dit niet zo is, dan test hij nog of het wel een ja bevat.

Dit is ook de reden waarom ik schrijf dat het lastig is je vraag te beantwoorden. Wanneer moet iets wel geteld worden, wanneer niet.

Is het in excel 2007 ook mogelijk om een macro blijvend te maken voor alle documenten.

als ik nu 1 aanmaak blijft hij alleen voor het huidige document?

quote:

Op donderdag 30 augustus 2012 21:34 schreef gerrit098 het volgende:
Is het in excel 2007 ook mogelijk om een macro blijvend te maken voor alle documenten.

als ik nu 1 aanmaak blijft hij alleen voor het huidige document?

Het is mogelijk op de volgende manier:
- Schrijf je code in je Visual Basic editor.
- Sluit de editor en in het normale office document kies je voor Opslaan als
- Kies voor het bestandstype invoegtoepassing (*.xlam)
- Ga nu onder de office knop naar Excel opties
- Kies voor Invoegtoepassingen. Hij staat standaard op Excel invoegtoepassingen. Klik op de knop start.
- Kies nu je bestand.

Voortaan wordt deze invoegtoepassing met jouw specifieke macro ook opgeladen wanneer Excel opent.

*edit
Deze manier werkt alleen voor het aanroepen van een formule in je werkblad. Wanneer je daadwerkelijk subroutines wilt openen moet je naar mijn volgende post gaan.

[ Bericht 7% gewijzigd door snabbi op 31-08-2012 21:45:53 ]

Ik heb het geprobeerd stap voor stap. maar het lukt niet, als ik excel weer open is het qua macro niet terug te vinden

quote:

Op vrijdag 31 augustus 2012 16:47 schreef gerrit098 het volgende:
Ik heb het geprobeerd stap voor stap. maar het lukt niet, als ik excel weer open is het qua macro niet terug te vinden

Ok ik ben inderdaad een beetje snel gegaan. De eerder genoemde methode werkt alleen voor macro's die je hebt geschreven om vanaf je werkboek als formule aan te roepen (de zogenaamde public functions).

Oorzaak probleem
Wellicht had je al gezien dat door het maken van de invoegtoepassing er in je Visual Basic editor een extra project bij is gekomen in je Project editor. Dit extra project zorgt er ook voor dat je vanaf je workbook de functie wel kunt aanroepen. Het hele probleem is eigenlijk gewoon dat je routines in een ander bestand staan en de manier van aanroepen laat alleen het huidige bestand zien.

Voor beide oplossingen moet je eerst mijn vorige post doorlopen hebben!
Oplossing 1: Toevoegen van verwijzing naar je add-in
Deze oplossing is bedoeld om het mogelijk te maken de macro subroutines aan te roepen zoals je dat ook zou doen wanneer het in je huidige code zit.

- Ga in je visual basic editor naar menu Extra
- Verwijzigingen
- Klik op bladeren en voeg het bestand van je invoegtoepassing hier toe.

*Let op in je projectverkenner verschijnt nu een extra menutje met verwijzingen. Op dit moment kun je alle code aanroepen zoals je dat altijd kan, bijvoorbeeld een sub kan je aanroepen via: "Call mijnSub" en functies als x = myFunction(variabele)
** Verwijzingen moet je voor iedere excelfile opnieuw aanmaken.

Oplossing 2: Aanroepen van het andere bestand
Deze oplossing kan je altijd gebruiken zonder iedere keer de add-in toe te voegen en is geschikt voor het aanroepen van de macro codes vanaf je huidige project.

- In de projectverkenner zie je het extra project dat de naam heeft van je invoegtoepassing (bijvoorbeeld VBAproject(test.xlam) ). Klik met je rechter muistoets op dit project en kies voor Eigenschappen van VBAproject.
- Geef het een logische naam (zonder spaties is het makkelijkste, bijvoorbeeld test)
- In je code kun je nu een sub aanroepen via "Call test.Module1.mySub" en een functie als "x = test.Module1.myFunction(variabele)"

Mocht je wel spaties willen gebruiken dan wordt het: "Call [mijn code].Module1.mySub"

Tot slot
Ik weet geen goede manier om de subs in het start lijstje van ALT F8 te krijgen. Eigenlijk is hier de makkelijkste manier om gewoon het betreffende bestand te openen want standaard toont hij alle macro's van de geopende bestanden.

Succes!

[ Bericht 0% gewijzigd door snabbi op 31-08-2012 21:46:47 ]

Ik heb cellen die er als volgt uitzien:

St. Hubertusstraat 10 6531 LB Nijmegen

Dus één adres, postcode + plaats in één cel. Nu wil ik de straatnaam en het huisnummer loskoppelen, maar wat is hiervoor de slimste manier. Ik dacht zelf al via "tekst naar kollomen" (en spatie als nieuwe cel), maar dan moet ik alsnog heel veel werk achteraf gaan doen, aangezien je bij bovenstaande voorbeeld als een spatie na St. hebt. Hoe pak ik dit dus het beste aan?

quote:

Op dinsdag 4 september 2012 11:08 schreef qu63 het volgende:

[..]

Zoeken naar de eerste keer dat er 4 cijfers achter elkaar staan, dan daar voor splitsen. Dan bij het linker gedeelte de laatste spatie wissen, dan splitsen op de laatste spatie. Bij het rechter gedeelte splitsen op de tweede spatie.

Briljant. Thnx

Goedenavond,

Ik heb een vraag over Excel. Met Excel kun je tabellen invoeren met allemaal kolommen aan de bovenkant. Dit dus:

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.

Werkt heel makkelijk en is zeer efficiënt. Alleen is het mij op de een of andere manier gelukt om de kolommen die je bovenaan de tabel ziet te verwijderen. Normaal gesproken kun je deze kolommen gebruiken om dingen te sorteren (je kunt naast kolom 1 op een pijltje klikken en dan aanvinken wat je wilt zien). Maar deze optie zie ik niet meer, ik zie alleen kolom 1 staan zonder de pijl ernaast.

Weet iemand waar dit aan ligt en hoe ik dit kan oplossen?

Alvast Bedankt!

ctrl+shift+l wanneer je in de tabel staat.

quote:

Op dinsdag 4 september 2012 20:05 schreef ralfie het volgende:
ctrl+shift+l wanneer je in de tabel staat.

Ik neem aan dat dit een reactie is op mijn vraag?

Ik heb het geprobeerd, ik zie helaas geen verandering.

quote:

Op dinsdag 4 september 2012 20:17 schreef qu63 het volgende:

[..]

Filter weer aanzetten?

Ik heb het, bedankt.

[ Bericht 4% gewijzigd door iFok. op 04-09-2012 20:25:39 ]

quote:

Op dinsdag 4 september 2012 20:14 schreef iFok. het volgende:

[..]

Ik neem aan dat dit een reactie is op mijn vraag?

Ik heb het geprobeerd, ik zie helaas geen verandering.

Ja. ctr+shift+L zet het filter weer aan (op office 2007 iig, neem aan dat dit niet veranderd in andere versies)

quote:

Op dinsdag 4 september 2012 20:44 schreef ralfie het volgende:

[..]

Ja. ctr+shift+L zet het filter weer aan (op office 2007 iig, neem aan dat dit niet veranderd in andere versies)

Ik zit op dit moment op de Apple, en daar doet hij het niet. Morgen zal ik het nodig hebben, en dan zit ik op de PC en probeer ik het nog een keer.

quote:

Op dinsdag 4 september 2012 21:49 schreef qu63 het volgende:

[..]

Vandaar dat ook in de OP staat dat je aan moet geven welke versie je hebt, dan zijn de tips beter te gebruiken

Zal ik voor de volgende keer doen. Bedankt allemaal.

Je zal maar eens tijd over hebben

Heb in excel eerst een algoritme getest (dat anderen al lang bedacht hebben maar ik wilde het ook kunnen) voor ik het in C++ in ging bouwen.

Random vakjes genereren, en dan alles wat connectie heeft aan een ander vakje (4 node) dezelfde kleur geven. Tadaa



[ Bericht 0% gewijzigd door Holy_Goat op 07-09-2012 17:22:57 (4 node, niet 8 node. schuin aanraken telt dus niet) ]

quote:

Op donderdag 2 augustus 2012 12:13 schreef Huppelmuts het volgende:
Schatjes ik kom er echt niet uit.
Ik heb in Excel kolom A is startdatum, kolom B is einddatum en dan wil ik dat kolom C het totaal aantal maanden laat zien maar welke formule moet ik dan waar neerplempen?

Versie 2007 geloof ik en taal staat gewoon in het Nederlands

Ik ben nog steeds met dit bezig, nu een uitbreiding.
Bij een aantal rijen is de einddatum in de toekomst. Ik wil het aantal maanden van start tot aan vandaag graag zien.
De formule die ik voor de rijen waar de einddatum al is geweest gebruik is: =DATUMVERSCHIL(C2;D2;"m")
Is deze formule makkelijk aan te passen zodat de D kolom meteen als "vandaag" wordt gezien?

_{Als ik lastig ben dan hoor ik het wel he}