300 Piemēri

Apmainīt vērtības

Swap Values

Šis piemērs māca, kā to izdarīt samainīt divas vērtības iekšā Excel VBA . Šī struktūra bieži būs nepieciešama sarežģītākās programmās, kā mēs redzēsim vēlāk.



Situācija:

Darblapā divas vērtības.





Apmainiet vērtības programmā Excel VBA

Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:



1. Pirmkārt, mēs deklarējam a mainīgais sauc par dubultā tipa temp.

Navtemp Dubultā

2. Mēs inicializējam mainīgo temp ar šūnas A1 vērtību.

temp = Diapazons ('A1'). Vērtība

3. Tagad mēs varam droši ierakstīt šūnas B1 vērtību šūnā A1 (esam saglabājuši šūnas A1 vērtību temp, lai mēs to nezaudētu).

Diapazons ('A1'). Vērtība = Diapazons ('B1'). Vērtība

4. Visbeidzot, mēs ierakstām šūnas A1 vērtību (rakstīts uz temp) šūnai B1.

Diapazons ('B1'). Vērtība = temp

5. Divas reizes noklikšķiniet uz komandas pogas.

Rezultāts:

Mijmaiņas vērtību rezultāts

Mijmaiņas vērtību rezultāts

kā pāriet uz jaunu līniju Excel šūnā

2/9 Pabeigts! Uzziniet daudz vairāk par makro izveidi>
Doties uz nākamo nodaļu: MsgBox



^