[Excel] Het grote Excelvragentopic #48

quote:

Op maandag 9 december 2019 20:31 schreef webbyplus het volgende:
Een challenge waar jullie me misschien mee kunnen helpen.
Ik wil van alle getallen tussen de 111111111 en 999999999 de getallen hebben waarbij de getallen 1 tm 9 precies éénmalig voorkomen.
Voorbeeld:
123456789
213456789
976854321
Maar dus niet: 223456789 of 333344445

Volgens mijn berekening zijn er 9 x 8 x 7 x 6 x 5 x 4 x 3 x 2 x 1 = 362.880 mogelijkheden
(Oftewel 9! --> 9 faculteit)

Hoe zou je in Excel vba de code moeten fabriceren om deze 362.880 mogelijkheden uit te spugen?

(de eerste met de juiste oplossing krijgt een virtuele schouderklop en uiteraard eeuwige roem)

=VIND.SPEC(1;A4;1)+VIND.SPEC(2;A4;1)+VIND.SPEC(3;A4;1)+VIND.SPEC(4;A4;1)+VIND.SPEC(5;A4;1)+VIND.SPEC(6;A4;1)+VIND.SPEC(7;A4;1)+VIND.SPEC(8;A4;1)+VIND.SPEC(9;A4;1)

En dan alles met als antwoord 45!?

quote:

Op maandag 9 december 2019 21:40 schreef _I het volgende:

[..]

=VIND.SPEC(1;A4;1)+VIND.SPEC(2;A4;1)+VIND.SPEC(3;A4;1)+VIND.SPEC(4;A4;1)+VIND.SPEC(5;A4;1)+VIND.SPEC(6;A4;1)+VIND.SPEC(7;A4;1)+VIND.SPEC(8;A4;1)+VIND.SPEC(9;A4;1)

En dan alles met als antwoord 45!?

Maar dan moet je een miljard getallen langs. Dat zijn er best veel.

Het is wel een leuk vraagstuk. Als je het antwoord hebt kun je excel volgens mij ook sudoku's laten oplossen.

quote:

Op maandag 9 december 2019 21:42 schreef Janneke141 het volgende:

[..]

Maar dan moet je een miljard getallen langs. Dat zijn er best veel.

Het is wel een leuk vraagstuk. Als je het antwoord hebt kun je excel volgens mij ook sudoku's laten oplossen.

Ja das ook weer zo 😅

*slingert laptop weer aan..

quote:

Op maandag 9 december 2019 21:42 schreef Janneke141 het volgende:

[..]

Maar dan moet je een miljard getallen langs. Dat zijn er best veel.

Het is wel een leuk vraagstuk. Als je het antwoord hebt kun je excel volgens mij ook sudoku's laten oplossen.

Jep: https://www.microsoft.com(...)calculation-part-12/ (site is al zo oud dat de plaatjes het niet eens meer doen )

quote:

Op maandag 9 december 2019 21:40 schreef _I het volgende:

[..]

=VIND.SPEC(1;A4;1)+VIND.SPEC(2;A4;1)+VIND.SPEC(3;A4;1)+VIND.SPEC(4;A4;1)+VIND.SPEC(5;A4;1)+VIND.SPEC(6;A4;1)+VIND.SPEC(7;A4;1)+VIND.SPEC(8;A4;1)+VIND.SPEC(9;A4;1)

En dan alles met als antwoord 45!?

Helaas, 45 gaat niet op. Vb; 555555555 of 999932211. Bezitten beide dubbelen en gesommeerd 45..

quote:

Op zaterdag 7 december 2019 13:42 schreef Twentsche_Ros het volgende:
Power BI:
Links en rechts hoor ik dat Power BI ongekende mogelijkheden biedt.
Ik heb wat bekeken hier en daar, maar volgens mij zijn de mogelijkheden eigenljk allemaal wel te vinden binnen Excel zelf.
Het gaat om het selecteren van data en het uitvoeren van queries, etc.
Als je je hebt verdiept in filters, draaitabellen en enigszins handig bent met VBA lijkt met Power BI nauwelijks meerwaarde hebben.
Wat is jullie mening?

Voor databewerking is het niet geschikt. Veel te traag en onhandig. Echt alleen voor dashboards gebruiken.

Voordelen zou ik zeggen:
1. Gebruiksvriendelijk (voor de gebruiker van het dashboard, niet per se voor de programmeur). Jij kan misschien goed overweg met geavanceerde filters/queries maar deel je die bestanden ook, en zo ja kunnen die mensen er ook goed mee overweg? In PowerBI kan iedereen het.
2. Gelikter. Excel heeft geen goede presenteermodus of iets dergelijks.
3. Dashboards delen via de cloud.

