Stránka 1 z 1

Excel VBA - vložení vzorce do proměnné

Napsal: 14 led 2012 19:06
od Azuzula
Ahoj, chtěla jsem se zeptat, jestli je možné do proměnné vložit vzorec a ne jen jeho výsledek.

Ten kód dole mi vypočítá vzorec v buňce a k výsledku do buňky připíše to co vložím z inputboxu.
A já bych potřebovala ve výsledku tohle např:
před "=10+11"
po "=10+11+12"

Kód: Vybrat vše

Sub pricti_castku()
    Dim stara_castka As Integer
    Dim nova_castka As Integer
   
    On Error GoTo konec
    stara_castka = Activecell
    nova_castka = InputBox("Nová částka k přičtení")
    If Activecell = "" Then
        Activecell.Value = "=" & nova_castka
    ElseIf Activecell <> "" Then
        Activecell.Value = stara_castka & "+" & nova_castka
    End If
   
konec:
End Sub


Snad na to existuje jednoduchý řešení. Díky za případný rady.

Re: Excel VBA - vložení vzorce do proměnné

Napsal: 15 led 2012 10:57
od Poki
mozna takto:

Kód: Vybrat vše

Sub pricti_castku()
    Dim stara_castka As String
    Dim nova_castka As Double
   
    On Error GoTo konec
    stara_castka = ActiveCell.Formula
    nova_castka = InputBox("Nová částka k přičtení")
    If ActiveCell = "" Then
        ActiveCell.Formula = "=" & nova_castka
    ElseIf ActiveCell <> "" Then
        ActiveCell.Formula = stara_castka & "+" & nova_castka
    End If
   
konec:
End Sub

Re: Excel VBA - vložení vzorce do proměnné  Vyřešeno

Napsal: 15 led 2012 16:52
od Azuzula
Jé, tak tohle mě fakt nenapadlo. A nikde se mi to ani nepodařilo najít...
Je evidentní že se mám ještě hoodně co učit, ale teď už znám další způsob jak jinak vkládat do proměnné.
Díky moc.