» Poradna » Programy

VBA Excel

 |   | 

Ako prenesiem (pridelim) format bunky či je text bold cez prikazy VB v Exceli.Otestovat by som to vedel ale ako to priradit dalsej bunke.If Cells(x,z).Format.Bold = True Then ......... a co dalej

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

...Then Cells(a,b).Format.Bold = True V Tvojom pripade este povazujem za potrebne dodat, ze ten smajlik na konci riadku do kodu nepatri...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

dikysak som to takto vcera skusal a neslo to, a dnes o uz takto ide. no divne

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

alebo Cells(a,b).Format.Bold=Cells(x,z).Format.Bold

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Sub Presun()'přesun buňky komplet.Range("A2").Copy Range("B1")'vymazání obsahu.End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Sub Presun()'Přesun obsahu buňky kompletRange("A2").Copy Range("B1")'Vymazání obsahuRange("B1") = ""End SubDá se i vyhodnotit.Sub Presun()If Range("A2").Font.Bold ThenRange("A2").Copy Range("B1")Range("B1") = ""End IfEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Kod do VBA Excelu :' - vyberieme list s ktorym chceme pracovatSheets(Nazov listu - musi byt typ string).Select' - vyberieme bunku, alebo oblastRange(adresa oblasti).Select' - nastavime fontSelection.Font.Bold = True

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Option ExplicitSub Macro1() ' kopirovanie celeho formatu cez paste special' A1 - zdroj' B4 - ciel Range("A1").Select Selection.Copy Range("B4").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Bold


Určitě si přečtěte

Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

** Notebooky s cenou do deseti tisíc korun jsou plné kompromisů ** Existuje několik modelů dobře použitelných pro nenáročné použití ** Vhodnou alternativou jsou tablety nebo repasované počítače

David Polesný | 94

David Polesný
Jak vybrat notebookNotebooky
Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

Cableporn: Podívejte se na úžasná díla umělců z podnikových serveroven

** Uspořádání kabelů můžete vnímat i jako podivný druh umění ** To nejkrásnější se skrývá v datacentrech a serverovnách ** Podívejte se na skutečné „cableporn“ z optiky i kroucené dvojlinky

Vojtěch Malý | 52

Vojtěch Malý
DatacentraServery
Vážně dnes ještě někdo krade Adobe? Video můžete stříhat zdarma v Resolve a fotky i vektory zvládne Affinity

Vážně dnes ještě někdo krade Adobe? Video můžete stříhat zdarma v Resolve a fotky i vektory zvládne Affinity

** Kde jsou ty doby, kdy měl skoro každý doma Photoshop ** Photoshop a Premiere Pro od kamaráda nebo z warezu ** Dnes už to nemá smysl, existuje totiž hromada laciných alternativ

Jakub Čížek | 90

Jakub Čížek
Grafický editorStřih videa
Starlink podle betatesterů: Rychlejší a levnější než satelitní internet v Česku

Starlink podle betatesterů: Rychlejší a levnější než satelitní internet v Česku

** Reddit se začíná plnit zkušenostmi se Starlinkem ** Při přímé viditelnosti dá i 120 Mb/s ** Klasický satelitní internet už teď dalece překonává

Jakub Čížek | 48

Jakub Čížek
StarlinkPoskytovatelé internetu
Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

** Z WhatsAppu kvůli novým podmínkám utíkají tisíce uživatelů ** Čím nahradit populární aplikaci pro zasílání zpráv? ** Vybrali jsme pro vás 10 alternativních komunikátorů

Karel Kilián | 110

Karel Kilián
KomunikaceWhatsAppInstant Messaging

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5