VBA/Excel - automātisks augstums rindām ar sapludinātām šūnām

[itanium]

Sveiki, biedri!

Ķeršos uzreiz pie lietas: ir B1:D1 šūnas, kas ir sapludinātas (Merge & Center) un kurām ir arī piemērots "Wrap Text". Šajā šūnu kopā teksta garums ir mainīgs. Mainot valodu ⭢ mainās teksts ⭢ mainās tā garums. Citreiz pie fiksēta platuma salien 2 rindās, citreiz 3.

Kā panākt, ka pirmās (1) rindas augstums tiek automātiski nomainīts, lai viss teksts būtu redzams un nebūtu arī pārāk daudz liekas brīvās vietas virs un zem teksta?

 

Diemžēl ar zemāk minēto kodu tiek ignorēts teksts, kas ir sapludinātajās šūnās:

Rows(1).EntireRow.AutoFit

 

Labots Novembris 1, 2018 - itanium

[superKrona]

Tava problēma

 

Piemērs:

' make C36 spare cell contain the same number of Chr(10) as D36, using a Repeat function :
' (after counting Chr(10) by comparing the length before and after substituting Chr(10) with "")
Worksheets(1).Range("C36").Value = _
   Application.WorksheetFunction.Rept(Chr(10), _
     Len(Worksheets(1).Range("D36").Value) - Len(Replace(Worksheets(1).Range("D36").Value, Chr(10), "")))
Worksheets(1).Range("C36").Rows.AutoFit

Labots Novembris 1, 2018 - superKrona

[itanium]

Nebūs, konkrētais risinājums strādā tikai tad, ja tekstā ir jaunas rindas rakstzīme - Chr(10).

Manā gadījumā teksts ir vienā blāķī un tiek sadalīts pa rindām (Text Wrap) pie nemainīga šūnu kopas platuma.

[camel]

Pamēģināju uz sava excel, uztaisiju kolonnu ar tādu pašu platumu kā b1:d1, ieliku formulu =b1, kolonna var būt arī paslēpta - autofit itkā darbojas.

[itanium]

Sapratu - paldies !

 

Labots Novembris 1, 2018 - itanium