Jak vynásobit všechny buňky v rozsahu konstantou
Chcete zajistit, aby všechny konstanty v rozsahu byly vynásobeny faktorem? Toho docílíte chytře pomocí funkce UPRAVIT - VLOŽIT OBSAH.
Je to jednodušší, pokud použijete následující makro:
Použít dílčí faktor ()
Dim Cell jako rozsah
Dim vstupní hodnota As Long
Vstupní hodnota = InputBox („Zadejte faktor (např. 100)“)
Pro každou buňku ve výběru
Pokud ne (Cell.HasFormula) Pak
Cell.Formula = "=" & Cell.Value & "*" & Val (vstupní hodnota)
Konec If
Další buňka
End Sub
V prvním kroku vyberte rozsah buněk v tabulce. Následující obrázek ukazuje příklad zvýrazněné oblasti.
Potom zavolejte makro. Excel se nyní v okně zeptá na faktor, který chcete použít. Následující obrázek ukazuje toto okno:
Potvrďte definici faktoru tlačítkem OK.
Excel nyní cykluje všemi buňkami ve výběru. Změní se pouze buňky, ve kterých neexistuje vzorec. Jsou vynásobeny zadaným faktorem. Excel zadá novou hodnotu jako vzorec do buňky. Následující obrázek ukazuje, jak může výsledek vypadat:
Pokud chcete zadat čísla jako konstanty, nahraďte řádek „Cell.Formula“ následujícím výrazem:
Cell.Value = Cell.Value * Val (vstupní hodnota)
Zadáním faktoru menšího než jeden můžete také buňky rozdělit konstantou.
Převod vzorce na konstantu pomocí makra: Jak převést výpočet pomocí VBA na absolutní hodnotu
Chcete -li převést buňky rozsahu na absolutní hodnoty. Můžete to udělat interaktivně zkopírováním oblasti a následným vložením jako hodnoty. Příslušný příkaz se v aplikaci Excel do verze 2003 nazývá „Upravit - Vložit jinak“ a v aplikaci Excel od verze 2007 „Spustit - Vložit - Vložit jinak“.
Pokud chcete převést jednotlivé buňky v makru, pomůže vám následující kód programu:
SubValueConvert ()
S ActiveSheet.Range ("a1")
.Formula = .Hodnota
Konec s
End Sub
Makro převede aktuální obsah buňky A1 v aktivní tabulce na absolutní hodnotu.
