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.
-
[ Bericht 100% gewijzigd door The_vice op 06-11-2019 23:58:38 ]
[ Bericht 100% gewijzigd door The_vice op 06-11-2019 23:58:38 ]
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Heb op Youtube al wat uurtjes achter de rug qua tutorials. Echter zijn dit dingen die op dit moment nog niet echt van toepassing op het gene waar ik het op wil toepassen. Ik steek er natuurlijk wel iets van op.
Op dit moment update ik wekelijks handmatig een lijst met data. Dit zijn simpele handelingen zoals kolommen verwijderen die ik niet nodig heb, filteren en kleuren toepassen om het overzichtelijk te maken. Via Vlookup haal ik opmerkingen/notities uit de lijst van de week er voor.
Uiteindelijk wil ik de "verse" data in het huidige bestand laden en de lijst updaten met één druk op de knop. Als dit goed werkt wil ik om het half uur de lijst automatisch bij laten werken zodat ik altijd actuele informatie heb.
Op dit moment update ik wekelijks handmatig een lijst met data. Dit zijn simpele handelingen zoals kolommen verwijderen die ik niet nodig heb, filteren en kleuren toepassen om het overzichtelijk te maken. Via Vlookup haal ik opmerkingen/notities uit de lijst van de week er voor.
Uiteindelijk wil ik de "verse" data in het huidige bestand laden en de lijst updaten met één druk op de knop. Als dit goed werkt wil ik om het half uur de lijst automatisch bij laten werken zodat ik altijd actuele informatie heb.
Even een vraagje over de opzet van een formule.
Met behulp van het www heb ik de volgende code gemaakt.
Nu heb ik elders een formule gevonden die anders is opgebouwd maar wel hetzelfde resultaat geeft.
Met behulp van het www heb ik de volgende code gemaakt.
Zoals jullie kunnen zien vul je een waarde in cel E3 en G3 en afhankelijk of deze kleiner/groter of gelijk is veranderd deze in de actieve cel naar 0,1 of 3. (even oefenen met voetbal uitslagen😉)quote:=ALS(E3>G3;"3";ALS(E3<G3;"0";ALS(E3=G3;"1")))
Nu heb ik elders een formule gevonden die anders is opgebouwd maar wel hetzelfde resultaat geeft.
Ik probeer te begrijpen waarom dit zo is. Ik mis bij deze bijvoorbeeld het < teken. Wat bepaalt bijvoorbeeld de uitkomst als J6 kleiner is dan L6?quote:=ALS(J6="";"";ALS(J6>L6;3;ALS(J6=L6;1;0)))
De als functie werkt als volgt: als voorwaarde dan waarde, anders waarde.
Je ziet een '>' en een '=' in die formule. Als niet 'J6>L6;3' en als niet 'J6=L6' dan 0.
Je ziet een '>' en een '=' in die formule. Als niet 'J6>L6;3' en als niet 'J6=L6' dan 0.
Aldus.
Hoewel de post boven mij technisch klopt, weet ik niet of je het snapt wanneer je het leest. Daarom nu met iets meer tekst:quote:Op vrijdag 15 november 2019 15:18 schreef Harveo het volgende:
Ik probeer te begrijpen waarom dit zo is. Ik mis bij deze bijvoorbeeld het < teken. Wat bepaalt bijvoorbeeld de uitkomst als J6 kleiner is dan L6?
De formule als werkt als volgt: ALS(CONDITIE;"Wat indien conditie waar is";"Wat indien de conditie NIET waar is") in het kort ALS(CONDITIE;WAAR;ONWAAR)
We delen de probleemstelling op:
=ALS(J6="";"";ALS(J6>L6;3;ALS(J6=L6;1;0)))
oftewel:
=ALS(J6=""; wordt "" bij WAAR; iets moeilijks bij ONWAAR) -> met andere woorden dit doet niets anders dan dat het resultaat "" is wanneer J6 leeg is.
Wanneer J6 ongelijk is aan "" gaan we het tweede gedeelte van de formule in. Dat tweede gedeelte is:
ALS(J6>L6;3;ALS(J6=L6;1;0))
Als J6 groter is dan L6, dan is het resultaat 3.
Als J6 niet groter is dan L6 krijg je het volgende deel van de formule
Als J6 dus ongelijk is aan "", maar ook niet groter is dan L6, krijgen we de volgende formule:
ALS(J6=L6;1;0)
Als J6 gelijk is aan L6 is het resultaat 1
Als J6 niet gelijk is aan L6 is het resultaat 0.
Wanneer je dit in normale taal uitschrijft krijg je:
Indien J6 is "", dan antwoord ""
Indien J6>L6; dan antwoord 3
Indien J6=L6, dan antwoord 1
In alle andere gevallen (wat niet anders kan zijn dan J6<L6), dan antwoord 0
Mee eensquote:Op vrijdag 15 november 2019 15:49 schreef snabbi het volgende:
[..]
Hoewel de post boven mij technisch klopt, weet ik niet of je het snapt wanneer je het leest.
Aldus.
Onderstaande geeft een foutmelding (VBA).
Het lukt me bijvoorbeeld wel om =A1 & " " & B1 in een cel te plakken. Maar bovenstaande niet. Als ik de '=' weghaal, gaat het wel goed overigens. Kan het zijn dat de VERT.ZOEKEN een #N/B geeft en daarom de macro niet verder wil?
| 1 2 | myFormula = "=VERT.ZOEKEN(H" & i + 1 & ";[varvallab.xlsx]Blad1!A$1:B$20000;2;ONWAAR)" ActiveCell.Value = myFormula |
Het lukt me bijvoorbeeld wel om =A1 & " " & B1 in een cel te plakken. Maar bovenstaande niet. Als ik de '=' weghaal, gaat het wel goed overigens. Kan het zijn dat de VERT.ZOEKEN een #N/B geeft en daarom de macro niet verder wil?
Aldus.
vba gebruikt de engelse notatiequote:Op vrijdag 22 november 2019 14:39 schreef Z het volgende:
Onderstaande geeft een foutmelding (VBA).
[ code verwijderd ]
Het lukt me bijvoorbeeld wel om =A1 & " " & B1 in een cel te plakken. Maar bovenstaande niet. Als ik de '=' weghaal, gaat het wel goed overigens. Kan het zijn dat de VERT.ZOEKEN een #N/B geeft en daarom de macro niet verder wil?
myFormula = "=VLOOKUP(H" & i + 1 & ",[varvallab.xlsx]Blad1!A$1:B$20000,2,FALSE)"
Ook als je het als string in een cel plakt?quote:
[..]
vba gebruikt de engelse notatie
myFormula = "=VLOOKUP(H" & i + 1 & ",[varvallab.xlsx]Blad1!A$1:B$20000,2,FALSE)"
Ik ben zelf ook wat verder. De fout komt waarschijnlijk toch doordat lookup niks vindt.
Aldus.
Dat een lookup niets vindt, leidt tot de waarde #N/B in de betreffende cel. Dit leidt niet tot een fout in de vba verwerking.quote:
[..]
Ook als je het als string in een cel plakt?
Ik ben zelf ook wat verder. De fout komt waarschijnlijk toch doordat lookup niks vindt.
VBA hanteert altijd de Amerikaanse notatie zowel voor de , als scheidingsteken alsmede de amerikaanse formulenaam.
De enige wijze om daar onder uit te komen is door zelf een functie te schrijven die de nederlandse naam heeft.
Overigens kan je ook gewoon even je marco opname tool gebruiken. Zelf de formule in de cel typen en daarna de opname beeindigen. Dan heb je altijd de juiste notatie. Daarna kan je je bewerking doen met de i +1 enzo.
Opgelost (dit werkt):quote:
[..]
Dat een lookup niets vindt, leidt tot de waarde #N/B in de betreffende cel. Dit leidt niet tot een fout in de vba verwerking.
VBA hanteert altijd de Amerikaanse notatie zowel voor de , als scheidingsteken alsmede de amerikaanse formulenaam.
De enige wijze om daar onder uit te komen is door zelf een functie te schrijven die de nederlandse naam heeft.
Overigens kan je ook gewoon even je marco opname tool gebruiken. Zelf de formule in de cel typen en daarna de opname beeindigen. Dan heb je altijd de juiste notatie. Daarna kan je je bewerking doen met de i +1 enzo.
myFormula = "=VLOOKUP(A" & i + 1 & ",[varvallab_2.xlsm]Blad1!A$1:B$17983,2,FALSE)"
Ik weet dat macros met engelse termen werken. Maar omdat ik nu in wezen een string paste in een cel, snap ik nog steeds niet helemaal niet dat de macro dit niet wil doen.
Aldus.
Ik heb een textbox met een vaste waarde (' dit is een waarde' ) bijvoorbeeld, die wil ik linken aan de waarde van de dyamische cel. Zonder tekst is dat geen probleem, ik verwijs in de tekstbox naar de cel, maar hoe combineer ik die? Is dat zonder moeilijke fratsen te doen?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Excel heeft in werkelijkheid de amerikaanse notatie onderwater, waarbij het slechts een gebruikersinstelling heeft om die informatie aan jou te presenteren.quote:Op maandag 25 november 2019 13:11 schreef Z het volgende:
[..]
Opgelost (dit werkt):
myFormula = "=VLOOKUP(A" & i + 1 & ",[varvallab_2.xlsm]Blad1!A$1:B$17983,2,FALSE)"
Ik weet dat macros met engelse termen werken. Maar omdat ik nu in wezen een string paste in een cel, snap ik nog steeds niet helemaal niet dat de macro dit niet wil doen.
Het antwoord is eigenlijk zo simpel, dat je wel een string in de cel zet. Deze waarde zet je alleen op een andere laag dan jij verwacht. De macro zit niet op de gebruikersinterface kant waar de taal en toetsenbordinstellingen invloed hebben op de werking van de macro. Immers zou je macro dan niet meer werken wanneer je het bestandje naar mij stuurt en ik de engelse versie draai waar jij de nederlandse draait.
Ik zit even te zoeken welke je gebruikt. Ik vermoed dat het gaat over een formulierbesturingselement. Daar had ik zelf nog even zo snel niet een tekstvak met een link naar celinhoud gevonden. Die links ken ik zelf voornamelijk vanuit keuze lijsten.quote:
Ik heb een textbox met een vaste waarde (' dit is een waarde' ) bijvoorbeeld, die wil ik linken aan de waarde van de dyamische cel. Zonder tekst is dat geen probleem, ik verwijs in de tekstbox naar de cel, maar hoe combineer ik die? Is dat zonder moeilijke fratsen te doen?
De enige optie die doet die jij beschrijft is om zelf een Tekstvak te maken en door middel van een macro dmv Change iets uit te voeren.
Kan je iets meer precies aangeven wat je precies gebruikt?
Ik heb een databestand wat er als volgt uitziet:
Dus een 'kop' en daaronder rijen met of een getallen (bijvoorbeeld 11,021...) of een percentage (bijvoorbeeld 16,985...%).
Nu wil ik die percentages 'converteren naar getal'. Maar dat lukt me niet.
Wat werkt is 'F2 + Enter' maar dat in een macro voor een matrix van 100 bij 25000 is dat niet "het meest optimaal".
Iemand een idee?
Heeft iemand een andere suggestie?
Dus een 'kop' en daaronder rijen met of een getallen (bijvoorbeeld 11,021...) of een percentage (bijvoorbeeld 16,985...%).
Nu wil ik die percentages 'converteren naar getal'. Maar dat lukt me niet.
Wat werkt is 'F2 + Enter' maar dat in een macro voor een matrix van 100 bij 25000 is dat niet "het meest optimaal".
Iemand een idee?
Heeft iemand een andere suggestie?
Aldus.
Kolom selecteren -> Gegevens (bovenaan) -> Tekst naar kolommen -> Voltooienquote:
Ik heb een databestand wat er als volgt uitziet:
[ afbeelding ]
Dus een 'kop' en daaronder rijen met of een getallen (bijvoorbeeld 11,021...) of een percentage (bijvoorbeeld 16,985...%).
Nu wil ik die percentages 'converteren naar getal'. Maar dat lukt me niet.
Wat werkt is 'F2 + Enter' maar dat in een macro voor een matrix van 100 bij 25000 is dat niet "het meest optimaal".
Iemand een idee?
Heeft iemand een andere suggestie?
Wil wel eens helpen.
You're Fucking Out, I'm Fucking In
Werkt! Veel dank.quote:
[..]
Kolom selecteren -> Gegevens (bovenaan) -> Tekst naar kolommen -> Voltooien
Wil wel eens helpen.
Aldus.
Overal 0 bij optellen wil ook nog wel eens werken.
Opinion is the medium between knowledge and ignorance (Plato)
Of *1quote:
Overal 0 bij optellen wil ook nog wel eens werken.
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]
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?
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?
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Ik sla het over. Doe mijn query's liever in Access. Vele malen sneller met data.quote:
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?
Heb het volgens mij 10 minuten geprobeerd met Power Bi toen maar met tranen in de ogen dichtgedaan.
Grafieken maken in Access is wel nog erg 1997. Maar daarvoor duwik data dan naar excel, en maak daar mijn grafieken.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Tweede vraag:quote:
[..]
Ik sla het over. Doe mijn query's liever in Access. Vele malen sneller met data.
Heb het volgens mij 10 minuten geprobeerd met Power Bi toen maar met tranen in de ogen dichtgedaan.
Grafieken maken in Access is wel nog erg 1997. Maar daarvoor duwik data dan naar excel, en maak daar mijn grafieken.
Heeft Access meerwaarde boven Excel?
Zoals ik al zei kunnen query's, grafieken e.d. volgens mij in Excel ook worden verricht.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Access heeft wel degelijk meerwaarde, o.a. omdat het een relationele databse is. Je kan hetzelfde doel wel behalen met Excel, maar Access is er beter in.quote:
[..]
Tweede vraag:
Heeft Access meerwaarde boven Excel?
Zoals ik al zei kunnen query's, grafieken e.d. volgens mij in Excel ook worden verricht.
Zie ook het door MS slecht vertaalde verhaal op hun eigen site: https://support.office.co(...)6f-9312-e825227fcaea
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]
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 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)
to say of what is that it is not, or of what is not that it is, is false, while to say of what is that it is, or of what is not that it is not, is true
=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)quote:
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)
En dan alles met als antwoord 45!?
Maar dan moet je een miljard getallen langs. Dat zijn er best veel.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!?
Het is wel een leuk vraagstuk. Als je het antwoord hebt kun je excel volgens mij ook sudoku's laten oplossen.
Opinion is the medium between knowledge and ignorance (Plato)
Ja das ook weer zo 😅quote:
[..]
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.
*slingert laptop weer aan..
Jep: https://www.microsoft.com(...)calculation-part-12/ (site is al zo oud dat de plaatjes het niet eens meer doenquote:
[..]
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.
)
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]
Helaas, 45 gaat niet op. Vb; 555555555 of 999932211. Bezitten beide dubbelen en gesommeerd 45..quote:
[..]
=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!?
to say of what is that it is not, or of what is not that it is, is false, while to say of what is that it is, or of what is not that it is not, is true
Voor databewerking is het niet geschikt. Veel te traag en onhandig. Echt alleen voor dashboards gebruiken.quote:
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?
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.
You're Fucking Out, I'm Fucking In
Nope, beide een errorquote:
[..]
Helaas, 45 gaat niet op. Vb; 555555555 of 999932211. Bezitten beide dubbelen en gesommeerd 45..
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 ]
Ah had niet door dat hij alleen o unieke triggerde, nice!quote:
[..]
Nope, beide een error
Jij telt de getallen bij elkaar op, maar de formule werkt alleen als alle getallen er 1 x in voorkomen.
to say of what is that it is not, or of what is not that it is, is false, while to say of what is that it is, or of what is not that it is not, is true
Uiteindelijk de volgende code gevonden, spuugt alle mogelijkheden uit;quote:
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)
| 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 | Private CurrentRow As Long Sub GetString() Dim InString As String InString = InputBox("Enter text to permute:") If Len(InString) < 2 Then Exit Sub If Len(InString) > 9 Then MsgBox "Too many permutations!" Exit Sub Else ActiveSheet.Columns(1).Clear CurrentRow = 1 Call GetPermutation("", InString) End If End Sub Sub GetPermutation(x As String, y As String) Dim i As Integer, j As Integer j = Len(y) If j < 2 Then Cells(CurrentRow, 1) = x & y CurrentRow = CurrentRow + 1 Else For i = 1 To j Call GetPermutation(x + Mid(y, i, 1), _ Left(y, i - 1) + Right(y, j - i)) Next End If End Sub |
to say of what is that it is not, or of what is not that it is, is false, while to say of what is that it is, or of what is not that it is not, is true
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.quote:
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)
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….
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
van 111111111 en 999999999quote:
[..]
Uiteindelijk de volgende code gevonden, spuugt alle mogelijkheden uit;
[ code verwijderd ]
hoef je volgens mij maar de helft te doen. na 555555555 kan je de resultaten spiegelen
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
No shit!quote:
[..]
van 111111111 en 999999999
hoef je volgens mij maar de helft te doen. na 555555555 kan je de resultaten spiegelen
Dat scheelt een hoop werk....
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
Hey beste mensen,
Ik heb een vraag over excel.
Ik heb de urls van afbeeldingen in excel staan, verdeeld over 3 kolommen.
http://website/ 1 /300/300.png
http://website/ 2 /300/300.png
http://website/ 3 /300/300.png
Elke keer is de middelste kolom anders (bedoel dus gewoon increment) en dat zorgt voor een nieuwe afbeelding.
Wat ik nu graag wil is het volgende:
http://website/ 1 /300/300.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
http://website/ 2 /300/300.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
http://website/ 3 /300/300.png
https://eenstandaardfoto.png
etc.
Tegenover elk persoon wil ik 3 a 4 keer een standaardfoto presenteren omdat niet iedereen een foto upload.
Kan iemand mij vertellen hoe een dergelijke excel formule eruit zou zien?
Alvast erg bedankt
Lijkt namelijk wat suf als ik eerst van 1.000 personen de foto toon en dan van 3.000 een standaardafbeelding. Heb het liever wat gelijkmatig verdeeld. Nogmaals ontzettend bedankt alvast!
Ik heb een vraag over excel.
Ik heb de urls van afbeeldingen in excel staan, verdeeld over 3 kolommen.
http://website/ 1 /300/300.png
http://website/ 2 /300/300.png
http://website/ 3 /300/300.png
Elke keer is de middelste kolom anders (bedoel dus gewoon increment) en dat zorgt voor een nieuwe afbeelding.
Wat ik nu graag wil is het volgende:
http://website/ 1 /300/300.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
http://website/ 2 /300/300.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
https://eenstandaardfoto.png
http://website/ 3 /300/300.png
https://eenstandaardfoto.png
etc.
Tegenover elk persoon wil ik 3 a 4 keer een standaardfoto presenteren omdat niet iedereen een foto upload.
Kan iemand mij vertellen hoe een dergelijke excel formule eruit zou zien?
Alvast erg bedankt
Lijkt namelijk wat suf als ik eerst van 1.000 personen de foto toon en dan van 3.000 een standaardafbeelding. Heb het liever wat gelijkmatig verdeeld. Nogmaals ontzettend bedankt alvast!
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.
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?
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?
Het is...kiezen of delen, spelen winnen verliezen of vervelen en helemaal niets ondernemen
Kan, maar met wat VBA, met een BeforePrint event (Zie Allen Wyatt):quote:
| 1 2 3 4 | Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Format(Date - 1, "mmmm d, yyyy") & " " & Format(Time, "mm:hh:ss") ActiveSheet.PageSetup.CenterFooter = Format(Date + 5, "mmmm d, yyyy") End Sub |
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Klik in het menu van Pagina-instelling - Koptekst/voettekst op Aangepaste voettekst.quote:
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?
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.
Had ik dit niet al zo beantwoord?quote:
[..]
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.
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Helder, en thanks aan The_vice ook.quote:
[..]
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.
Het punt is niet dat ik 1 cel wil, dat lukt nog wel, maar een blokje van 4 rijen/2 kolommen.
Het is...kiezen of delen, spelen winnen verliezen of vervelen en helemaal niets ondernemen
Je post was prima. Ik zag in jouw post vooral de VBA code. Ik vul dat aan met wat buiten VBA kan.quote:
[..]
Had ik dit niet al zo beantwoord?
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).quote:
[..]
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.
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.
Maar hoe doe je dan plus of min één dag? Daar ging je dan niet naar aanleiding van de originele vraag niet op in.quote:
[..]
Je post was prima. Ik zag in jouw post vooral de VBA code. Ik vul dat aan met wat buiten VBA kan.
Volgens mij kan dat niet met de [&Datum] methode, maar ik laat me graag verrassen.
Hoe zou jij dat doen?
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
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:
[..]
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?
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]
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..quote:
[..]
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?
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.
Klopt,quote:
[..]
- tot slot kan je zelf prutsen met wat lijntjes tekenen met --- en |. Nadeel is wel dat je maar 255 karakters kan gebruiken.
wat wel nog kan is een herhaal n rijen als header misbruiken en daar wat gegevens in stoppen als tabel.
Maar ja Excel is ook geen opmaak programma. Hoewel veel mensen dat máár blijven proberen.
Ik ken voorbeelden waar men elke pagina op een apart sheet zet, met een leuke header in de pagina uitgetekend op het sheet. En dan 40 sheets aanmaken vol met gemergde cellen.
brrrrr...
hier krijg ik bijvoorbeeld nachtmerries van (wel uitzoomen)
Hendrik de Heette heette Hendrik de Heette omdat zijn vader ook Hendrik heette.
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
-vandaag was 't ook mooi-
Excel; zet het eens in een pivot table
Edit: Oplossing al gevonden. Thanks anyway.
[ Bericht 32% gewijzigd door dimmak op 16-01-2020 12:06:38 ]
[ Bericht 32% gewijzigd door dimmak op 16-01-2020 12:06:38 ]
Uitvinder van de biersmiley.
