Valoarea VBA - Cum se utilizează funcția de valoare Excel VBA?

Cuprins:

Anonim

Valoarea VBA

Călătoria VBA începe cu cunoașterea modului în care valorile sunt stocate în celule. Prin urmare, cunoașterea funcției VALUE sub VBA este mai importantă. După ce ați studiat proprietățile VBA VALUE, veți putea ști cum valorile sunt stocate sub VBA. Acest articol explică toate tipurile de funcție VALUE în VBA, cum ar fi modul în care valoarea este stocată în celule, fierbinte pentru a seta valoarea, cum să inserați valoarea și multe altele.

Cum se utilizează funcția de valoare Excel VBA?

Vom învăța cum să utilizăm funcția VBA Value cu câteva exemple în Excel.

Puteți descărca acest șablon VBA Value Excel aici - Modelul VBA Value Excel

Exemplul # 1 - Setați valoarea celulelor folosind funcția Range.Value

Setarea valorii celulei / valorilor utilizând intervalul. Funcția valorică constă aproximativ în doi pași importanți:

  • Setarea intervalului în care doriți să fie stocată valoarea.
  • Alocarea unei valori setului de valori.

Urmați pașii de mai jos pentru a seta valoarea în Excel VBA:

Pasul 1: Introduceți un nou modul sub Visual Basic Editor (VBE).

Pasul 2: Definiți o nouă sub-procedură sub modulul introdus, astfel încât o macrocomandă să poată fi stocată în el.

Cod:

 Sub VBA_Value_Ex1 () End Sub

Pasul 3: Definiți o nouă variabilă ca un interval care poate fi utilizat pentru a defini un interval în care doriți să stocați valoarea.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Sub End Range

Pasul 4: Cu ajutorul funcției VBA RANGE, alocați celulele din interval la o variabilă definită cu ajutorul operatorului de atribuire.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") End Sub

Pasul 5: Acum, utilizați proprietatea Range.Value pentru a putea atribui valoare intervalului definit. Introduceți numele variabilei „setValue_Var” sub care este definit intervalul.

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var Sub Sub

Pasul 6: Puneți un punct (.) După variabilă pentru a putea selecta lista de funcții IntelliSense disponibile pentru această variabilă a intervalului definită.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var. Sub final

Pasul 7: trageți în jos prin listă și selectați funcția „Valoare” pentru a stoca valoarea sub această variabilă a intervalului.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var.Value End Sub

Pasul 8: Alocați „Bine ați venit în lumea VBA!” Ca valoare pentru acest interval folosind operatorul de alocare.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var.Value = "Bine ați venit în lumea VBA!" Sub final

Pasul 9: Am terminat cu partea de codare. Rulați acest cod apăsând pe F5 sau pe butonul Run sub VBE și vedeți ieșirea.

De asemenea, puteți atribui valoarea unei game de celule. Tot ce trebuie să faceți este să stabiliți intervalul pentru ieșire, pe care îl veți oferi unui tablou unidimensional, în loc de o referință de o singură celulă.

Pasul 10: În același cod de mai sus, schimbați intervalul de la „A1” la „A1: A5”.

Cod:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1: A5") setValue_Var.Value = "Bine ați venit în lumea VBA!" Sub final

Pasul 11: Apăsați butonul F5 sau Run și vedeți ieșirea.

Exemplul # 2 - Setați valoarea celulelor folosind proprietatea celulelor VBA

Aceasta este o altă metodă pentru setarea valorii celulare sub VBA. Spre deosebire de funcția RANGE, celulele nici nu au nevoie de ele. Operator valoric pentru a putea seta valoarea pentru celula / celelele specifice.

Urmați pașii de mai jos pentru a seta valoarea celulei în Excel VBA:

Pasul 1: Introduceți un nou modul sub VBE unde puteți începe să scrieți noua dvs. bucată de cod.

Pasul 2: Adăugați o nouă procedură sub modulul inserat, unde puteți stoca codul dvs. macro.

Cod:

 Sub VBA_Value_Ex2 () End Sub

Pasul 3: Începeți să tastați acestWorkbook.Worksheet pentru a accesa foaia numită „Setting_Cell_Value_2”.

Cod:

 Sub VBA_Value_Ex2 () ThisWorkbook.worksheets End Sub

Pasul 4: Menționați numele foii dintre paranteze între ghilimele duble.

Cod:

 Sub VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Setting_Cell_Value_2") End Sub

Pasul 5 : Utilizați proprietatea .Cells pentru a seta intervalul de celule din foaia excel dată.

Cod:

 Sub VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Setting_Cell_Value_2"). Cells (1, 1) End Sub

Primul argument al proprietății Celulelor reprezintă rândurile și al doilea argument reprezintă coloana. Prin urmare, celule (1, 1) înseamnă celulă asociată cu primul rând și prima coloană a foii „Setting_Cell_Value_2”.

Pasul 6: Acum, cu ajutorul operatorului de atribuire, alocați o valoare acestui set de celule.

Cod:

 Sub VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Setare_Cell_Value_2"). Celule (1, 1) = "VBA este flexibil." Sub final

Aruncați o privire de care nu avem nevoie. Funcția de valoare pe care trebuie să o utilizăm la setarea valorii folosind funcția Range. Metoda celulelor nu are astfel de opțiuni IntelliSense.

Pasul 7: Apăsați butonul F5 sau Run pentru a rula acest cod și a vedea rezultatul. Veți vedea o ieșire așa cum se arată în imaginea de mai jos.

Exemplul # 3 - Obțineți valoarea celulelor în VBA

Până acum, în două exemple am văzut cum să stabilim valoarea pentru o celulă sau o gamă de celule. Să presupunem că un caz este exact invers, trebuie să obținem valoarea atribuită unei anumite celule a unei foi de excel. Cum putem obține asta? Să parcurgem un ghid pas cu pas.

Să presupunem că am atribuit o valoare așa cum se arată în imaginea de mai jos sub prima celulă a coloanei A din foaia „Getting_Cell_Value”.

Urmați pașii de mai jos pentru a obține valoarea celulei în Excel VBA:

Pasul 1: Introduceți un nou modul sub VBE.

Pasul 2: Adăugați o sub-procedură pentru a putea fi stocată o macro ca cod.

Cod:

 Sub VBA_Value_Ex3 () End Sub

Pasul 3: Definiți o nouă variabilă numită Get_Value ca o variantă folosind funcția VBA Dim.

Cod:

 Sub VBA_Value_Ex3 () Dim Get_Value ca variante End Sub

Acum, trebuie să atribuiți valoarea prezentă în celula A1 variabilei definite mai sus.

Pasul 4: Introduceți „Get_Value = ThisWorkbook.Worksheets”. Acest lucru va permite compilatorului VBA să acceseze foaia excel unde este stocată valoarea dvs.

Cod:

 Sub VBA_Value_Ex3 () Dim Get_Value ca variantă Get_Value = ThisWorkbook.Worksheets End Sub

Pasul 5: Menționează numele foii de lucru din paranteze cu ghilimele în care este stocată valoarea.

Cod:

 Sub VBA_Value_Ex3 () Dim Get_Value ca variantă Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value") End Sub

Pasul 6: Acum, utilizați metoda de interval (punct.) Pentru a furniza celula exactă unde valoarea este stocată sub foaia numită „Getting_Cell_Value”.

Cod:

 Sub VBA_Value_Ex3 () Dim Get_Value ca variantă Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1") End Sub

Pasul 7: În sfârșit, utilizați metoda valorii punct (.), Astfel încât valoarea compilatorului din celula A1 să poată fi accesată de compilator.

Cod:

 Sub VBA_Value_Ex3 () Dim Dim__Value ca variantă Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1").

Pasul 8: După cum am vorbit, trebuie să obținem valoarea stocată în celula A1. Pentru asta, folosiți MsgBox pentru a afișa valoarea variabilei Get_Value (care a accesat deja valoarea tastată în celula A1).

Cod:

 Sub VBA_Value_Ex3 () Dim Dim__Value ca variantă Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1"). Value MsgBox Get_Value End Sub

Pasul 9: Apăsați butonul F5 sau Run pentru a rula acest cod, veți obține valoarea prezentă în celula A1 sub caseta de mesaje.

Vezi, aceasta a fost valoarea pe care am menționat-o în celula A1 din foaia „Getting_Cell_Value”. Dreapta?

Exemplul # 4 - Putem obține mai multe valori celulare simultan?

Să presupunem că am valori stocate în trei celule diferite A1, A2, A3, așa cum se arată în imaginea de mai jos:

Pur și simplu nu vă confundați dacă vedeți că textul se răspândește de-a lungul coloanelor A până la E. este doar un aspect vizibil (pentru că am contopit celulele), iar valoarea reală este stocată doar în celula A1, A2, A3.

Urmați pașii de mai jos pentru a utiliza Excel VBA Value:

Pasul 1: Definiți o variabilă ca o variantă în cadrul unei noi subproceduri în modulul dvs. VBA.

 Cod: Sub VBA_Value_Ex4 () Dim Get_Value_2 Ca variabilă End Sub

Pasul 2: Folosiți metoda Range.Value pentru a prelua valoarea celulelor A1: A3 și a atribui o nouă variabilă definită în pasul anterior.

Cod:

 Sub VBA_Value_Ex4 () Dim Get_Value_2 Ca variantă Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3").

Pasul 3: În sfârșit, utilizați funcția MsgBox pentru a afișa valorile stocate în celula A1: A3.

Cod:

 Sub VBA_Value_Ex4 () Dim Get_Value_2 Ca variantă Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3"). Valoare MsgBox Get_Value_2 Sub Sub

Pasul 4: Apăsați butonul F5 sau Run și vedeți ieșirea pentru acest cod.

Veți primi o eroare în timp de execuție'13 ': Introduceți nepotrivire. Motivul din spatele obținerii acestei erori este: definim o singură variabilă și atribuim valori unei matrice unidimensionale (cu trei rânduri). Ceea ce logic nu este posibil.

Acest lucru este din acest articol. Haideți să încheiem lucrurile cu câteva puncte de amintit.

Lucruri de amintit

Nu puteți seta valoarea mai multor celule în timp ce utilizați metoda CELULELOR VBA, deoarece este nevoie de rânduri și coloane ca argumente. Puteți specifica doar numărul de rând și numărul de coloană din acesta.

De asemenea, nu puteți obține valori stocate în mai multe celule într-o singură casetă de mesaj. Dacă trebuie să regăsiți intervalul de valori, trebuie să scrieți argumentele get separate pentru fiecare dintre valori.

Articole recomandate

Acesta a fost un ghid pentru VBA Value. Aici am discutat despre cum să utilizăm funcția Excel VBA Value împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Ghid complet la VBA la eroare
  2. Cum se utilizează formatul VBA?
  3. VBA VLOOKUP Funcție cu exemple
  4. Crearea unei funcții VBA în Excel
  5. Cum se utilizează funcția VBA Val?