Vähän samantapainen ongelma kuin remecillä.
A sarakkeen soluissa nimi ja numero.
Mäkelä1258
Karvonen223
Aro12
Salmelainen125984
jne..
miten saan poimittua nimen jälkeen olevat numerot B sarakkeen soluihin?
A sarakkeen soluissa nimi ja numero.
Mäkelä1258
Karvonen223
Aro12
Salmelainen125984
jne..
miten saan poimittua nimen jälkeen olevat numerot B sarakkeen soluihin?
Vastaukset 8
Vanhimmat
Palauttaa tosin kaikki luvut solusta esim.
vil12le34---> 1234
jos ei riitä, niin tehdään uusi versio
;)Kunde
Function EtsiLuvut(solu As Range)
Dim laskuri As Integer
Dim i As Integer
Dim Teksti As String
Dim Numero As String
Teksti = solu
For laskuri = Len(Teksti) To 1 Step -1
If IsNumeric(Mid(Teksti, laskuri, 1)) Then
i = i 1
Numero = Mid(Teksti, laskuri, 1) & Numero
End If
If i = 1 Then Numero = CInt(Mid(Numero, 1, 1))
Next laskuri
EtsiLuvut = CLng(Numero)
End Function
Toimii just niin kuin oli tarkoituskin. Kiitoksia
Pystyykö tämän funktion tallentamaan "käyttäjän määrittämiin" funktioihin, niin että se olis käytettävissä aina kun avaan Excelin.
pistä makro moduuliin niin se se näkyy funktiolistassa
jos haluat lisätä oman funktiosi tiettyn funktioluokkaan käytä alla olevaa koodia
Application.MacroOptions Macro:="Viitenumero", Category:=9
Funktioluokan koodit ovat seuraavat:
0 Kaikki
1 Rahoitus
2 Kalenteri
3 Matemaattiset & trigonometriset
4 Tilasto
5 Haku
6 Tietokanta
7 Teksti
8 Loogiset
9 Erikois
10 Komennot normaalisti piilotettu
11 Muotoilu normaalisti piilotettu
12 Makro kontrollit normaalisti piilotettu
13 DDE/External normaalisti piilotettu
14 Käyttäjän määrittämät oletus
15 Tekniset käytössä vain, jos Analyysityökalut apuohjelma on asennettu
Saan tämän funktion toimimaan Alt 11 ja Insert > Module ja liitän sinne.
Toimii siinä työkirjassa, mutta kun avaan uuden työkirjan sitä ei löydy. Miten sen sais jäämään käyttäjän määrittämiin.
Sorry! En lukenut huolella jatkokysymystäsi. Siis liitä makro moduuliin ja tallenna työkirja XLStart- kansioon. oletuskansio lienee
C:\Program Files\Microsoft Office\Office10\XLStart.
Siinä se :)
Nyt on "EtsiLuvut" tallessa, ja toimii. Kaljat tarjoan heti kun nähdään.
Tonne kansioon kun tallennat Työkirja.xls nimisen työkirjan ja Auto_Open tapahtumaan teet "jäynää" ja piilotat moduulin , niin on tavallisella pulliaisella miettimistä missä vika (esim, piilotat kursorin) :)