Питање:
Спојене ћелије немају правилну висину након паузе у реду. Како то могу исправити?
Одговор:
Уметните следећи код у стандардни модул.
Суб АутоФитМергедЦеллРовХеигхт () Дим ЦуррентРовХеигхт као појединачни, МергедЦеллРгВидтх као појединачни Дим ЦуррЦелл као опсег Дим АцтивеЦеллВидтх као појединачни, ПоссНевРовХеигхт као појединачни Ако је АцтивеЦелл.МергеЦеллс Затим са АцтивеЦелл.МергеЦап. фалсе ЦуррентРовХеигхт = .РовХеигхт АцтивеЦеллВидтх = АцтивеЦелл.ЦолумнВидтх Фор Еацх ЦуррЦелл у избору МергедЦеллРгВидтх = ЦуррЦелл.ЦолумнВидтх + МергедЦеллРгВидтх Следећа .МергеЦеллс = фалсе .Целлс (1) .ЦолумнВидтх = МергедЦеллРгВидтх .ЕнтиреРов.АутоФит ПоссНевРовХеигхт = .РовХеигхт .Целлс (1). ЦолумнВидтх = АцтивеЦеллВидтх .МергеЦеллс = Труе .РовХеигхт = ИИф (ЦуррентРовХеигхт> ПоссНевРовХеигхт, _ ЦуррентРовХеигхт, ПоссНевРовХеигхт) Енд Иф Енд Витх Енд Иф Апплицатион.СцреенУпдатинг = Труе Енд Суб