25. januar 2011 - 19:58Der er
4 kommentarer og 1 løsning
VBA - små til stor bogstaver unden ÆØÅ
Hej Eksperter
Jeg er helt ny i VBA verden, så håber jeg kan forklare dette rigtig Jeg har i en UserForm en TextBox hvor der fx.: Stå "Nyt sommerhus", denne tekst overføres til filnavnet det gøre jeg med denne kode:
navn =" "+prnavn.Value +" -001"
With Dialogs(wdDialogFileSaveAs) .Name = navn .Show End With
Er det ikke mulig at får det til at står kun med store bogstaver, men med max 10 kratere, igen mellemrumme (underscor i stedet) og hvis der bliver bugt æ, ø, å, at det så blive konverteret til AE, O, AA.
'du henter først navn med navn =" "+prnavn.Value 'så ret til store bogstaver navn = ucase(navn) 'derefter ret æøå og mellemrum til _ navn = replace(navn,"Æ","AE") navn = replace(navn,"Ø","OE") navn = replace(navn,"Å","AA") navn = replace(navn," ","_") ' skær af efter 10 tegn, og tilsæt tal navn = left(navn,10) & "-001" ' det var så i stedet for din første linjen - resten er magen til.
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.
