Šī apmācība iemācīs jums mijiedarboties ar šūnu vērtībām, izmantojot VBA.
Iestatiet šūnas vērtību
Lai iestatītu šūnas vērtību, izmantojiet diapazona vai šūnu objekta rekvizītu Value.
Diapazons. Vērtība un šūnas. Vērtība
Ir divi veidi, kā atsaukties uz šūnu (-ām) VBA:
- Diapazona objekts - Diapazons (“A2”). Vērtība
- Šūnu objekts - Šūnas (2,1). Vērtība
Objekts Diapazons ļauj atsaukties uz šūnu, izmantojot standarta apzīmējumu “A1”.
Tādējādi tiks iestatīta diapazona A2 vērtība = 1:
1 | Diapazons ("A2"). Vērtība = 1 |
Šūnu objekts ļauj atsaukties uz šūnu pēc tās rindas numura un kolonnas numura.
Tādējādi tiks iestatīta diapazona A2 vērtība = 1:
1 | Šūnas (2,1). Vērtība = 1 |
Ievērojiet, ka vispirms ievadāt rindas numuru:
1 | Šūnas (rindu_numurs, kolonnas_numurs) |
Iestatiet vairāku šūnu vērtības vienlaikus
Tā vietā, lai atsauktos uz vienu šūnu, varat atsaukties uz šūnu diapazonu un vienlaikus mainīt visas šūnu vērtības:
1 | Diapazons ("A2: A5"). Vērtība = 1 |
Iestatiet šūnas vērtību - teksts
Iepriekš minētajos piemēros mēs iestatām šūnas vērtību vienādu ar skaitli (1). Tā vietā jūs varat iestatīt šūnas vērtību, kas vienāda ar teksta virkni. VBA visā tekstā jābūt citātiem:
1 | Diapazons ("A2"). Vērtība = "Teksts" |
Ja jūs neapņemat tekstu ar citātiem, VBA uzskatīs, ka atsaucaties uz mainīgo…
Iestatīt šūnas vērtību - mainīgs
Varat arī iestatīt šūnas vērtību, kas vienāda ar mainīgo
1234 | Dim strText kā virknestrText = "Teksta virkne"Diapazons ("A2"). Vērtība = strText |
Iegūstiet šūnu vērtību
Šūnu vērtības varat iegūt, izmantojot to pašu rekvizītu Value, ko izmantojām iepriekš.
Iegūstiet ActiveCell vērtību
Lai iegūtu ActiveCell vērtību un parādītu to ziņojumu lodziņā:
1 | MsgBox ActiveCell.Value |
Piešķirt šūnas vērtībai mainīgo
Lai iegūtu šūnas vērtību un piešķirtu to mainīgajam:
123 | Dim var kā Variantvar = Diapazons ("A1"). Vērtība |
Šeit mēs izmantojām varianta tipa mainīgo. Mainīgie var pieņemt jebkura veida vērtības. Tā vietā varat izmantot virknes mainīgā veidu:
123 | Dim var kā virknevar = Diapazons ("A1"). Vērtība |
Stīgu mainīgā tips pieņems skaitliskās vērtības, bet saglabās tos kā tekstu.
Ja zināt, ka jūsu šūnas vērtība būs skaitliska, varat izmantot dubultā mainīgā veidu (dubultie mainīgie var saglabāt decimālās vērtības):
123 | Dim var kā Doublevar = Diapazons ("A1"). Vērtība |
Tomēr, mēģinot dubultā mainīgajā saglabāt šūnas vērtību, kurā ir teksts, tiks parādīta kļūdas veids:
Citi šūnu vērtību piemēri
Kopēt šūnas vērtību
Šūnas vērtību ir viegli iestatīt vienādu ar citu šūnas vērtību (vai “Kopēt” šūnas vērtību):
1 | Diapazons ("A1"). Vērtība = Diapazons ("B1"). Vērtība |
To var izdarīt pat ar šūnu diapazoniem (diapazoniem jābūt vienādiem):
1 | Diapazons ("A1: A5"). Vērtība = Diapazons ("B1: B5"). Vērtība |
Salīdziniet šūnu vērtības
Jūs varat salīdzināt šūnu vērtības, izmantojot standarta salīdzināšanas operatorus.
Pārbaudiet, vai šūnu vērtības ir vienādas:
1 | MsgBox diapazons ("A1"). Vērtība = diapazons ("B1"). Vērtība |
Atgriež TRUE, ja šūnu vērtības ir vienādas. Pretējā gadījumā FALSE.
Varat arī izveidot paziņojumu If, lai salīdzinātu šūnu vērtības:
12345678910111213 | Ja diapazons ("A1"). Vērtība> Diapazons ("B1"). Vērtība TadDiapazons ("C1"). Vērtība = "Lielāka par"Elseif diapazons ("A1"). Vērtība = Diapazons ("B1"). Vērtība TadDiapazons ("C1"). Vērtība = "Vienāds"CitādiDiapazons ("C1"). Vērtība = "Mazāk par"Beigas Ja |
Jūs varat salīdzināt tekstu tādā pašā veidā (atcerieties, ka VBA ir reģistrjutīgs)