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.
PAAC je bent ge-wel-dig!quote:Op vrijdag 11 oktober 2013 23:07 schreef PAAC het volgende:
[..]
Met de als/if-functie (wat leesvoer, heel handig als je hem eenmaal door hebt)
Deze zit als volgt in elkaar:
ALS(logische_test, [waarde_als_waar], [waarde_als_onwaar])
Dan voer je in de cel waar je het resultaat wilt hebben voor de parameters
Logische test (Pagina1!C25 is leeg)
Pagina1!C25=""
[waarde_als_waar] (dus als de cel leeg is, dan wordt het resultaat "")
""
[waarde_als_onwaar] (als de cel niet leeg is, geef dan de waarde uit Pagina1!C25)
Pagina1!C25
Alles bij elkaar krijg je dan
=als(Pagina1!C25="";"";Pagina1!C25) (voor NL versie)
=if(Pagina1!C25="";"";Pagina1!C25) (voor EN versie)
Dat ziet er goed uit, ik denk dat ik daarmee wel verder moet kunnenquote:
[..]
Ohjee, kan op heel veel manieren denk ik. Ik zou met macro's doen, maar dat ben ik.
Je kunt ook met een hulpsheetje werken en er dan een pivot overheen gooien, als je bv het aantal items per sheet maximaliseert. Bv zo (even een snel voorbeeldje)
http://www.mijnbestand.nl/Bestand-38EO67JSBCEB.xlsx
Maar zo kun je nog wat dingen bedenken en het kan vast handiger
Alleen nog even inlezen in wat draaitabellen precies doen en hoe ze dat doen 
Dankjewel
toppiequote:Op maandag 14 oktober 2013 12:19 schreef InTrePidIvity het volgende:
[..]
Dat ziet er goed uit, ik denk dat ik daarmee wel verder moet kunnen
Dankjewel
Ik heb een macro gemaakt die de celinhoud verplaatst naar een comment die bij die cel hoort en die werkt heel prima behalve met formules, dan wordt in plaats van de formule de berekende waarde gekopieerd.
Hoe zorg ik ervoor dat de macro de formule kopieert en als er geen formule staat dat het ook goed gaat?
[ Bericht 4% gewijzigd door Deetch op 15-10-2013 11:17:02 ]
Hoe zorg ik ervoor dat de macro de formule kopieert en als er geen formule staat dat het ook goed gaat?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Sub Content_to_comment() 'clear previous comment and add header line With ActiveCell .ClearComments .AddComment Text:="Original content was:" & Chr(10) & .Value 'change .Value in .Formula to copy syntax of formula to comment. ' .Value only copies the Value (duh) .ClearContents End With 'format first line in bold 'find linebreak lBreak = InStr(1, ActiveCell.Comment.Text, Chr(10)) 'add bold ActiveCell.Comment.Shape.TextFrame.Characters(1, lBreak).Font.Bold = True 'force not bold for rest of comment ActiveCell.Comment.Shape.TextFrame.Characters(lBreak).Font.Bold = False End Sub |
[ Bericht 4% gewijzigd door Deetch op 15-10-2013 11:17:02 ]
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
Ik zeur al jaren bij IT om dat te standaardiseren bij mij op het werk. Wat mij betreft wordt dat allemaal verboden, gewoon de ISO standaarden aanhouden en dan weet iedereen uiteindelijk hoe het moet.quote:
[..]
Dat is een zeer goeie ja
Ik heb dat regelmatig als een collega mij vraagt om ff wat te doen voor hem op zijn PC en dan zoeken waar het aan ligt(maar ik krijg het steeds sneller door)
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
Kun je gebruiken ipv .value .formulalocal ?quote:Op maandag 14 oktober 2013 16:10 schreef Deetch het volgende:
Ik heb een macro gemaakt die de celinhoud verplaatst naar een comment die bij die cel hoort en die werkt heel prima behalve met formules, dan wordt in plaats van de formule de berekende waarde gekopieerd.
Hoe zorg ik ervoor dat de macro de formule kopieert en als er geen formule staat dat het ook goed gaat?
[ code verwijderd ]
Ik heb een vraagje met betrekking tot pivot charts (wat een gave dingen kun je daar mee trouwens!): ik heb de maanden als een column label toegevoegd om zo de percentages van elke maand over verschillende jaren te laten zien. Graag wil ik nu de percentages van 1 maand in de pivot chart laten zien, echter als ik ga filteren op die maand haalt deze over elke row natuurlijk 100%. Iemand een idee hoe dit opgelost kan worden binnen de functies van een pivot chart?
Ik heb een formule gemaakt die een '1' in een cel zet als een andere cel één of twee bepaalde woorden bevat.
=ALS(OF((ALS(ALS(ISFOUT(VIND.SPEC("effect";D3));1;2)=1;"";1))=1;(ALS(ALS(ISFOUT(VIND.SPEC("meting";D3));1;2)=1;"";1))=1);1;"")
Het is nogal een wanstaltig ding. Als ik nog een woord wil toevoegen wordt het nog erger. Is dit, met formules, wat mooier op te lossen? Zo niet maak ik een macro.
=ALS(OF((ALS(ALS(ISFOUT(VIND.SPEC("effect";D3));1;2)=1;"";1))=1;(ALS(ALS(ISFOUT(VIND.SPEC("meting";D3));1;2)=1;"";1))=1);1;"")
Het is nogal een wanstaltig ding. Als ik nog een woord wil toevoegen wordt het nog erger. Is dit, met formules, wat mooier op te lossen? Zo niet maak ik een macro.
Aldus.
Gewoon .formula werkt welquote:
[..]
Kun je gebruiken ipv .value .formulalocal ?
bèhdankt
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
=ALS(ISFOUT(VIND.SPEC("effect";D3))+ISFOUT(VIND.SPEC("meting";D3))<=1;1;0)quote:Op dinsdag 15 oktober 2013 10:41 schreef Z het volgende:
Ik heb een formule gemaakt die een '1' in een cel zet als een andere cel één of twee bepaalde woorden bevat.
=ALS(OF((ALS(ALS(ISFOUT(VIND.SPEC("effect";D3));1;2)=1;"";1))=1;(ALS(ALS(ISFOUT(VIND.SPEC("meting";D3));1;2)=1;"";1))=1);1;"")
Het is nogal een wanstaltig ding. Als ik nog een woord wil toevoegen wordt het nog erger. Is dit, met formules, wat mooier op te lossen? Zo niet maak ik een macro.
ISFOUT geeft een WAAR/ONWAAR, als je daar een berekening mee doet wordt dit geforceerd naar een 0 of 1.
Als effect (of meting) niet in D3 staat krijg je een fout dus de ISFOUT wordt WAAR, dus 1.
Als de functie dus 0 of 1 als uitkomt heeft betekent dat dat een of beide woorden voorkomen, dan geeft de ALS functie een 1, anders een 0.
Let op dat als je nog een woord toevoegt je de <=1 veranderd in <=2. Het getal is altijd het aantal woorden -1.
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
je wilt dus van alle januari's zien wat de absolute waarde is (en vervolgens omzetten naar een percentage)?quote:
Ik heb een vraagje met betrekking tot pivot charts (wat een gave dingen kun je daar mee trouwens!): ik heb de maanden als een column label toegevoegd om zo de percentages van elke maand over verschillende jaren te laten zien. Graag wil ik nu de percentages van 1 maand in de pivot chart laten zien, echter als ik ga filteren op die maand haalt deze over elke row natuurlijk 100%. Iemand een idee hoe dit opgelost kan worden binnen de functies van een pivot chart?
post anders een plaatje
(even een vraagske van mij, toch snel ook even hiero)
Is er in Excel een soort functie waarin ik kan zoeken op tekst gelijkend op een bepaald woord?
Stel ik heb woorden als:
Versta
Verstappen
Stappen
Aap
Stap
Trap
Krab
En ik zoek op 'stap'
Dan wil ik een soort lijstje 'van gelijkendheid'
Stap
Stappen
Verstappen
Versta
Trap
...
Ik gok dat dit een best lastige kwestie is , aangezien je een kwantitatieve waarde moet gaan hangen aan kenmerken in relatie tot het gezochte woord, maar wellicht kennen mensen standaard agoritmen of zit er al iets soortgelijks in Excel
Is er in Excel een soort functie waarin ik kan zoeken op tekst gelijkend op een bepaald woord?
Stel ik heb woorden als:
Versta
Verstappen
Stappen
Aap
Stap
Trap
Krab
En ik zoek op 'stap'
Dan wil ik een soort lijstje 'van gelijkendheid'
Stap
Stappen
Verstappen
Versta
Trap
...
Ik gok dat dit een best lastige kwestie is , aangezien je een kwantitatieve waarde moet gaan hangen aan kenmerken in relatie tot het gezochte woord, maar wellicht kennen mensen standaard agoritmen of zit er al iets soortgelijks in Excel
Ik meen mij te herinneren dat zoiets al eerder gevraagd is in deze reeks..quote:
(even een vraagske van mij, toch snel ook even hiero)
Is er in Excel een soort functie waarin ik kan zoeken op tekst gelijkend op een bepaald woord?
Stel ik heb woorden als:
Versta
Verstappen
Stappen
Aap
Stap
Trap
Krab
En ik zoek op 'stap'
Dan wil ik een soort lijstje 'van gelijkendheid'
Stap
Stappen
Verstappen
Versta
Trap
...
Ik gok dat dit een best lastige kwestie is , aangezien je een kwantitatieve waarde moet gaan hangen aan kenmerken in relatie tot het gezochte woord, maar wellicht kennen mensen standaard agoritmen of zit er al iets soortgelijks in Excel
Maar MS heeft zelf al een oplossing: http://www.microsoft.com/en-us/download/details.aspx?id=15011
Uitleg: http://www.k2e.com/tech-u(...)zzy-lookups-in-excel
Of doe t zo: http://www.mrexcel.com/pc07.shtml
-edit- Sterker nog, ik vroeg t zelf!
DIG / [Excel] Het grote Excel vragen topic #34
[ Bericht 6% gewijzigd door qu63 op 17-10-2013 00:05:34 ]
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]
Thanks. Jammergenoeg gaat de add-in me niet worden, maar ga verder zoeken.quote:
[..]
Ik meen mij te herinneren dat zoiets al eerder gevraagd is in deze reeks..
Maar MS heeft zelf al een oplossing: http://www.microsoft.com/en-us/download/details.aspx?id=15011
Uitleg: http://www.k2e.com/tech-u(...)zzy-lookups-in-excel
Of doe t zo: http://www.mrexcel.com/pc07.shtml
-edit- Sterker nog, ik vroeg t zelf!
DIG / [Excel] Het grote Excel vragen topic #34
De oplossing(en) van MrExcel gebruiken alleen UDF's, kan dat wel?quote:
[..]
Thanks. Jammergenoeg gaat de add-in me niet worden, maar ga verder zoeken.
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]
Nu hiermee aan de slag. Heb een 5tal vergeleken en dit blijkt veruit de snelste te zijn
Wat ik vervolgens doe is dat ik eerst zoek op een exacte match. Als ik bijv ga zoeken naar janssen: op het moment dat ik 'jan' type, geef ik in een array alle perfect part matches (met het woord jan er exact in) score 100. Stel ik wil 20 resultaten en ik vind maar 8 scores van 100, dan zoek ik voor alle overige matches nu nog de top 12 er bij met bovenstaande functie icm een sorteer algoritme
| 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 | Option Explicit Function Levenshtein(ByVal string1 As String, ByVal string2 As String) As Long If (Len(string1) > 20) Then string1 = Left(string1, 20) If (Len(string2) > 20) Then string2 = Left(string2, 20) Dim i As Long, j As Long, string1_length As Long, string2_length As Long Dim distance(0 To 20, 0 To 20) As Long, smStr1(1 To 20) As Long, smStr2(1 To 20) As Long Dim min1 As Long, min2 As Long, min3 As Long, minmin As Long, MaxL As Long string1_length = Len(string1): string2_length = Len(string2) distance(0, 0) = 0 For i = 1 To string1_length: distance(i, 0) = i: smStr1(i) = Asc(LCase(Mid$(string1, i, 1))): Next For j = 1 To string2_length: distance(0, j) = j: smStr2(j) = Asc(LCase(Mid$(string2, j, 1))): Next For i = 1 To string1_length For j = 1 To string2_length If smStr1(i) = smStr2(j) Then distance(i, j) = distance(i - 1, j - 1) Else min1 = distance(i - 1, j) + 1 min2 = distance(i, j - 1) + 1 min3 = distance(i - 1, j - 1) + 1 If min2 < min1 Then If min2 < min3 Then minmin = min2 Else minmin = min3 Else If min1 < min3 Then minmin = min1 Else minmin = min3 End If distance(i, j) = minmin End If Next Next ' Levenshtein3 will properly return a percent match (100%=exact) based on similarities and Lengths etc... MaxL = string1_length: If string2_length > MaxL Then MaxL = string2_length Levenshtein = 100 - CLng((distance(string1_length, string2_length) * 100) / MaxL) End Function |
Wat ik vervolgens doe is dat ik eerst zoek op een exacte match. Als ik bijv ga zoeken naar janssen: op het moment dat ik 'jan' type, geef ik in een array alle perfect part matches (met het woord jan er exact in) score 100. Stel ik wil 20 resultaten en ik vind maar 8 scores van 100, dan zoek ik voor alle overige matches nu nog de top 12 er bij met bovenstaande functie icm een sorteer algoritme
En hoe gebruik je em dan? =Levenshtein(jan;A1:A100)?quote:
Nu hiermee aan de slag. Heb een 5tal vergeleken en dit blijkt veruit de snelste te zijn
[ code verwijderd ]
Wat ik vervolgens doe is dat ik eerst zoek op een exacte match. Als ik bijv ga zoeken naar janssen: op het moment dat ik 'jan' type, geef ik in een array alle perfect part matches (met het woord jan er exact in) score 100. Stel ik wil 20 resultaten en ik vind maar 8 scores van 100, dan zoek ik voor alle overige matches nu nog de top 12 er bij met bovenstaande functie icm een sorteer algoritme
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]
Segoe UI http://en.wikipedia.org/wiki/Segoe_UI#Segoe_UIquote:
Heeft iemand hier een idee welk lettertype de menus van office 2010 hebben?
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]
Logisch, anders zou je t ook niet vragenquote:
Maar voor zulke vragen is er natuurlijk ook Google
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]
Mwah, dat gaat voor mij niet echt op helaas.quote:
[..]
Logisch, anders zou je t ook niet vragen
Voor alle vragen is er Google.quote:Maar voor zulke vragen is er natuurlijk ook Google
Hoi.
Engelse versie van Excel 2007
Ik heb een simpele macro gemaakt die naar een bepaalde cel springt.
Maar wanneer ik dan de sheet weer ga beveiligen doet de macro het niet meer. Nu heb ik het opgezocht en zou dit zo moeten werken. Maar dat doet het niet
Wat staat er nog fout?
Sub SHOWTOTALS()
'
' SHOWTOTALS Macro
'
'
Sheets("Week 42").Select
ActiveSheet.Unprotect
Application.Goto Reference:="R68C3"
Sheets("Week 42").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
Engelse versie van Excel 2007
Ik heb een simpele macro gemaakt die naar een bepaalde cel springt.
Maar wanneer ik dan de sheet weer ga beveiligen doet de macro het niet meer. Nu heb ik het opgezocht en zou dit zo moeten werken. Maar dat doet het niet
Wat staat er nog fout?
Sub SHOWTOTALS()
'
' SHOWTOTALS Macro
'
'
Sheets("Week 42").Select
ActiveSheet.Unprotect
Application.Goto Reference:="R68C3"
Sheets("Week 42").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
De oorzaak is ondertussen bekend. Zodra ik het blad weer beveilig schiet ie naar boven. Dus hij voert de opdracht wel uit maar schiet meteen weer naar boven.
Wellicht gevalletje jammer maar helaas?
Wellicht gevalletje jammer maar helaas?
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
