03. april 2008 - 16:02Der er
4 kommentarer og 1 løsning
Felter, hvor kolonnen er fast, men rækken bliver højere!
Hvordan laver man et felt (dvs. flere celler, der er flettede), således at kolonnen forbliver den samme bredde, lige meget hvor meget tekst man skriver i feltet, dvs. så det bare er rækkernes højde, der bliver større?
Jeg har prøvet med autotilpas, ombrydning af tekst m.m., men feltet bliver ikke større, dvs. man kan ikke se hele teksten, hvis der er blevet skrevet meget i det pågældende felt?
Man kan selvfølgelig stadig gå op og se hele teksten i linien ovenover arket, men det er også meningen, at man skal kunne se hele den skrevne tekst i selve arket. Og det må ikke gå ned over den tekst, der står i rækkerne nedenunder.
Jeg tror det er noget med noget VBA, men har ingen anelse om hvad..
Cellerne du har flettet skal også have ombrydning af tekst slået til.
Højreklik på arkets fane og vælg View Code (eller hvad et nu hedder din version), og Indsæt følgende kode
Private Sub Worksheet_Change(ByVal Target As Range) Dim NewRwHt As Single Dim cWdth As Single, MrgeWdth As Single Dim c As Range, cc As Range Dim ma As Range Dim ProtectStatus As Boolean
With Target If .MergeCells And .WrapText Then ProtectStatus = Me.ProtectContents If ProtectStatus Then Me.Unprotect ' "password" Set c = Target.Cells(1, 1) cWdth = c.ColumnWidth Set ma = c.MergeArea For Each cc In ma.Cells MrgeWdth = MrgeWdth + cc.ColumnWidth Next Application.ScreenUpdating = False On Error Resume Next ma.MergeCells = False c.ColumnWidth = MrgeWdth c.EntireRow.AutoFit NewRwHt = c.RowHeight c.ColumnWidth = cWdth ma.MergeCells = True ma.RowHeight = NewRwHt cWdth = 0: MrgeWdth = 0 On Error GoTo 0 Application.ScreenUpdating = True If ProtectStatus Then Me.Protect ' "password" End If End With End Sub
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.