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 kunnen Alleen nog even inlezen in wat draaitabellen precies doen en hoe ze dat doenquote:Op vrijdag 11 oktober 2013 20:10 schreef Holy_Goat het volgende:
[..]
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
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 Alleen nog even inlezen in wat draaitabellen precies doen en hoe ze dat doen
Dankjewel
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 |
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:Op zaterdag 12 oktober 2013 09:25 schreef PAAC het volgende:
[..]
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)
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 ]
Gewoon .formula werkt welquote:Op maandag 14 oktober 2013 17:44 schreef Holy_Goat het volgende:
[..]
Kun je gebruiken ipv .value .formulalocal ?
=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.
je wilt dus van alle januari's zien wat de absolute waarde is (en vervolgens omzetten naar een percentage)?quote:Op maandag 14 oktober 2013 21:20 schreef _superboer_ het volgende:
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 meen mij te herinneren dat zoiets al eerder gevraagd is in deze reeks..quote:Op woensdag 16 oktober 2013 23:00 schreef Holy_Goat het volgende:
(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
Thanks. Jammergenoeg gaat de add-in me niet worden, maar ga verder zoeken.quote:Op woensdag 16 oktober 2013 23:30 schreef qu63 het volgende:
[..]
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:Op donderdag 17 oktober 2013 07:58 schreef Holy_Goat het volgende:
[..]
Thanks. Jammergenoeg gaat de add-in me niet worden, maar ga verder zoeken.
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 |
En hoe gebruik je em dan? =Levenshtein(jan;A1:A100)?quote:Op donderdag 17 oktober 2013 09:01 schreef Holy_Goat het volgende:
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
Segoe UI http://en.wikipedia.org/wiki/Segoe_UI#Segoe_UIquote:Op donderdag 17 oktober 2013 11:33 schreef Cracka-ass het volgende:
Heeft iemand hier een idee welk lettertype de menus van office 2010 hebben?
Logisch, anders zou je t ook niet vragenquote:
Mwah, dat gaat voor mij niet echt op helaas.quote:Op donderdag 17 oktober 2013 11:58 schreef qu63 het volgende:
[..]
Logisch, anders zou je t ook niet vragen
Voor alle vragen is er Google.quote:Maar voor zulke vragen is er natuurlijk ook Google
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |