Met een deel (EN: MID) functie alleen de code weergeven, door vanaf de gevonden positie 5 karakters weer te geven.quote:Op zaterdag 10 juli 2010 21:21 schreef qu63 het volgende:
[..]
En dat je daarna met Links() 12.34 er uit kunt filteren neem ik aan?
Weet niks van VBA, maar dacht even hard op
Mja, dat bedoelde ik ook jaquote:Op zaterdag 10 juli 2010 22:06 schreef hendrik2009 het volgende:
[..]
Met een deel (EN: MID) functie alleen de code weergeven, door vanaf de gevonden positie 5 karakters weer te geven.
Thanks! Ik heb deze tweede functie gebruikt.quote:Op zaterdag 10 juli 2010 21:28 schreef DaFan het volgende:
Of
[ code verwijderd ]
=InStrWild2(A1,".")-2
1 2 3 4 5 6 7 | If str1 Like "*" & str2 & "*" Then InstrWild = InStr(10, str1, Split(str2, "*")(0)) - 2 End If End Function |
1 2 3 4 5 6 7 8 9 10 | Dim InstrWild As Long If str1 Like "*" & str2 & "*" Then InstrWild = InStr(10, str1, Split(str2, "*")(0)) - 2 End If dn = Mid(str1, InstrWild, 10) End Function |
1 2 3 4 5 | .... Else .... End If |
De split functie moet herkennen dat er voor de . een getal staat ipv letters, maar hoe?quote:Op zondag 11 juli 2010 10:38 schreef Beavis het volgende:
Soms pruts ik ook wat met macro's en ik zou kijken of je dat kan afvangen met een IsNumeric controle:
[ code verwijderd ]
Of ben ik nou niet slim bezig?
1 2 3 4 5 6 7 8 9 10 | Dim InstrWild As Long If str1 Like "*" & "." & "*" Then InstrWild = InStr(10, str1, Split(".", "*")(0)) End If dn = Mid(str1, InstrWild - 2, 10) End Function |
quote:Op zaterdag 10 juli 2010 23:38 schreef hendrik2009 het volgende:
De functie dient toch nog wat aangepast te worden. Nu wordt namelijk soms tekst weergegeven, als dat het eerste is waar de punt in voorkomt. Ik wil dus nog toevoegen dat het wel aan het volgende format moet voldoen:
##.##
Maar hoe doe ik dit?
Regular Expressions: http://msdn.microsoft.com/en-us/library/ms974570
Dat heb ik nodig. Nu nog toepassen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Dim X As Long Dim SearchMe As String SearchMe = Mid$(Source, StartAt) For X = 1 To Len(SearchMe) If Mid$(SearchMe, X) Like "##" & FindMe & "##" Then InStrWild = X Exit For End If Next End Function |
is het resultaat 16.quote:ba. 14.5 dfsdf 14.56
1 |
Ik had eerst jouw tweede UDF gebruikt, omdat ik bij de eerste het gewenste resultaat niet kreeg. Je laatste code werkte in mijn voorbeeld, maar toen ik het op de werkelijke situatie toepaste, werd het format schijnbaar niet herkend. Na nog verder zoeken, heb ik onderstaande code werkend. Bedankt voor je hulp.quote:Op zondag 11 juli 2010 10:49 schreef DaFan het volgende:
[..]
[ code verwijderd ]
Met een UDF dus :P
Bij deze string:
[..]
is het resultaat 16.
Alt-F11 in Excel - Insert - Module.
Plak hier de code.
Nu kan je dus dmv
[ code verwijderd ]
je positie vinden.
1 2 3 4 5 6 7 8 | Dim x, i As Long Const Patrn As String = "##.##.####" x = Split(str1, " ") For i = 0 To UBound(x) If x Like Patrn Then DN = x: Exit Function Next End Function |
User Defined Function.quote:Op dinsdag 13 juli 2010 08:48 schreef Holy_Goat het volgende:
even tussen haakjes, UDF? wasda?
Invoegen -> vormen?quote:Op dinsdag 13 juli 2010 13:42 schreef Joooo-pi het volgende:
Ik probeer nog steeds in Excel 2007 een optie te vinden die ik altijd in 2003 gebruikte, namelijk het aanwijzertje om meerdere objecten (bijv. plaatjes en lijntjes) te selecteren.
Weet iemand waar die zit?
(in 2003 zat die in de werkbalk "tekenen" helemaal links.)
Volgens mij niet, of ik zie 'm over het hoofdquote:
Oh wacht, je wil ze niet tekenen, maar aanklikken om iets mee te kunnen doenquote:Op dinsdag 13 juli 2010 14:00 schreef Joooo-pi het volgende:
[..]
Volgens mij niet, of ik zie 'm over het hoofd
1 |
Nee.quote:Op dinsdag 13 juli 2010 14:03 schreef qu63 het volgende:
[..]
Oh wacht, je wil ze niet tekenen, maar aanklikken om iets mee te kunnen doen
CTRL+klik?
Onder de knop (waar je opslaan e.d. vindt) zit ook de optie "Voorbereiden"quote:Op dinsdag 13 juli 2010 14:20 schreef qu63 het volgende:
Is het ook mogelijk om in Excel te achterhalen wie er als auteur ingesteld is?
In Word heb je zogenaamde 'bouwstenen' die je in je document in kan voegen, heeft Excel dat ook?
Ik wil het dus in mn sheet te zien krijgenquote:Op dinsdag 13 juli 2010 14:31 schreef Joooo-pi het volgende:
[..]
Onder de knop (waar je opslaan e.d. vindt) zit ook de optie "Voorbereiden"
Selecteer dan "Eigenschappen"
Ah, oké. Is misschien ook wel mogelijk, maar weet ik zo niet...quote:Op dinsdag 13 juli 2010 14:42 schreef qu63 het volgende:
[..]
Ik wil het dus in mn sheet te zien krijgen
Iig niet via INFO()quote:Op dinsdag 13 juli 2010 14:43 schreef Joooo-pi het volgende:
[..]
Ah, oké. Is misschien ook wel mogelijk, maar weet ik zo niet...
in VBA kun je dit gebruiken:quote:
Ik hou niet zo van VBAquote:Op dinsdag 13 juli 2010 14:54 schreef Joooo-pi het volgende:
[..]
in VBA kun je dit gebruiken:
ThisWorkbook.BuiltinDocumentProperties("Author")
Maak er zelf een functie van en hoppa!
Maar dit is heel eenvoudig. Insert Module in de visualbasic editor (ALT+F11)quote:
1 2 3 | auteur = ThisWorkbook.BuiltinDocumentProperties("Author") End Function |
Ah, ik was al aan het klooien en kwam er niet uitquote:Op dinsdag 13 juli 2010 15:05 schreef Joooo-pi het volgende:
[..]
Maar dit is heel eenvoudig. Insert Module in de visualbasic editor (ALT+F11)
vul dit in:
[ code verwijderd ]
Ga terug naar je excelsheet en in de cell waar je de auteur wil hebben zet je:
=auteur()
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |