Stvori u tablici stupaca sa ćelijama - Excel savjeti

Čitatelj iz Češke zatražio je izradu grafikona u ćeliji kako bi ilustrirao postotak.

Ako je vrijednost u ćeliji bila 37%, kako mogu ispuniti bojom 37% ćelije od dna?

Mala Singh iz našeg grafičkog odjela smislila je ovo zanimljivo rješenje kako bi proizvela željeni efekt. Mala je sagradila radni list u kojem se svaki redak zapravo sastoji od 2 spojena retka. Stanice B2 i B3 spajaju se zajedno u jednu ćeliju. Kada se vrijednost u B2 promijeni, malo VBA koda u oknu radnog lista automatski će prilagoditi visinu retka 2 i retka 3. Stanica C3 obojena je plavo, a ćelija C2 bijelo. Učinak je takav da se čini da stupac C prikazuje ćelijski grafikon u ćeliji. Ova slika prikazuje različite visine plave trake u stanicama C2 do C13.

Prvi korak je spajanje stanica B2 i B3 u jednu ćeliju. Odabrat ćete ćelije B2 i B3. Na izborniku odaberite Format, Cells. Idite na karticu Poravnanje. Označite okvir za Spajanje ćelija. To će uzrokovati da B2 & B3 djeluju kao jedna stanica nazvana B2.

Ostavite ćeliju C2 bez ispune i upotrijebite bilo koju ispunu u boji za ćeliju C3.

Kôd za ovu tehniku ​​nije smješten u redoviti modul. To je kôd "rukovatelja događajima" i mora se staviti na modul koda za ovaj radni list. Pročitajte članak Makronaredba za dodavanje puta i naziva datoteke u zaglavlje programa Excel da biste saznali kako otvoriti modul koda za radni list.

Unesite sljedeći kod u modul koda za Sheet1 (ili bilo koji list s kojim radite).

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

Možete ponoviti postupak spajanja parova stanica u stupcu B.

Hvala Maloj Singh na ovom rješenju. Mala može dizajnirati prilagođena rješenja za crtanje kako bi udovoljila svim potrebama. Sudjelovao je u poglavlju grafikona u VBA i Macros za Excel.