Набавите листу свих коментара на радном листу у Екцелу

Ако радите са радним листовима програма Екцел који на радном листу имају много коментара о ћелијама, овај водич би могао бити користан. Понекад можете да убаците коментаре у ћелију да бисте истакли или објаснили податке, или ваш шеф може да убаци коментаре у ћелије док прегледава ваш рад.

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

Набавите листу свих коментара на радном листу

У овом водичу ћу вам показати како да користите ВБА код да бисте добили листу свих коментара на радном листу у посебном радном листу.

Нешто као што је приказано испод:

У позадини се налази ВБА код који ради следеће ствари:

• Он проверава да ли постоје коментари на активном радном листу или не. Ако нема коментара, тихо се клања и не ради ништа.
• Ако на радном листу постоје коментари, он креира нови радни лист („Коментари“) и издваја листу свих коментара у следећој структури:
  • Колона А садржи адресу ћелије која садржи коментар.
  • Колона Б има назив коментатора. Ово је корисно ако постоји више рецензената исте датотеке. Такође ће помоћи при филтрирању/сортирању на основу имена рецензената.
  • Колона Ц има коментар.

Преузмите датотеку примера

ВБА код

Ево ВБА кода који овде обавља све тешке послове.

Суб ЕктрацтЦомментс () Дим ЕкЦоммент Као коментар Дим и Ас Интегер Дим вс Као радни лист Дим ЦС Као радни лист Сет ЦС = АцтивеСхеет Иф АцтивеСхеет.Цомментс.Цоунт = 0 Затим изађите из Суб за сваки вс на радним листовима Ако је вс.Наме = "Коментари" Затим и = 1 Следећи вс Ако је и = 0 Затим поставите вс = Радни листови.Додајте (после: = АцтивеСхеет) вс.Наме = "Коментари" Остало: Поставите вс = Радни листови ("Коментари") Заврши ако је за сваки коментар у ЦС.Цомментс вс. Ранге ("А1"). Валуе = "Цоммент Ин" вс.Ранге ("Б1"). Валуе = "Цоммент Би" вс.Ранге ("Ц1"). Валуе = "Цоммент" Витх вс.Ранге ("А1: Ц1 ") .Фонт.Болд = Труе .Интериор.Цолор = РГБ (189, 215, 238) .Цолумнс.ЦолумнВидтх = 20 Заврши са Иф вс.Ранге (" А2 ") =" "Затим вс.Ранге (" А2 " ) .Валуе = ЕкЦоммент.Парент.Аддресс вс.Ранге ("Б2"). Валуе = Лефт (ЕкЦоммент.Тект, ИнСтр (1, ЕкЦоммент.Тект, ":") - 1) вс.Ранге ("Ц2"). Вредност = Десно (ЕкЦоммент.Тект, Лен (ЕкЦоммент.Тект) - ИнСтр (1, ЕкЦоммент.Тект, ":")) Остало вс.Ранге ("А1"). Крај (клДовн) .Оффсет (1, 0) = ЕкЦоммент.Парент.Аддресс вс.Ранге ("Б1"). Енд (клДовн) .Оффсет (1, 0) = Лефт (ЕкЦоммент. Тект, ИнСтр (1, ЕкЦоммент.Тект, ":") - 1) вс.Ранге ("Ц1"). Енд (клДовн) .Оффсет (1, 0) = Ригхт (ЕкЦоммент.Тект, Лен (ЕкЦоммент.Тект) - ИнСтр (1, ЕкЦоммент.Тект, ":")) Енд Иф Нект ЕкЦоммент Енд Суб

Како се користи овај код

Постоји неколико начина на које можете користити овај код да бисте добили листу коментара са свог радног листа:

#1 Копирајте податке за лепљење у датотеку примера

Копирајте налепите своје податке (такви какви јесу) на картицу Подаци у датотеци за преузимање, а затим покрените овај макро.

Да бисте покренули ово:

• Идите на картицу Девелопер и кликните на Мацрос. Отвориће се дијалошки оквир Макро.
• Одаберите ЕктрацтЦоммент и кликните на Рун. Уверите се да се налазите на листу са коментарима које желите да издвојите.

#2 Копирај Залепите код у своју радну свеску

Копирајте код и залепите га у радну свеску из које желите да извучете коментаре.

Да уради ово:

• Активирајте радну свеску у којој радите и притисните Алт + Ф11. Ово ће отворити прозор ВБ Едитор.
• У Пројецт Екплореру са леве стране, кликните десним тастером миша на било који објекат те радне свеске, идите на Инсерт -> Модуле.
• Налепите код у прозор кода модула.
• Затворите прозор ВБ Едитор (или притисните Алт + Ф11 за повратак на радни лист).

Сада имате макро у радној свесци. Да бисте покренули макро, идите на картицу Девелопер -> Мацрос. У дијалогу Макро изаберите макро ЕктрацтЦоммент и кликните на Покрени.

Напомена: Обавезно сачувајте радну свеску са.КСЛС или .КСЛСМ проширење.

#3 Направите додатак

Ако морате често да користите овај код, најбоље је да од њега направите додатак. На тај начин можете га лако користити у било којој радној свесци (без додатног напора да копирате и поново налепите код).

Ево како да креирате додатак:

• Идите на Датотека -> Сачувај као.
• У дијалогу Сачувај као промените тип Сачувај као у .клам.
  • Приметићете да се путања датотеке у којој се чува аутоматски мења. Можете га променити ако желите.
• Отворите Екцел радну свеску и идите на Девелопер -> Адд -инс -> Екцел Адд -инс.
• У дијалогу Додаци прегледајте и пронађите датотеку коју сте сачували, а затим кликните на дугме У реду.

Када се додатак активира, можете га користити у било којој радној свесци. Да бисте то урадили, идите на Девелопер -> Мацрос. У дијалогу Макро изаберите макро ЕктрацтЦоммент и покрените га.

Преузмите датотеку примера

Надам се да ће вам овај код уштедети време. Реците ми шта мислите у одељку за коментаре.

Ако радите са Екцелом, ВБА би могао бити моћан савезник. Подигните своје Екцел вештине на виши ниво помоћу Екцел ВБА курса.