Kako pomnožiti sve ćelije u rasponu konstantom
Želite li osigurati da se sve konstante u rasponu pomnože s faktorom? To možete postići pametno upotrebom funkcije UREDI - UMETNI SADRŽAJ.
Lakše je ako koristite sljedeću makronaredbu:
Koristi podfaktor ()
Dim Cell As Range
Zatamnite ulaznu vrijednost kao dugo
Ulazna vrijednost = InputBox ("Molimo unesite faktor (npr. 100)")
Za svaku odabranu ćeliju
Ako nije (Cell.HasFormula) Tada
Cell.Formula = "=" & Cell.Value & "*" & Val (ulazna vrijednost)
Završi ako
Sljedeća ćelija
Kraj podm
U prvom koraku odaberite raspon ćelija u tablici. Sljedeća slika prikazuje primjer označenog područja.
Zatim pozovite makro. Excel sada u prozoru pita za faktor koji želite koristiti. Sljedeća slika prikazuje ovaj prozor:
Potvrdite definiciju faktora tipkom OK.
Excel sada kruži kroz sve ćelije u odabiru. Mijenjaju se samo ćelije u kojima nema formule. Oni se množe s unesenim faktorom. Excel unosi novu vrijednost kao formulu u ćeliju. Sljedeća slika prikazuje kako rezultat može izgledati:
Ako želite unijeti brojeve kao konstante, zamijenite redak "Cell.Formula" sljedećim izrazom:
Cell.Value = Cell.Value * Val (ulazna vrijednost)
Unosom faktora manjeg od jedan, stanice možete podijeliti i konstantom.
Pretvaranje formule u konstantu pomoću makronaredbe: Kako pretvoriti izračun pomoću VBA u apsolutnu vrijednost
Želite pretvoriti ćelije raspona u apsolutne vrijednosti. To možete učiniti interaktivno tako da kopirate područje, a zatim ga zalijepite kao vrijednosti. Odgovarajuća naredba naziva se "Uredi - Posebno zalijepi" u Excelu do verzije 2003 i "Start - Zalijepi - Posebno zalijepi" u Excelu od verzije 2007.
Ako želite pretvoriti pojedine ćelije u makronaredbu, pomoći će vam sljedeći programski kod:
SubValueConvert ()
S ActiveSheet.Range ("a1")
.Formula = .Vrijednost
Završi s
Kraj podm
Makro pretvara trenutni sadržaj ćelije A1 u aktivnoj tablici u apsolutnu vrijednost.