Ako vynásobiť všetky bunky v rozsahu konštantou
Chcete zaistiť, aby boli všetky konštanty v rozsahu vynásobené faktorom? To dosiahnete šikovne pomocou funkcie UPRAVIŤ - VLOŽIŤ OBSAH.
Je to jednoduchšie, ak použijete nasledujúce makro:
Použiť čiastkový faktor ()
Dim Cell as Range
Dim vstupná hodnota ako dlhá
Vstupná hodnota = InputBox („Zadajte faktor (napr. 100)“)
Pre každú bunku vo výbere
Ak nie (Cell.HasFormula) Potom
Cell.Formula = "=" & Cell.Value & "*" & Val (vstupná hodnota)
Koniec Ak
Ďalšia bunka
Koniec pod
V prvom kroku vyberte rozsah buniek v tabuľke. Nasledujúci obrázok ukazuje príklad zvýraznenej oblasti.
Potom zavolajte makro. Excel sa teraz v okne pýta na faktor, ktorý chcete použiť. Nasledujúci obrázok zobrazuje toto okno:
Definíciu faktora potvrďte tlačidlom OK.
Excel teraz prechádza všetkými bunkami vo výbere. Menia sa iba bunky, v ktorých nie je vzorec. Vynásobia sa zadaným faktorom. Excel zadá novú hodnotu ako vzorec do bunky. Nasledujúci obrázok ukazuje, ako môže výsledok vyzerať:
Ak chcete zadať čísla ako konštanty, nahraďte riadok „Cell.Formula“ nasledujúcim výrazom:
Cell.Value = Cell.Value * Val (vstupná hodnota)
Ak zadáte faktor menší ako jeden, môžete bunky rozdeliť aj na konštantu.
Konvertovanie vzorca na konštantu pomocou makra: Ako previesť výpočet pomocou VBA na absolútnu hodnotu
Bunky rozsahu chcete previesť na absolútne hodnoty. Môžete to urobiť interaktívne skopírovaním oblasti a následným prilepením ako hodnôt. Príslušný príkaz sa v Exceli do verzie 2003 nazýva „Upraviť - Prilepiť špeciálne“ a v Exceli od verzie 2007 „Spustiť - Prilepiť - Prilepiť špeciálne“.
Ak chcete previesť jednotlivé bunky do makra, pomôže vám nasledujúci kód programu:
SubValueConvert ()
S ActiveSheet.Range ("a1")
.Formula = .Hodnota
Ukončiť s
Koniec pod
Makro konvertuje aktuálny obsah bunky A1 v aktívnej tabuľke na absolútnu hodnotu.