Облак речи познат је и под називом Таг цлоуд ин екцел који је визуелни приказ текста у екцелу у различитим бојама или форматима, у облаку речи учесталост представљања дела дефинисана је фонтом речи, то се постиже коришћењем паметна уметност и облици одликују екцел.
Шта је Ворд Цлоуд у програму Екцел?
Ворд Цлоуд је збирка речи за приказ у облику визуелизације у екцелу. Надам се да сте видели неке од најбољих контролних табли са бројевима и креативним визуелизацијама у Екцелу. Контролне табле се крећу од елегантних фонтова са атрактивним бојама, уз неке супер ствари. Једна од необичних контролних табли коју сте сигурно видели са „Ворд Цлоуд-ом“. Изгледа као софистицирана слика преузета са софтвера, али се не преузима са било ког места, већ је креирана помоћу Екцел ВБА кодирања. Да!!! У праву сте. Направљен је помоћу ВБА кодирања, а у овом чланку ћемо вам показати како да направите такав облак речи помоћу екцела.
Како створити облак речи у програму Екцел?
Да бисмо направили облак речи у Екцелу, морамо да имамо податке о речима и које су нам боје потребне за те речи. Претпоставимо да креирате облак речи од 30 Екцел формула. Зато направите листу од 30 Екцел формула на радном листу.
Напишите горње формуле на свој радни лист у прву колону.
Једном када унесете горња имена формула у колону Б, примените функцију РАНДБЕТВЕЕН за свих 30 формула како следи и задржите доњу вредност 1, а горњу вредност 250.
Једном када су подаци спремни, морамо да се упутимо у Висуал Басиц Едитор. Направите кориснички образац као доле у ВБА.
Сада треба да конфигуришемо кориснички образац у ВБА, овде. За свако дугме морамо да напишемо код. Испод је код за свако дугме.
Двапут кликните на дугме „Различите боје“ из горњег корисничког обрасца и додајте доњи код.
Шифра:
Привате Суб ЦоммандБуттон1_Цлицк () ЦолорЦопеТипе = 0 Унлоад Ме 'Ово је за другу боју Енд Суб
Затим двапут кликните на дугме у црној боји и додајте доњи код.
Шифра:
Привате Суб ЦоммандБуттон2_Цлицк () ЦолорЦопеТипе = 1 Унлоад Ме 'Ово је за црну боју Енд Суб
Слично томе, за сва остала дугмад додајте доње кодове.
Шифра:
Привате Суб ЦоммандБуттон3_Цлицк () ЦолорЦопеТипе = 2 Унлоад Ме 'Ово је за црвену боју Енд Суб Привате Суб ЦоммандБуттон4_Цлицк () ЦолорЦопеТипе = 3 Унлоад Ме' Ово је за зелену боју Енд Суб Привате Суб ЦоммандБуттон5_Цлицк () ЦолорЦопеТипе = 4 Унлоад Ме 'Ово је за плава боја Енд Суб Привате Суб ЦоммандБуттон6_Цлицк () ЦолорЦопеТипе = 5 Унлоад Ме 'Ово је за жуту боју Енд Суб Привате Суб ЦоммандБуттон7_Цлицк () ЦолорЦопеТипе = 6 Унлоад Ме' Ово је за белу боју Енд Суб
Једном када конфигуришемо код, потребно је да декларисамо променљиву у модулу на врху.
Сада треба да напишемо код да бисмо створили облак речи, који је дугачак. Испод је шифра.
Шифра:
Суб ворд_цлоуд () Дим ВордЦлоуд Ас Ранге Дим к Ас Интегер, и Ас Интегер Дим ЦолумнА Ас Ранге, ЦолумнБ Ас Ранге Дим ВордЦоунт Ас Интегер Дим ЦолумЦоунт Ас Интегер, РовЦоунт Ас Интегер Дим ВордЦолумн Ас Интегер, ВордРов Ас Интегер Дим плотареа Ас Ранге, ц Ас Ранге, д Ас Ранге, е Ас Ранге, ф Ас Ранге, г Ас Ранге Дим з Ас Интегер, в Ас Интегер Дим плотареах1 Ас Ранге, плотареах2 Ас Ранге, думми Ас Ранге Дим к Ас Интегер, в Ас Интегер Дим РедЦолор Ас Интегер , ГреенЦолор Ас Интегер, БлуеЦолор Ас Интегер УсерФорм1.Схов ВордЦоунт = -1 Сет ВордЦлоуд = Схеетс ("Ворд Цлоуд"). Ранге ("Б2: Х7") ЦолумнЦоунт = ВордЦлоуд.Цолумнс.Цоунт РовЦоунт = ВордЦлоуд.Ровс.Цоунт Колона А у табелама („Листа формула“). Опсег („А: А“) Ако је КолонаА.Валуе = ""Затим изађите за остало ВордЦоунт = ВордЦоунт + 1 Енд Иф Нект ЦолумнА Изаберите случај ВордЦоунт Цасе ВордЦоунт = 0 до 20 ВордЦолумн = ВордЦоунт / 5 Цасе ВордЦоунт = 21 до 40 ВордЦолумн = ВордЦоунт / 6 Цасе ВордЦоунт = 41 то 40 ВордЦолумн = ВордЦоунт / 8 Цасе ВордЦоунт = 80 до 9999 ВордЦолумн = ВордЦоунт / 10 Енд Селецт ВордРов = ВордЦоунт / ВордЦолумн к = 1 Сет ц = Схеетс ("Ворд Цлоуд"). Ранге ("А1"). Оффсет ((РовЦоунт / 2 - ВордРов / 2), (ЦолумнЦоунт / 2 - ВордЦолумн / 2)) Сет д = Схеетс ("Ворд Цлоуд"). Ранге ("А1"). Оффсет ((РовЦоунт / 2 + ВордРов / 2), (ЦолумнЦоунт / 2 + ВордЦолумн / 2)) Сет плотареа = Схеетс ("Ворд Цлоуд"). Ранге (Схеетс ("Ворд Цлоуд"). Ћелије (ц.Ров, ц.Цолумн), Схеетс ("Ворд Цлоуд"). Ћелије (д.Ров, д.Цолумн) ) За сваку е Ин плотареа е.Валуе = табеле („Листа формула“). Опсег („А1 "). Помак (к, 0) .Вредност е.Фонт.Сизе = 8 + листова (" Листа формула "). Опсег (" А1 "). Помак (к, 0). Оффсет (0, 1) .Вриједност / 4 Изаберите случај ЦолорЦопеТипе Цасе 0 РедЦолор = (255 * Рнд) + 1 ГреенЦолор = (255 * Рнд) + 1 БлуеЦолор = (255 * Рнд) + 1 Цасе 1 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 2 РедЦолор = 255 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 3 РедЦолор = 0 ГреенЦолор = 255 БлуеЦолор = 0 Цасе 4 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 255 Цасе 5 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 100 Цасе 6 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 255 Енд Селецт е.Фонт.Цолор = РГБ (РедЦолор, ГреенЦолор, БлуеЦолор) е.ХоризонталАлигнмент = клЦентер е.ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Затим изађите за Енд Иф Нект е плотареа.Цолумнс.АутоФит Енд СубЛиста формула "). Опсег (" А1 "). Помак (к, 0). Оффсет (0, 1). Вредност / 4 Изаберите случај ЦолорЦопеТипе Случај 0 РедЦолор = (255 * Рнд) + 1 ГреенЦолор = (255 * Рнд) + 1 БлуеЦолор = (255 * Рнд) + 1 кућиште 1 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 2 РедЦолор = 255 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 3 РедЦолор = 0 ГреенЦолор = 255 БлуеЦолор = 0 Цасе 4 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 255 Случај 5 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 100 Цасе 6 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 255 Енд Селецт е.Фонт.Цолор = РГБ (РедЦолор, ГреенЦолор, БлуеЦолор) е.ХоризонталАлигнмент = клЦентер е. ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Затим изађите за крај Ако је следећа плотареа.Цолумнс.АутоФит Енд СубЛиста формула "). Опсег (" А1 "). Помак (к, 0). Оффсет (0, 1). Вредност / 4 Изаберите случај ЦолорЦопеТипе Случај 0 РедЦолор = (255 * Рнд) + 1 ГреенЦолор = (255 * Рнд) + 1 БлуеЦолор = (255 * Рнд) + 1 кућиште 1 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 2 РедЦолор = 255 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 3 РедЦолор = 0 ГреенЦолор = 255 БлуеЦолор = 0 Цасе 4 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 255 Случај 5 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 100 Цасе 6 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 255 Енд Селецт е.Фонт.Цолор = РГБ (РедЦолор, ГреенЦолор, БлуеЦолор) е.ХоризонталАлигнмент = клЦентер е. ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Затим изађите за крај Ако је следећа плотареа.Цолумнс.АутоФит Енд СубВалуе / 4 Селецт Цасе ЦолорЦопеТипе Цасе 0 РедЦолор = (255 * Рнд) + 1 ГреенЦолор = (255 * Рнд) + 1 БлуеЦолор = (255 * Рнд) + 1 Цасе 1 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 2 РедЦолор = 255 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 3 РедЦолор = 0 ГреенЦолор = 255 БлуеЦолор = 0 Цасе 4 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 255 Цасе 5 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 100 Цасе 6 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 255 Енд Селецт е.Фонт.Цолор = РГБ (РедЦолор, ГреенЦолор, БлуеЦолор) е.ХоризонталАлигнмент = клЦентер е.ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Онда Екит Фор Енд Иф Нект е плотареа.Цолумнс. АутоФит Енд СубВалуе / 4 Селецт Цасе ЦолорЦопеТипе Цасе 0 РедЦолор = (255 * Рнд) + 1 ГреенЦолор = (255 * Рнд) + 1 БлуеЦолор = (255 * Рнд) + 1 Цасе 1 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 2 РедЦолор = 255 ГреенЦолор = 0 БлуеЦолор = 0 Цасе 3 РедЦолор = 0 ГреенЦолор = 255 БлуеЦолор = 0 Цасе 4 РедЦолор = 0 ГреенЦолор = 0 БлуеЦолор = 255 Цасе 5 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 100 Цасе 6 РедЦолор = 255 ГреенЦолор = 255 БлуеЦолор = 255 Енд Селецт е.Фонт.Цолор = РГБ (РедЦолор, ГреенЦолор, БлуеЦолор) е.ХоризонталАлигнмент = клЦентер е.ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Онда Екит Фор Енд Иф Нект е плотареа.Цолумнс. АутоФит Енд СубАутоФит Енд СубАутоФит Енд СубХоризонталАлигнмент = клЦентер е.ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Затим изађите за крај Ако је следеће е плотареа.Цолумнс.АутоФит Енд СубХоризонталАлигнмент = клЦентер е.ВертицалАлигнмент = клЦентер к = к + 1 Иф е.Валуе = "" Затим изађите за крај Ако је следеће е плотареа.Цолумнс.АутоФит Енд Суб
Копирајте и залепите горњи код у свој модул. Радни лист који има листу формула треба назвати „Листа формула“. Затим уметните нови радни лист у Екцел и назовите га „Ворд Цлоуд“.
На ново уметнутом листу подесите зум на 40% и подесите висину реда на 85.
Дакле, сада извршите код у ВБА притиском на дугме Ф5, видећете како корисник бира образац у боји.
Изаберите боју по својој жељи. Ако не желите једну боју, одаберите опцију „Различите боје“. Облак речи добићемо у листу „Облак речи“.
Овако, користећи ВБА кодирање, можемо створити Ворд Цлоуд.
