[Excel] Het grote Excel vragen topic #22

zaterdag 10 juli 2010 @ 22:06:08 #126

hendrik2009

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}

Met een deel (EN: MID) functie alleen de code weergeven, door vanaf de gevonden positie 5 karakters weer te geven.

zaterdag 10 juli 2010 @ 22:16:00 #127

qu63

..de tijd drinkt..

quote:
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.

Mja, dat bedoelde ik ook ja

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

zaterdag 10 juli 2010 @ 23:22:09 #128

hendrik2009

quote:
Op zaterdag 10 juli 2010 21:28 schreef DaFan het volgende:
Of
[ code verwijderd ]

=InStrWild2(A1,".")-2

Thanks! Ik heb deze tweede functie gebruikt.
De -2 in de functie gezet en de Else er uit gehaald, zodat je de volgende functie krijgt.

1
2
3
4
5
6
7

Function InstrWild(str1 As String, str2 As String) As Long

If str1 Like "*" & str2 & "*" Then
InstrWild = InStr(10, str1, Split(str2, "*")(0)) - 2
End If

End Function

Omdat mijn doel is: een code (dossiernummer) weergeven vanaf de gevonden positie, heb ik de InstrWild samen met een MID in een nieuwe functie gezet en nu krijg ik een keer wat ik wil.

Zie hier

1
2
3
4
5
6
7
8
9
10

Function dn(str1 As String, str2 As String) As String
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

Yes, mijn eerste functie! _O_

zaterdag 10 juli 2010 @ 23:38:06 #129

hendrik2009

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.

[ Bericht 27% gewijzigd door hendrik2009 op 11-07-2010 09:45:11 ]

zondag 11 juli 2010 @ 10:38:39 #130

Beavis

Proud to be South African!

Soms pruts ik ook wat met macro's en ik zou kijken of je dat kan afvangen met een IsNumeric controle:

1
2
3
4
5

If IsNumeric(xxxx) = True Then
....
Else
....
End If

Of ben ik nou niet slim bezig?

zondag 11 juli 2010 @ 10:43:59 #131

hendrik2009

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?

De split functie moet herkennen dat er voor de . een getal staat ipv letters, maar hoe?

Dit is mijn functiecode nu:

1
2
3
4
5
6
7
8
9
10

Function dn(str1 As String) As String
Dim InstrWild As Long

If str1 Like "*" & "." & "*" Then
InstrWild = InStr(10, str1, Split(".", "*")(0))
End If

dn = Mid(str1, InstrWild - 2, 10)

End Function

En dit het resultaat, waarbij B3 niet het gewenste resultaat geeft.

zondag 11 juli 2010 @ 10:49:53 #132

DaFan

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

Function InStrWild(Source As String, FindMe As String, Optional StartAt As Long = 1) As Long

  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

Met een UDF dus

Bij deze string:

quote:
ba. 14.5 dfsdf 14.56

is het resultaat 16.

Alt-F11 in Excel - Insert - Module.
Plak hier de code.

Nu kan je dus dmv

1	=InStrWild(A1,".")

je positie vinden.

zondag 11 juli 2010 @ 14:33:29 #133

hendrik2009

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.

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.

1
2
3
4
5
6
7
8

Function DN(ByVal str1 As String) As String
    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

dinsdag 13 juli 2010 @ 08:48:35 #134

Holy_Goat

mhèèhèhè

even tussen haakjes, UDF? wasda?

dinsdag 13 juli 2010 @ 09:40:59 #135

DaFan

quote:
Op dinsdag 13 juli 2010 08:48 schreef Holy_Goat het volgende:
even tussen haakjes, UDF? wasda?

User Defined Function.
Daarmee kan je zelf functies maken die je in je worksheet kan gebruiken.

Dus =Holy_goat(A1) bv

Je geeft in de UDF de naam van de UDF een waarde mee, dat is je output. Best handig maar ik maak niet zulke grote sheets dat het nodig is.

dinsdag 13 juli 2010 @ 13:42:28 #136

Joooo-pi

Do you want a balloon...

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.)

