Mainiet visas ActiveSheet šūnas uz vērtībām, izmantojot Microsoft Excel VBA

Anonim

Šajā nodaļā jūs uzzināsit, kā mainīt visas aktīvās lapas šūnas uz vērtībām, izmantojot Microsoft Excel VBA.

Ņemsim piemēru un sapratīsim, kā mēs rakstām VBA kodu, lai mainītu šūnu vērtību aktīvajā lapā.

Kā mainīt visu šūnu vērtību aktīvajā lapā?

Programmā Excel mums ir dati, kuros mēs vēlamies visu šūnu vērtību aizstāt tikai ar šūnas vērtību.

Izpildiet tālāk norādītās darbības:-

  • Nospiediet taustiņu kombināciju Alt+F11, lai atvērtu Visual Basic lietojumprogrammu

  • Programmā VBAProject Veiciet dubultklikšķi uz 1. lapas
  • Ievadiet zemāk norādīto VBA kodu
 Apakšvērtības_1 () ar ActiveSheet.UsedRange diapazonu ("A1: I7"). Vērtība = diapazons ("A2"). Vērtība beidzas ar beigu apakšdaļu 

  • Lai palaistu kodu, nospiediet taustiņu F5
  • Šūnas A2 vērtība tiks atjaunināta definēšanas diapazonā

Kā mainīt vērtību no pirmās tabulas uz otro tabulu?

Mums ir 2 galdi, 1st tabulas diapazons ir A3: I5 un 2nd tabulas diapazons ir A8: I10. Mēs vēlamies aizstāt vērtību 1st tabula ar 2 tabulas vērtību aktīvajā lapā.

Lai mainītu vērtību, veiciet tālāk norādītās darbības un kodu:-

  • Atveriet Visual Basic lietojumprogrammu
  • Ievadiet zemāk esošo kodu:-
Apakšvērtības_1 () ar ActiveSheet.UsedRange diapazonu ("A3: I5"). Vērtība = diapazons ("A8: I10"). Vērtība beidzas ar beigu apakšdaļu 

  • Palaidiet kodu, nospiežot F5
  • Vērtības tiks atjauninātas

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.

Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē