Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jak pomocí kódu VBA nastavovat formát buňkám. Tučné písmo, šířka sloupce, řádků, ....
Doplněno 26.10.2014 (doplněn sešit ke stažení)
Pro přehlednost je článek rozdělen na kapitoly, které se týkají nastavování formátu buněk. K dispozici je zatím:
Jak automaticky upravit výšku a šířku (více řekne ukázka na obrázku) buňky pomocí VBA .
With Me.Cells
.Rows.AutoFit
.Columns.AutoFit
End With
Jak změnit šířku / výšku buňky.
With Me.Cells
.Rows.RowHeight = 12
End With
pro jeden řádek (buňku)
Range("A1").RowHeight = 90
With Me.Cells
.Columns.ColumnWidth = 20
End With
MsgBox "Buňka: Výška = " & Range("A1").RowHeight & vbCrLf & "Šířka = " & Range("A1").ColumnWidth
Jak zalomit text v buňce a automaticky upravit výšku buňky (řádku).
Range("B2").WrapText = True
Range("B2").EntireRow.AutoFit
Jak sloučit buňky B10:C10 pomocí VBA:
Range("B10:C10").Merge
Jak rozdělit buňky B10:C10 pomocí VBA:
Range("B10:C10").UnMerge
Jak nastavit ohraničení (borders) buňky pomocí VBA v Excelu?
Range("B32").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("B32").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Odstranění ohraničení:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Poznámka: Jak na ohtaničení buňky bude sepsáno podrobněji v samostatném článku. Typy ohraraničení (linky), tloušťka, barvy ohraničení. Umístění ohraničení (horní, dolní, levé, ...)
Pomocí VBA změnit barvu (pozadí) buňky aktivní:
ActiveCell.Interior.ColorIndex = 26
Pomocí VBA změnit barvu (pozadí) buňky B43, zadání RGB:
Range("B43").Interior.Color = RGB(200, 160, 35)
nebo přes Cells
Cells(1,1).Interior.Color = RGB(200, 160, 35)
Pokud je potřeba mít buňku bez výplně:
ActiveCell.Interior.ColorIndex = xlNone
Jak nastavit formát čísla buňce Excelu pomocí VBA :
Cells(1,1).NumberFormat = "@"
Range("A1").NumberFormat = "General"
Podrobněji v samostatných článcích. Zatím je k dispozici:
Jak na změnu barvy:
Range("B2").Font.Color = RGB(255, 0, 0)
' nebo
Range("B2").Font.ColorIndex = 26
' nebo
Cells(2,2).Font.ColorIndex = 26
řez fontu (tučné, kurzíva):
' tučné
Range("B2").Font.Bold = True
' netučné
Range("B2").Font.Bold = False
' kurzíva
Range("B2").Font.Italic = True
Změna velikosti fontu:
Range("B2").Font.Size = 20
' nebo
Cells(2,2).Font.Size = 20
Změna fontu (motivu) na Arial:
Range("B2").Font.Name = "Arial"
' nebo
Cells(2,2).Font.Size = 20
hromadná změna několika parametru fontu:
Range("B79:B80").Select
With Selection.Font
.Color = RGB(0, 0, 255)
.Italic = True
.Size = 12
.Name = "Arial"
End With
Podrobněji v samostatném článku, kde výše uvedené kódy doplním odalší možností (příklady).
Zarovnání textu pomocí VBA
Range("B86").HorizontalAlignment = xlCenter
Range("B86").VerticalAlignment = xlCenter
Orientace textu
Range("B88").Orientation = 90
Odsazení textu
Range("B88").IndentLevel = 3
směr textu
Range("B88").ReadingOrder = xlContext
' další možnost
Range("B88").ReadingOrder = xlRTL
Jak zamykat a skrývat vzorce?
Range("B98").Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Podrobněji toto téma bude popsáno v samostatném článku.
Soubor
Formát - praktické příklady - Excel VBA
ke stažení zdarma. Soubor využívá makra (pro Excel 2007 a novější).
Pokud už máte buňku (oblast) označenou můžete s ními dále pracovat například
V přípravě další VBA kódy týkající se formátování buněk.
' v přípravě
Máte svůj oblíbený kód, které ještě není uveden. Můžete se pochlubit v komentářích.
Článek byl aktualizován: 19.09.2020 11:06
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |