02. september 2002 - 19:23Der er
3 kommentarer og 1 løsning
VBA Hent del af Celle
Hej Eksperter..
Jeg sidder her som totalt begynder inden for VBA med et (sikkert nemt) lille problem.
Jeg arbejder med et Excell ark hvor der bl.a. er en masse personer i.
Jeg har lavet en lille funktion der ligger nye personer i enden af regnearket. Når man så har indtastet personen skal jeg bruge en del der sorterer personens initialer ud. F.eks. Hans Jensen, så skal funktionen give mig HJ.
Helst skulle den også kunne ignorere mellemnavne så Hans Peter Jensen stadig bliver til HJ.
(Og hvis mulig skal den ignorere danske bogstaver så ledes at f.eks Øyvin Jensen kunne blive til JE, men er absolut ikke et krav)
Måske kan du bruge dette her. Jeg bruger den selv til at hente forbogstaverne fra de enkelte navne.
Private Sub Command1_Click() txtBrugerInit.Text = getInitials(txtAnsvarlig.Text) End Sub
Function getInitials(strName As String) As String Dim varTmp As Variant, strResult As String Dim n As Integer varTmp = Split(strName, " ", -1) For n = LBound(varTmp) To UBound(varTmp) strResult = strResult & Left$(varTmp(n), 1) Next n getInitials = strResult End Function
Jeg har ikke glemt dig (jeg er for sløv og jeg ved det (pinligt..))
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
