Направите у графикону колона са ћелијама - Екцел савети

Читалац из Чешке Републике питао је о стварању графикона у ћелији како би илустровао проценат.

Ако је вредност у ћелији била 37%, како могу да напуним бојом 37% ћелије одоздо?

Мала Сингх из нашег графичког одељења смислила је ово занимљиво решење како би произвела жељени ефекат. Мала је направила радни лист где се сваки ред заправо састоји од 2 спојена реда. Ћелије Б2 и Б3 спајају се заједно у једну ћелију. Када се вредност у Б2 промени, мало ВБА кода у окну радног листа аутоматски ће подесити висину реда 2 и реда 3. Ћелија Ц3 је обојена плаво, а ћелија Ц2 бела. Ефекат је такав да се у колони Ц појављује графикон колона у ћелији. Ова слика приказује различите висине плаве траке у ћелијама од Ц2 до Ц13.

Први корак је спајање ћелија Б2 и Б3 у једну ћелију. Изабраћете ћелије Б2 и Б3. Из менија одаберите Формат, Целлс. Идите на картицу Поравнање. Означите поље за обједињавање ћелија. То ће довести до тога да Б2 & Б3 делују као једна ћелија која се зове Б2.

Оставите ћелију Ц2 без испуне и користите било коју боју у боји за ћелију Ц3.

Шифра за ову технику није смештена у редовни модул. То је код „руковаоца догађајима“ и мора се ставити на модул кода за овај радни лист. Прочитајте чланак Макронаредба за додавање путање и назива датотеке у Екцел заглавље за чланак о томе како отворити модул кода за радни лист.

Унесите следећи код на модул кода за Схеет1 (или било који лист са којим радите).

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target.Cells If cell.Column = 2 And cell.Row> 1 Then If cell.Value> 1 Or cell.Value < 0 Then cell.Select MsgBox ("Value must be between 0 and 100%") End If If IsEmpty(cell) Or cell.Value = 0 Then cell.Range("B1:B2").RowHeight = 25 'cell.Range("B2").Interior.ColorIndex = xlNone Else On Error Resume Next cell.Range("B1").RowHeight = 50 * (1 - cell.Value) With cell.Range("B2") .RowHeight = 50 * cell.Value '.Interior.Color = RGB(0, 0, 255) On Error GoTo 0 End With End If End If Next End Sub

Можете поновити поступак спајања парова ћелија у колони Б.

Хвала Малој Синг на овом решењу. Мала може да дизајнира прилагођена решења за графиконе како би удовољила било којој потреби. Допринео је поглављу графикона у ВБА и Мацрос за Екцел.