heitieh

dinsdag 13 juli 2010 @ 13:47:19 #137

qu63

..de tijd drinkt..

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.)

Invoegen -> vormen?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 14:00:46 #138

Joooo-pi

Do you want a balloon...

quote:
Op dinsdag 13 juli 2010 13:47 schreef qu63 het volgende:

[..]

Invoegen -> vormen?

Volgens mij niet, of ik zie 'm over het hoofd

heitieh

dinsdag 13 juli 2010 @ 14:03:07 #139

qu63

..de tijd drinkt..

quote:
Op dinsdag 13 juli 2010 14:00 schreef Joooo-pi het volgende:

[..]

Volgens mij niet, of ik zie 'm over het hoofd

Oh wacht, je wil ze niet tekenen, maar aanklikken om iets mee te kunnen doen

CTRL+klik?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 14:17:04 #140

Holy_Goat

mhèèhèhè

1	=Holy_goat(A1)

geeft bij mij standaard als uitkomst : "kneus"

dinsdag 13 juli 2010 @ 14:20:18 #141

qu63

..de tijd drinkt..

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?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 14:28:33 #142

Joooo-pi

Do you want a balloon...

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?

Nee.

Maar nu heb ik em toch gevonden

Start --> "zoeken en selecteren" --> "Objecten selecteren"

Dat scheelt weer een hoop werk in de toekomst!

Toch bedankt voor het meedenken!

heitieh

dinsdag 13 juli 2010 @ 14:31:49 #143

Joooo-pi

Do you want a balloon...

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?

Onder de knop (waar je opslaan e.d. vindt) zit ook de optie "Voorbereiden"

Selecteer dan "Eigenschappen"

heitieh

dinsdag 13 juli 2010 @ 14:42:23 #144

qu63

..de tijd drinkt..

quote:
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"

Ik wil het dus in mn sheet te zien krijgen

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 14:43:53 #145

Joooo-pi

Do you want a balloon...

quote:
Op dinsdag 13 juli 2010 14:42 schreef qu63 het volgende:

[..]

Ik wil het dus in mn sheet te zien krijgen

Ah, oké. Is misschien ook wel mogelijk, maar weet ik zo niet...

heitieh

dinsdag 13 juli 2010 @ 14:47:32 #146

qu63

..de tijd drinkt..

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...

Iig niet via INFO()

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 14:54:52 #147

Joooo-pi

Do you want a balloon...

quote:
Op dinsdag 13 juli 2010 14:47 schreef qu63 het volgende:

[..]

Iig niet via INFO()

in VBA kun je dit gebruiken:
ThisWorkbook.BuiltinDocumentProperties("Author")

Maak er zelf een functie van en hoppa!

heitieh

dinsdag 13 juli 2010 @ 14:57:58 #148

qu63

..de tijd drinkt..

quote:
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!

Ik hou niet zo van VBA

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 13 juli 2010 @ 15:05:55 #149

Joooo-pi

Do you want a balloon...

quote:
Op dinsdag 13 juli 2010 14:57 schreef qu63 het volgende:

[..]

Ik hou niet zo van VBA

Maar dit is heel eenvoudig. Insert Module in de visualbasic editor (ALT+F11)

vul dit in:

1
2
3

Function auteur() As String
auteur = ThisWorkbook.BuiltinDocumentProperties("Author")
End Function

Ga terug naar je excelsheet en in de cell waar je de auteur wil hebben zet je:
=auteur()

heitieh

dinsdag 13 juli 2010 @ 15:10:41 #150

qu63

..de tijd drinkt..

quote:
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()

Ah, ik was al aan het klooien en kwam er niet uit

Thanks!

Nu nog een leuk script schrijven voor als iemand mn hele sheet kopieerd

Zou het ook kunnen werken met de naam van de PC waar je op werkt?

-edit-
Hmz, korte workaround gemaakt: =ALS(Auteur()=Saved();"";"MAAK EENS ZELF WAT!")

[ Bericht 9% gewijzigd door qu63 op 13-07-2010 15:21:03 ]

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software