Maar ik ben geen Excel/VBA expert. Gebruik meestal Python voor scripting/databewerking en dan eventueel het resultaat exporteren naar csv en in PowerBI stoppen.

Voor de programmeur is PowerBI ook niet altijd gebruiksvriendelijk. Het is ook nog steeds in ontwikkeling dus veel functionaliteiten die je zou willen zijn er nog niet of veranderen steeds. Ik was ooit uren op zoek naar een box plot. Bleek alleen via een R-extensie te kunnen.

Hoe PowerBI is ten opzichte van andere dashboard-programma's weet ik niet.

quote:

Op dinsdag 10 december 2019 00:07 schreef webbyplus het volgende:

[..]

Helaas, 45 gaat niet op. Vb; 555555555 of 999932211. Bezitten beide dubbelen en gesommeerd 45..

Nope, beide een error

Jij telt de getallen bij elkaar op, maar de formule werkt alleen als alle getallen er 1 x in voorkomen.

[ Bericht 9% gewijzigd door _I op 10-12-2019 06:22:32 ]

quote:

Op dinsdag 10 december 2019 06:09 schreef _I het volgende:

[..]

Nope, beide een error

Jij telt de getallen bij elkaar op, maar de formule werkt alleen als alle getallen er 1 x in voorkomen.

Ah had niet door dat hij alleen o unieke triggerde, nice!

quote:

Op maandag 9 december 2019 20:31 schreef webbyplus het volgende:
Een challenge waar jullie me misschien mee kunnen helpen.
Ik wil van alle getallen tussen de 111111111 en 999999999 de getallen hebben waarbij de getallen 1 tm 9 precies éénmalig voorkomen.
Voorbeeld:
123456789
213456789
976854321
Maar dus niet: 223456789 of 333344445

Volgens mijn berekening zijn er 9 x 8 x 7 x 6 x 5 x 4 x 3 x 2 x 1 = 362.880 mogelijkheden
(Oftewel 9! --> 9 faculteit)

Hoe zou je in Excel vba de code moeten fabriceren om deze 362.880 mogelijkheden uit te spugen?

(de eerste met de juiste oplossing krijgt een virtuele schouderklop en uiteraard eeuwige roem)

Uiteindelijk de volgende code gevonden, spuugt alle mogelijkheden uit;

quote:

Op maandag 9 december 2019 20:31 schreef webbyplus het volgende:
Een challenge waar jullie me misschien mee kunnen helpen.
Ik wil van alle getallen tussen de 111111111 en 999999999 de getallen hebben waarbij de getallen 1 tm 9 precies éénmalig voorkomen.
Voorbeeld:
123456789
213456789
976854321
Maar dus niet: 223456789 of 333344445

Volgens mijn berekening zijn er 9 x 8 x 7 x 6 x 5 x 4 x 3 x 2 x 1 = 362.880 mogelijkheden
(Oftewel 9! --> 9 faculteit)

Hoe zou je in Excel vba de code moeten fabriceren om deze 362.880 mogelijkheden uit te spugen?

(de eerste met de juiste oplossing krijgt een virtuele schouderklop en uiteraard eeuwige roem)

Ik krijg dit wel voor elkaar. Maar ik begin niet met een formule in VBA. Dat duurt veel te lang. Copieer eerst eens allemaal eentjes in de cellen A1 t/m a40320.
Dan: a40321 vul je met de formule a1+1. copieer die cel naar A40322 t/m A362880
Daarna copieer je kolom A en doe je "plakken speciaal" "waarden".
Zo, dan heb je het eerste cijfer al gefixed. De rest is een beetje logisch nadenken. copy pasten special values. Enzo….

quote:

Op woensdag 11 december 2019 00:02 schreef The_vice het volgende:

[..]

van 111111111 en 999999999
hoef je volgens mij maar de helft te doen. na 555555555 kan je de resultaten spiegelen

No shit!
Dat scheelt een hoop werk....

In A1,B1,C1 en in D1 zet je de waarde 1
In E1 zet je de formule: =A1+1

Cel E1 kopieer je door naar rechts zover je wilt.
Je hebt nu 4x hetzelfde getal, met een increment.

In cel A2 zet je de formule: =hyperlink("http://website/"&a1&"/300/300.png")
Je B2,C2 en D2 je andere link.

Selecteer de cellen A2 t/m D2. Kopieer door naar rechts zo ver je wilt.

Oke, ik wil iets maar ik twijfel of deze mogelijkheid in Excel bestaat (ik vermoed van wel)

Ik print regelmatig wat uit uit Excel en onderaan de pagina die uitgeprint wordt staat een tabelletje in de voettekst, als afbeelding in voettekst. In dat tabelletje vul ik dan met een pen de datum van vandaag en die van morgen in en nog wat dingetjes. Wat ik eigenlijk wil is die tabel-afbeelding vervangen door een excel-tabel zodat ik er met =vandaag() automatisch de datum kan vullen. Ik heb vandaag wat zitten klooien met de voettekst maar het lijkt alsof de gehele voettekst maar in 1 cel kan....

