photosdematures.com

Екцел ВБА Сакриј колоне

Сакривање је једноставна ствар, али овде морате разумети концепт. Да бисмо сакрили колону помоћу ВБА, морамо да одредимо коју колону треба да сакријемо. Да бисмо одредили који ће ступац бити сакривен, треба да користимо објекат РАНГЕ.

Домет ("А: А")

Тада треба да користимо својство „Цела колона“.

Опсег („А: А“). Цела колона

У целом својству колоне морамо да користимо својство „Скривено“.

Опсег („А: А“). Цела колона. Скривена

Затим, коначно, морамо да поставимо својство Хидден на ТРУЕ.

Опсег („А: А“). Цела колона.Хидден = ИСТИНА 

Ово ће сакрити колону А.

Како сакрити колоне у ВБА?

Колоне можемо сакрити на неколико начина. Колону можемо сакрити помоћу објекта Ранге, користећи својство ЦЕЛЛС. На основу методе коју користимо морамо да конструишемо наш ВБА код.

Можете да преузмете овај ВБА сакриј колоне у Екцел предлошку овде - ВБА сакриј колоне у Екцел предлошку

Пример # 1 - Сакриј помоћу објекта опсега

Ако желите сакрити одређену колону, наведите колону унутар РАНГЕ објекта. Погледајте податке у наставку.

Сада ћемо сакрити целу колону А користећи следећи код.

Шифра:

 Суб Ранге_Хиде () Ранге ("А: А"). ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Дакле, када покренемо код, добићемо следећи резултат.

Пример # 2 - Сакриј помоћу својства колоне

Ако желите сакрити колону помоћу својства Цолумнс, онда је доњи код за вас.

Шифра:

 Суб Ранге_Хиде () Колоне ("Б"). Скривено = Истина Крај Суб 

Ово ће сакрити колону Б. Овде мора да мислите где је својство целе колоне. Када користите својство Цолумнс, није неопходно користити својство Ентире Цолумн.

И даље можемо да користимо својство „Цела колона“, али не и обавезно. А код за исти је дат у наставку.

Шифра:

 Суб Цолумнс_Хиде () Цолумнс ("Б"). ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Ово би такође требало да функционише у реду.

Уместо абецедне референце можемо користити и број колоне. А код за исти је дат у наставку.

Шифра:

 Суб Цолумнс_Хиде () Цолумнс (4) .ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Ово ће сакрити колону Д.

Пример # 3 - Сакриј више колона

Истовремено можемо сакрити и више колона. За ово морамо да поменемо прву и последњу колону, тако да ће и она између њих бити сакривена. За исте податке као пример # 1 користите следећи код да бисте сакрили више колона.

Шифра:

 Суб Цолумнс_Хиде () опсег ("А: Ц"). ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Ово ће сакрити колоне А до Ц.

Следећи код можемо користити и за сакривање више колона у програму Екцел ВБА.

Шифра:

 Суб Мулти_Цолумнс_Хиде () Колоне ("А: Ц"). ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Горње методе ће сакрити прве три колоне, тј. А, Б и Ц.

Пример # 4 - Сакриј колоне са једном ћелијом

Такође можемо сакрити колону на основу референце једне ћелије. Не треба да дајемо пуну референцу колоне да бисмо сакрили колону. Са само једном референцом на ћелију могли бисмо да сакријемо колону.

Шифра:

 Суб Сингле_Хиде () опсег ("А5"). ЕнтиреЦолумн.Хидден = Труе Енд Суб 

Ово ће сакрити целу колону А.

Пример # 5 - Сакриј сваку алтернативну колону

Претпоставимо да имате податке сличне доњој слици.

Морамо сакрити сваку празну колону. Да би се ово десило потребно је да користимо петље, доњи код ће обавити посао уместо нас.

Шифра:

 Суб АлтернативеЦолумн_Хиде () Дим к као цео број за к = 1 до 7 ћелија (1, к + 1) .ЕнтиреЦолумн.Хидден = Труе к = к + 1 Следећи к Енд Суб 

Ово ће сакрити сваку алтернативну колону.

Пример # 6 - Сакриј сваку празну колону

У претходном примеру је свака друга алтернативна колона била празна што смо лако сакрили. Али погледајте податке у наставку.

Овде образац празних колона није стандардан. У овим случајевима доњи код ће сакрити све празне колоне, није важно какав је образац.

Шифра:

 Суб Цолумн_Хиде1 () Дим к као цео број за к = 1 до 11 Иф Целлс (1, к) .Валуе = "" Затим Цолумнс (к) .Хидден = Труе Енд Иф Нект к Енд Суб 

Када покренете код, добићете резултат као што следи.

Пример # 7 - Сакриј колоне на основу вредности ћелије

Сада ћемо видети како сакрити колону на основу вредности ћелије. За пример погледајте податке у наставку.

Овде желим да сакријем све колоне ако је наслов „Не“. Испод кода ће то учинити уместо мене.

Шифра:

 Суб Цолумн_Хиде_Целл_Валуе () Дим к Ас Интегер Фор к = 1 То 7 Иф Целлс (1, к) .Валуе = "Но" тхен Цолумнс (к) .Хидден = Труе Енд Иф Нект к Енд Суб 

Када покренете код, добићете резултат као што следи.