Kaip padauginti visas diapazono ląsteles iš konstantos
Ar norite užtikrinti, kad visos diapazono konstantos būtų padaugintos iš koeficiento? Tai galite pasiekti sumaniai naudodami funkciją REDAGUOTI - ĮDĖTI TURINĮ.
Tai lengviau, jei naudojate šią makrokomandą:
Naudoti papildomą veiksnį ()
„Dim Cell“ kaip diapazonas
Įteminti įvesties vertę As Long
Įvesties vertė = „InputBox“ („Įveskite koeficientą (pvz., 100)“)
Už kiekvieną pasirinktą langelį
Jei ne (Cell.HasFormula) Tada
Cell.Formula = "=" & Cell.Value & "*" & Val (įvesties vertė)
Pabaiga Jei
Kitas langelis
Pabaiga Sub
Pirmajame etape lentelėje pasirinkite ląstelių diapazoną. Toliau pateiktame paveikslėlyje parodytas paryškintos srities pavyzdys.
Tada iškvieskite makrokomandą. Dabar „Excel“ lange klausia veiksnio, kurį norite naudoti. Šis paveikslėlis parodo šį langą:
Patvirtinkite koeficiento apibrėžimą mygtuku Gerai.
Dabar „Excel“ perjungia visas pasirinktas ląsteles. Keičiamos tik ląstelės, kuriose nėra formulės. Jie padauginami iš įvestos koeficiento. „Excel“ į langelį įveda naują vertę kaip formulę. Toliau pateiktame paveikslėlyje parodyta, kaip gali atrodyti rezultatas:
Jei norite įvesti skaičius kaip konstantas, pakeiskite eilutę „Cell.Formula“ tokia išraiška:
Cell.Value = Ląstelės.Vertė * Val (įvesties vertė)
Įvesdami koeficientą, mažesnį nei vienas, taip pat galite padalinti ląsteles iš konstantos.
Formulės konvertavimas į konstantą naudojant makrokomandą: Kaip konvertuoti skaičiavimą naudojant VBA į absoliučią vertę
Norite konvertuoti diapazono langelius į absoliučias vertes. Tai galite padaryti interaktyviai, nukopijuodami sritį ir įklijuodami ją kaip vertes. Atitinkama komanda vadinama „Redaguoti - įklijuoti specialiai“ programoje „Excel“ iki 2003 m.
Jei norite konvertuoti atskiras makrokomandos ląsteles, jums padės šis programos kodas:
SubValueConvert ()
Su „ActiveSheet.Range“ („a1“)
.Formula = .Vertybė
Pabaiga su
Pabaiga Sub
Makrokomanda konvertuoja dabartinį A1 langelio turinį aktyvioje lentelėje į absoliučią vertę.
