„VBA Wrap“ tekstas

Šioje pamokoje sužinosite, kaip įjungti arba išjungti teksto įvyniojimą „Excel“ naudojant VBA.

Teksto įvyniojimas naudojant VBA

Įvyniokite tekstą į langelį ar diapazoną, nustatydami diapazono objekto ypatybę „Range.WrapText“ į „True“. Šis kodas suvynioja tekstą į langelį A1:

1	Darbo lapai ("Sheet1"). Diapazonas ("A1"). WrapText = Tiesa

Rezultatas yra toks:

Taip pat galite apvynioti didesnį ląstelių diapazoną:

1	Diapazonas („A1: A10“). „WrapText“ = tiesa

Įvyniojimo į langelį išjungimas naudojant VBA

Naudodami VBA galite išjungti teksto įvyniojimą tam tikrame langelyje ar diapazone. Šis kodas išjungs teksto įvyniojimą į langelį B2:

1	Diapazonas („B2“). „WrapText“ = klaidinga

Įvyniojimo išjungimas visame darbalapyje

Galite išjungti teksto įvyniojimą visuose darbalapio langeliuose naudodami VBA. Šis kodas leis išjungti teksto įvyniojimą visuose „ActiveSheet“ langeliuose:

12345

Sub DisableWrapText ()Cells.WrapText = NetiesaPabaiga Sub