Kuidas korrutada kõik vahemikus olevad lahtrid konstandiga
Kas soovite tagada, et kõik vahemiku konstandid korrutatakse teguriga? Seda saate saavutada, kasutades nutikalt funktsiooni EDIT - INSERT CONTENT.
See on lihtsam, kui kasutate järgmist makro:
Kasuta alamfaktorit ()
Dim Cell kui vahemik
Dim sisendväärtus As Long
Sisendväärtus = InputBox ("Palun sisestage tegur (nt 100)")
Iga valitud lahtri kohta
Kui ei (Cell.HasFormula) Siis
Cell.Formula = "=" & Cell.Value & "*" & Val (sisendväärtus)
Lõpp Kui
Järgmine lahter
End Sub
Esimese sammuna valige tabelis lahtrite vahemik. Järgmine joonis näitab esiletõstetud ala näidet.
Seejärel helistage makrole. Excel küsib nüüd aknas tegurit, mida soovite kasutada. Seda akent näitab järgmine joonis:
Kinnitage teguri määratlus nupuga OK.
Excel vaatab nüüd läbi kõik valitud lahtrid. Muudetakse ainult neid lahtreid, milles pole valemit. Need korrutatakse sisestatud teguriga. Excel sisestab uue väärtuse lahtrisse valemina. Järgmine joonis näitab, milline võib tulemus välja näha:
Kui soovite numbreid sisestada konstantidena, asendage rida "Cell.Formula" järgmise avaldisega:
Cell.Value = Cell.Value * Val (sisendväärtus)
Kui sisestate teguri alla ühe, saate lahtrid jagada ka konstandiga.
Valemi muutmine konstandiks makro abil: kuidas teisendada VBA abil tehtud arvutused absoluutväärtuseks
Soovite teisendada vahemiku lahtrid absoluutväärtusteks. Seda saate teha interaktiivselt, kopeerides ala ja kleepides selle seejärel väärtustena. Vastavat käsku nimetatakse Excelis kuni versioonini 2003 "Edit - Paste Special" ja versioonis 2007 Excelis "Start - Paste - Paste Special".
Kui soovite makro üksikuid lahtreid teisendada, aitab teid järgmine programmikood:
SubValueConvert ()
ActiveSheet.Range ("a1")
.Vormel = .Väärtus
Lõpeta
End Sub
Makro teisendab aktiivse tabeli lahtri A1 praeguse sisu absoluutväärtuseks.
