Přeskočit navigaci | Přeskočit na novinky

Jste zde: Úvodní stránka » excel » vba-listy-bunky » zapis-vzorec-funkci-do-bunky-excel-vba

Zapiš vzorec (funkci) do buňky - VBA Excel

Jak do buňky zapsat vzorec pomocí makra ve VBA?

Úvodem

Jak zapsat údaj do buňky jsem popsal v článku: Excel VBA - zapiš údaj do buňky. Co když, ale potřebujeme zapsat do buňky vzorec (funkci)? Opět na to není nic složitého. Jen je potřeba si uvědomit, že vzorce se mohu zapisovat ve dvou tvarech, klasicky A1 nebo jako RC. Tomu stačí přizpůsobit požadavek na zápis.

Zapiš klasický vzorec A1

Zapsat klasický odkaz není problém, existuje více možností, které jsou popsány v tomto odstavci.

Odkazem na oblast

Range("B4").Formula = "=A1"

Nebo odkazem na buňku:

Cells(2, 2).Formula = "=A1"

Příklad smazání vzorce:

Range("B4").Formula = ""

Zapiš vzorec ve formátu RC

Range("H10").FormulaR1C1 = "=RC[-3]"

Nebo odkazem na buňku:

Cells(10, 10).FormulaR1C1 = "=RC[-3]"

Příklad smazání vzorce:

Range("AG" & k).FormulaR1C1 = ""

Další možností

Poznámka: Takové malé připomenutí jak něco zapsat ať mám člověk rychle po ruce a nemusí lovit v dalších článcích, ve kterých je struktura podrobněji popsána.

Toto již kombinuje cykly či podmínky do vzorce vkláda nějakou kompilovanou hodnotu například:

k = 8 Range("A4").Formula = "=List5!D" & (k + 22)

Dynamicky výběr řádku:

k = 8 Range("A" & k).Formula = "=List5!D" & (k + 2)

Cyklus a podmínka

For k = 1 To 5 If Range("A" & k).Value = "0" Then Range("B" & k).Formula = "" Else Range("C" & k).Formula = "=D2" End If Next k

Závěrem

Pro další náměty či doplnění slouží komentáře.

Článek byl aktualizován: 22.02.2012 18:08



| tisk stránky TISK | nahoru NAHORU |
| |

Další články k tématu




Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.


Přidání nového komentáře




(vlož číslo šest)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky a URL. Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.




Nejnovější článek

Z článku o excel jsem jako poslední přidal či upravil článek 14.05.2012:
Kombinování funkcí - vzorců.

Nejčtenější článek




Google+

  

Facebook

facebook  

Novinky

Word: 12.5.2012:
Matematické rovnice (vzorce) - Word 2010

Excel: 14.05.2012:
Kombinování funkcí - vzorců

Access: 28.04.2012:
VBA - Jak spustit v MS Access

Power Point: 25.04.2012:
SmartArt - PowerPoint 2010

Outlook 26.04.2012:
Outlook 2010 - jak vypadá

Project: 05.04.2012:
Kalendář ukázka

OneNote: 17.10.2010:
OneNote 2010 – popis obrazovky

Office 30.04.2012:
Kde hledat odpovědi na dotazy o MS Office

Poděkování

Poděkování patří hlavně mojí nejbáječnější manželce.

LinkedIN

Translate

     

Stránky o MS Office produktu společnosti Micosoft. Neslouží jako technická podpora.
| Email na autora: lasak@centrum.cz | Copyright © : Pavel a Danka 2006 - 2012 |
| Doporučuji: Advokátní kancelář Brno - Dana Lasáková | 759

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.