Notifikationer

Markér alle som læst Log ud

splokit Nybegynder

24. juli 2006 - 07:00 Der er 11 kommentarer og
1 løsning

Vb kode til store forbogstaver

Range("F16:IU1515").Select = alle org skal have store forbogstaver
F.eks
"Store Forbogstaver" "Bogstaver" "En Lille Kode"

Synes godt om

tribalroots Nybegynder

24. juli 2006 - 07:50 #1

http://www.webdeveloper.com/forum/misc.php?do=bbcode

Gå ned under Advanced Lists

(Håber det er hvad du skal bruge) =)

Synes godt om

splokit Nybegynder

24. juli 2006 - 08:19 #2

Nej det er mere til html/php ikke noget til excel

Synes godt om

excelent Ekspert

24. juli 2006 - 09:22 #3

http://www.eksperten.dk/spm/431423

Synes godt om

splokit Nybegynder

24. juli 2006 - 10:19 #4

jah men uden inputbox og uden man skal skrive hvad den skal gøre til store forbogstaver.

Synes godt om

excelent Ekspert

24. juli 2006 - 10:24 #5

Sub test()
Dim c As Range
range("F16:IU1515").select
For Each c In Selection
If TypeName(c.Value) = "String" Then c = Application.WorksheetFunction.Proper(c)
Next
End Sub

Synes godt om

splokit Nybegynder

24. juli 2006 - 10:31 #6

excelent virker. Takker der var bare "range("F16:IU1515").select" der skulle til...

Synes godt om

jkrons Professor

24. juli 2006 - 10:32 #7

Det koster ressoucer at selecte først. Bedre er

For Each c In Range("F16:IU1515").Cells
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c

Synes godt om

excelent Ekspert

24. juli 2006 - 10:37 #8

ok velbekom

har noteret dit hint jkrons tak's :-)

Synes godt om

splokit Nybegynder

24. juli 2006 - 10:40 #9

sådan her!?
Dim c As Range
Sub test()
Dim c As RangeFor Each c In Range("F16:IU1515").Cells
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
End Sub

Synes godt om

excelent Ekspert

24. juli 2006 - 10:43 #10

tæt på,- sådan :

Sub test()
Dim c As Range
For Each c In Range("F16:IU1515").Cells
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next
End Sub

Synes godt om

splokit Nybegynder

24. juli 2006 - 10:43 #11

på denne måde bruger den mere tid
Sub test()
Dim c As Range
For Each c In Range("F16:IU1515").Cells
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
End Sub

Synes godt om

splokit Nybegynder

24. juli 2006 - 10:47 #12

men takker. holder mit til "range("F16:IU1515").select"

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	I går 10:24	I går 12:26
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS