Înmulțiți toate valorile Excel cu o constantă

Cum se multiplică toate celulele dintr-un interval cu o constantă

Doriți să vă asigurați că toate constantele dintr-un interval sunt înmulțite cu un factor? Puteți realiza acest lucru folosind inteligent funcția EDIT - INSERT CONTENT.

Este mai ușor dacă utilizați următoarea macro:

Utilizați factorul secundar ()
Dim Cell As Range
Reduceți valoarea de intrare Ca lung
Valoare de intrare = InputBox („Vă rugăm să introduceți factorul (de ex. 100)”)
Pentru fiecare celulă selectată
Dacă nu (Cell.HasFormula), atunci
Cell.Formula = "=" & Cell.Value & "*" & Val (valoare de intrare)
End If
Următoarea celulă
Sfârșitul Sub

În primul pas, selectați un interval de celule dintr-un tabel. Figura următoare prezintă un exemplu de zonă evidențiată.

Apelați apoi macro-ul. Excel cere acum într-o fereastră factorul pe care doriți să îl utilizați. Următoarea figură arată această fereastră:

Confirmați definiția factorului cu butonul OK.

Excel acum parcurge toate celulele din selecție. Se schimbă numai celulele în care nu există o formulă. Acestea sunt înmulțite cu factorul introdus. Excel introduce noua valoare ca formulă în celulă. Următoarea figură arată cum poate arăta rezultatul:

Dacă doriți să introduceți numerele ca constante, înlocuiți linia "Cell.Formula" cu următoarea expresie:

Cell.Value = Cell.Value * Val (valoare de intrare)

Introducând un factor mai mic decât unul, puteți împărți celulele la o constantă.

Conversia unei formule într-o constantă utilizând o macro: Cum se convertește un calcul folosind VBA într-o valoare absolută

Doriți să convertiți celulele unui interval în valori absolute. Puteți face acest lucru interactiv copiind zona și apoi lipindu-l ca valori. Comanda corespunzătoare se numește „Editare - Lipire specială” în Excel până la versiunea 2003 și „Start - Lipire - Lipire specială” în Excel din versiunea 2007.

Dacă doriți să convertiți celule individuale într-o macro, următorul cod de program vă va ajuta:

SubValueConvert ()
Cu ActiveSheet.Range („a1”)
.Formula = .Value
Se termina cu
Sfârșitul Sub

Macro convertește conținutul curent al celulei A1 din tabelul activ într-o valoare absolută.

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave