Pakeiskite visas „ActiveSheet“ langelius į reikšmes naudodami „Microsoft Excel“ VBA

Anonim

Šiame skyriuje sužinosite, kaip pakeisti visas aktyviojo lapo ląsteles į reikšmes naudojant „Microsoft Excel“ VBA.

Paimkime pavyzdį ir suprasime, kaip rašome VBA kodą, kad pakeistume aktyviojo lapo ląstelių reikšmę.

Kaip pakeisti visų langelių reikšmę aktyviame lape?

„Excel“ turime duomenų, kuriuose norime pakeisti visų langelių reikšmes tik langelio reikšme.

Atlikite toliau nurodytus veiksmus:-

  • Paspauskite „Alt“+F11, kad atidarytumėte „Visual Basic“ programą

  • „VBAProject“ dukart spustelėkite 1 lapą
  • Įveskite žemiau pateiktą VBA kodą
 Antrinės vertės_1 () Naudojant „ActiveSheet.UsedRange“ diapazoną („A1: I7“). Vertė = diapazonas („A2“). Vertė baigiama pabaiga 

  • Norėdami paleisti kodą, paspauskite klavišą F5
  • A2 langelio reikšmė bus atnaujinta apibrėžimo diapazone

Kaip pakeisti vertę iš pirmosios į antrąją lentelę?

Turime 2 stalus, 1st lentelės diapazonas yra A3: I5 ir 2antra lentelės diapazonas yra A8: I10. Norime pakeisti 1 reikšmęst lentelė su 2 lentelės reikšme aktyviame lape.

Norėdami pakeisti vertę, atlikite toliau nurodytus veiksmus ir kodą:-

  • Atidarykite „Visual Basic“ programą
  • Įveskite žemiau esantį kodą:-
Antrinės vertės_1 () naudojant „ActiveSheet.UsedRange“ diapazoną („A3: I5“). Vertė = diapazonas („A8: I10“). Vertė baigiasi pabaiga 

  • Paleiskite kodą paspausdami F5
  • Vertės bus atnaujintos

Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el