Avatar billede jhjorsal Mester
26. april 2006 - 20:26 Der er 10 kommentarer og
1 løsning

Tal overskriver celle

Hvordan får man en celle til at reagere på samme måde med tal som med bogstaver. Jeg mener at hvis man skriver en masse bogstaver i en celle og de ikke kan værer der, fortsætter de ind i næste celle(medmindre der også står noget)mens tal der ikke kan værer i en celle bliver erstattet med ###### og ikke overskrider cellevægen, Jeg vil gerne have tallene til at blive representeret på samme måde som bogstaver
Avatar billede tobler Nybegynder
26. april 2006 - 20:32 #1
Det mener jeg ikke du kan, du er nødt til at udvide celle. Det kan du gøre ved at markere hele kolonnen foroven, og på højre kant foroven, når du har en lodret streg med en pil til begge sider (når du holder mussen henover grænsen mellem de to kolonner) dobbeltklikker du og cellerne tilpasses den største celle du har.
Avatar billede cool_m_f Nybegynder
26. april 2006 - 20:47 #2
du kan bare formatere cellen som tekst ;-)
Avatar billede excelent Ekspert
26. april 2006 - 21:18 #3
indsæt i Ark1's kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Ark1").Columns("A:IV").AutoFit
End Sub
Avatar billede jhjorsal Mester
27. april 2006 - 18:42 #4
tobler>>den løsning dur ikke lige for mig jeg har brug for at den skriver ind i de andre celler.
cool m f>>Har jeg prøvet - virker ikke hos mig.
excelente>> Hvordan gør jeg det og hvad gør det.
Avatar billede excelent Ekspert
27. april 2006 - 19:18 #5
højreklik på arkfane
vælg vis programkode
kopier subben herfra og paste den i kodevindue
Avatar billede excelent Ekspert
27. april 2006 - 19:40 #6
denne er måske mere anvendelig,- påvirker kun aktuel kolonne

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1, 0).ColumnWidth = Len(ActiveCell.Offset(-1, 0).Value) + 1
End Sub
Avatar billede excelent Ekspert
28. april 2006 - 08:34 #7
hmm denne er vist bedre- tilpasser kolonnebredde til celleinput

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.ColumnWidth < Len(ActiveCell.Offset(-1, 0).Value) + 2 Then
ActiveCell.Offset(-1, 0).ColumnWidth = Len(ActiveCell.Offset(-1, 0).Value) + 2
End If
End Sub
Avatar billede excelent Ekspert
29. april 2006 - 12:00 #8
Hvis du kan leve med at cellen bliver merget med nabocellen:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1, 0).Activate
If ActiveCell.ColumnWidth < Len(ActiveCell.Value) + 1 Then
ActiveCell.Resize(, 2).Select
Selection.Merge
ActiveCell.Offset(1, 0).Activate
End If
End Sub
Avatar billede jhjorsal Mester
30. april 2006 - 07:45 #9
det virker, lig et svar
Avatar billede excelent Ekspert
30. april 2006 - 12:53 #10
ok
Avatar billede excelent Ekspert
30. april 2006 - 13:03 #11
hvis du vil have tal venstrestillet lige som tekst bliver, så indsæt

ActiveCell.HorizontalAlignment = xlLeft

lige efter Selection.Merge
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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