Hogyan szorozzuk meg az összes cellát egy tartományban egy állandóval
Biztosítani szeretné, hogy egy tartomány összes konstansát szorozzák egy tényezővel? Ezt az EDIT - INSERT CONTENT funkció használatával ügyesen használhatja.
Könnyebb, ha az alábbi makrót használja:
Alfaktor használata ()
Dim Cell as Range
Halvány bemeneti érték
Bemeneti érték = InputBox ("Kérjük, adja meg a tényezőt (pl. 100)")
Minden kiválasztott cellához
Ha nem (Cell.HasFormula) Akkor
Cell.Formula = "=" & Cell.Value & "*" & Val (bemeneti érték)
Vége Ha
Következő cella
End Sub
Első lépésben válasszon ki egy cellatartományt a táblázatban. A következő ábra egy példát mutat egy kiemelt területre.
Ezután hívja a makrót. Az Excel most egy ablakban megkérdezi a használni kívánt tényezőt. A következő ábra ezt az ablakot mutatja:
Erősítse meg a tényező meghatározását az OK gombbal.
Az Excel most a kiválasztás összes celláját végigkíséri. Csak azok a cellák változnak, amelyekben nincs képlet. Ezeket megszorozzuk a megadott tényezővel. Az Excel képletként írja be az új értéket a cellába. Az alábbi ábra azt mutatja, hogy milyen lehet az eredmény:
Ha konstansként szeretné megadni a számokat, cserélje ki a "Cell.Formula" sort a következő kifejezéssel:
Cell.Value = Cell.Value * Val (bemeneti érték)
Ha egynél kevesebb tényezőt ad meg, akkor a cellákat is el tudja osztani egy állandóval.
Képlet átalakítása állandóvá makró használatával: Hogyan lehet átalakítani a VBA használatával végzett számítást abszolút értékre
Egy tartomány celláit abszolút értékre szeretné konvertálni. Ezt interaktív módon megteheti a terület másolásával, majd értékként való beillesztésével. A megfelelő parancs neve "Edit - Paste Special" az Excelben a 2003 -as verzióig, és a "Start - Paste - Paste Special" az Excelben a 2007 -es verziótól.
Ha makró egyes celláit szeretné konvertálni, akkor a következő programkód segít:
SubValueConvert ()
ActiveSheet.Range ("a1") segítségével
.Formula = .Érték
Vége ezzel
End Sub
A makró abszolút értékké alakítja az A1 -es cella aktuális tartalmát az aktív táblában.
