Loo lahtriveergude diagramm - Exceli näpunäited

Tšehhi Vabariigist pärit lugeja küsis protsentide illustreerimiseks lahtrisisese diagrammi loomist.

Kui lahtris oli väärtus 37%, kuidas saaksin 37% lahtrist täita alt värviga?

Mala Singh meie graafikaosakonnast pakkus selle huvitava lahenduse soovitud efekti saavutamiseks. Mala ehitas töölehe, kus iga rida koosneb tegelikult kahest ühendatud reast. Rakud B2 ja B3 liidetakse ühte lahtrisse. Kui väärtust B2-s muudetakse, reguleerib natuke VBA-kood töölehepaanil automaatselt 2. ja 3. rea kõrgust. Lahter C3 on sinise ja lahtri C2 valge. Selle tagajärjel näib, et veerg C näitab lahtris veerudiagrammi. See pilt näitab sinise riba erinevaid kõrgusi lahtrites C2 kuni C13.

Esimene samm on lahtrite B2 ja B3 ühendamine üheks lahtriks. Valite lahtrid B2 ja B3. Valige menüüst Format, Cells. Minge vahekaardile Joondamine. Märkige ruut Lahtrite ühendamine. See paneb B2 ja B3 toimima ühe lahtrina, mida nimetatakse B2-ks.

Jätke lahter C2 täitmata ja lahtrisse C3 kasutage mis tahes värvitäidet.

Selle tehnika koodi ei paigutata tavalisse moodulisse. See on sündmusekäitleja kood ja see tuleb paigutada selle konkreetse töölehe koodimoodulile. Artiklist Sündmuste makro teekonna ja failinime lisamiseks Exceli päisesse leiate visuaali, kuidas töölehe koodimoodulit avada.

Sisestage järgmine kood Sheet1 (või mis tahes lehega, millega te töötate) koodimoodulisse.

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

Lahtripaaride ühendamise protsessi saate veerus B korrata.

Täname Mala Singhi selle lahenduse eest. Mala saab iga vajaduse rahuldamiseks kujundada kohandatud kaardilahendusi. Ta tegi panuse VBA ja Macros for Exceli graafikute koostamise peatükki.