Kan wat ik wil en zo ja hoe?

quote:

Op dinsdag 14 januari 2020 00:03 schreef kalinhos het volgende:
Oke, ik wil iets maar ik twijfel of deze mogelijkheid in Excel bestaat (ik vermoed van wel)

Ik print regelmatig wat uit uit Excel en onderaan de pagina die uitgeprint wordt staat een tabelletje in de voettekst, als afbeelding in voettekst. In dat tabelletje vul ik dan met een pen de datum van vandaag en die van morgen in en nog wat dingetjes. Wat ik eigenlijk wil is die tabel-afbeelding vervangen door een excel-tabel zodat ik er met =vandaag() automatisch de datum kan vullen. Ik heb vandaag wat zitten klooien met de voettekst maar het lijkt alsof de gehele voettekst maar in 1 cel kan....

Kan wat ik wil en zo ja hoe?

Klik in het menu van Pagina-instelling - Koptekst/voettekst op Aangepaste voettekst.

Daar heb je ook buttons die je helpen, maar wat jij zoekt is bijvoorbeeld &[Datum]
Het is dan wel in het format van 14-1-2020. Je hebt wel een macro nodig als je het format anders wil hebben.

quote:

Op dinsdag 14 januari 2020 18:47 schreef snabbi het volgende:

[..]

Klik in het menu van Pagina-instelling - Koptekst/voettekst op Aangepaste voettekst.

Daar heb je ook buttons die je helpen, maar wat jij zoekt is bijvoorbeeld &[Datum]
Het is dan wel in het format van 14-1-2020. Je hebt wel een macro nodig als je het format anders wil hebben.

Helder, en thanks aan The_vice ook.

Het punt is niet dat ik 1 cel wil, dat lukt nog wel, maar een blokje van 4 rijen/2 kolommen.

quote:

Op dinsdag 14 januari 2020 21:09 schreef The_vice het volgende:

[..]

Had ik dit niet al zo beantwoord?

Je post was prima. Ik zag in jouw post vooral de VBA code. Ik vul dat aan met wat buiten VBA kan.

quote:

Op dinsdag 14 januari 2020 23:27 schreef kalinhos het volgende:

[..]

Helder, en thanks aan The_vice ook.

Het punt is niet dat ik 1 cel wil, dat lukt nog wel, maar een blokje van 4 rijen/2 kolommen.

Dat is inderdaad iets meer gekunstel. Sowieso is het makkelijker wanneer het in de header staat (dan herhaal je gewoon de eerste rijen op elke pagina).

De snelste ideeën die in mijn hoofd opkomen, is de printfunctie via Word te gebruiken. Dus eventueel via VBA naar Word en dan naar print.

quote:

Op woensdag 15 januari 2020 20:44 schreef The_vice het volgende:

[..]

Maar hoe doe je dan plus of min één dag? Daar ging je dan niet naar aanleiding van de originele vraag niet op in.

Volgens mij kan dat niet met de [&Datum] methode, maar ik laat me graag verrassen.
Hoe zou jij dat doen?

Dat kan idd niet. Wat wel jammer is, want in Word een formule in de footer plakken is mega handig maar in Excel kan je alleen de opmaak (blod, cursief, lettertype, kleur, etc) aanpassen..

quote:

Op woensdag 15 januari 2020 20:44 schreef The_vice het volgende:

[..]

Maar hoe doe je dan plus of min één dag? Daar ging je dan niet naar aanleiding van de originele vraag niet op in.

Volgens mij kan dat niet met de [&Datum] methode, maar ik laat me graag verrassen.
Hoe zou jij dat doen?

In de snelheid had ik het stuk van morgen uit de vraag niet opgepikt. Net zo goed dat de vba code geen invulling geeft aan de gevraagde tabel-vorm en dus ook geen oplossing is..

Terug naar het probleem:
- Ik zie alleen mogelijkheden als een excel importeren in een programma dat het wel kan, zoals word.
- zelf prutsen met de marges van het papier en de normale excel cellen.
- gebruik te maken van de header ipv footer. Ik zat zelfs nog te denken of je dat misschien ondersteboven kan printen, zodat je header een footer wordt. Dat idee is nog niet omgezet in iets wat werkt.
- tot slot kan je zelf prutsen met wat lijntjes tekenen met --- en |. Nadeel is wel dat je maar 255 karakters kan gebruiken.

Edit: Oplossing al gevonden. Thanks anyway.

[ Bericht 32% gewijzigd door dimmak op 16-01-2020 12:06:38 ]