Valoare VBA | Cum se utilizează proprietatea Excel VBA Value? (Exemple)

Proprietate valoare Excel VBA

Valoarea este o proprietate în VBA care este utilizată în cea mai mare parte cu metoda intervalului pentru a atribui o valoare unui anumit interval, este o expresie încorporată în VBA, de exemplu, dacă folosim intervalul („B3”). Valoare = 3 aceasta va atribui celula B3 o valoare de 3, nu neapărat acea proprietate a valorii trebuie utilizată numai cu metoda intervalului, o putem folosi și cu alte funcții.

La începutul învățării noastre cu VBA suntem atât de curioși să aflăm despre cum să stocăm datele în celule. Dacă sunteți atât de curioși, atunci trebuie să înțelegeți proprietatea „Value”. În acest articol, vă vom explica despre proprietatea „Valoare”, cum să inserați sau să setați valori, cum să obțineți valoare din celulă și multe alte lucruri.

Într-unul dintre articolele anterioare, am discutat despre „VBA Range Cells”. Obiectul Range ne poate ajuta să ne referim la o singură celulă, precum și la mai multe celule. Pentru a utiliza mai întâi obiectul RANGE, trebuie să decidem pentru ce celulă trebuie să inserăm valoarea și care este valoarea pe care urmează să o introducem.

Cum se folosește Value Value în VBA?

Puteți descărca acest șablon Excel Funcție valoare VBA aici - Șablon Excel Funcție valoare VBA

Exemplul # 1 - Obiect de gamă pentru a atribui valori celulelor

  • De exemplu, dacă doriți să inserați o valoare în celula A1, atunci ar trebui să indicați celula A1 ca acest interval („A1”)

Cod:

 Valoare secundară () Interval ("A1") Finalizare sub

  • După ce ați trimis celula folosind obiectul RANGE, puneți acum un punct (.) Pentru a vedea lista IntelliSense cu toate proprietățile și metodele asociate cu acest obiect.

Cod:

Valoarea secundară () Interval ("A1"). Sfârșitul Sub

  • Formați această varietate de opțiuni selectați proprietatea „VALOARE”.

Cod:

 Valoare secundară () Interval ("A1"). Valoare finală Sub

  • Odată selectată proprietatea „VALUE”, trebuie să setăm valoarea la celula A1 punând valoarea în semn egal.

Cod:

 Sub Value () Range ("A1"). Value = "Bun venit la VBA" End Sub

  • Ok, aceasta va introduce valoarea „Bun venit la VBA” în celula A1.

  • Dacă doriți să inserați aceeași valoare în mai multe celule, consultați celulele ca și codul de mai jos.

Cod:

 Valoare secundară () Interval ("A1: A5"). Valoare = "Bine ați venit la VBA" End Sub
  • Aceasta va insera valoarea de la celula A1 la A5 .

  • Dacă doriți să inserați valori în celule diferite, dar nu pentru serii de celule, atunci trebuie să folosim codul și adresa celulei în argumente separate, cum ar fi cele de mai jos.

Cod:

 Valoare secundară () Interval ("A1, A5, B4, C2"). Valoare = "Bun venit la VBA" End Sub
  • Aceasta va insera textul „Bun venit la VBA” în celulele A1, A5, B4 și C2 .

Exemplul # 2 - Introduceți valoarea folosind proprietatea CELLS

Nu prin intermediul obiectului RANGE, ci și prin utilizarea proprietății VBA CELLS putem insera valori. Dar una dintre problemele cu obiectul CELLS este că nu avem acces la lista IntelliSense așa cum am obținut pentru obiectul RANGE.

Aici trebuie să menționăm numerele de rând și coloană, trebuie să introducem valoarea. De exemplu, dacă doriți să introduceți valoarea în celula A1, atunci codul este CELLS (1,1), dacă doriți să introduceți valoarea în celula B5, atunci codul este CELLS (5,2), adică egal cu B5 celulă.

Nu putem insera valori în mai multe celule folosind proprietatea CELLS, acest lucru este diferit de obiectul nostru RANGE.

Exemplul # 3 - Obțineți valoarea celulei

Am văzut cum să introducem valori în celule, acum vom vedea cum să obținem valori din celule.

Pasul 1: definiți o variabilă ca Șir.

Cod:

 Valoare secundară () Dim K As String End Sub

Pasul 2: Pentru această variabilă „k” vom atribui valoarea celulei A1. În celula A1 am introdus valoarea „Bun venit la VBA”.

Deci codul va fi k = Range („A1”). Valoare

Cod:

 Valoare secundară () Dim K As String K = Range ("A1"). Valoare End Sub

Pasul 3: Afișați rezultatul variabilei „k” în caseta de mesaje VBA.

Cod:

 Valoare secundară () Dim K As String K = Range ("A1"). Valoare MsgBox K End Sub

Executând codul ar trebui să rezultăm valoarea celulei A1 din caseta de mesaj.

De asemenea, putem folosi obiectul RANGE pentru a obține datele celulei A1, codul de mai jos vă va arăta la fel.

Cod:

 Valoare secundară () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub

Aceasta ar trebui să obțină, de asemenea, valoarea celulei A1 din caseta de mesaj.

Exemplul 4 - Valoare de eroare dacă sunt necesare mai multe valori de celulă

Pentru un exemplu, consultați codul de mai jos.

Cod:

 Valoare secundară () Dim K As Range Set CellValue = Range ("A1: A5") MsgBox CellValue End Sub

Dacă rulați codul de mai sus, vom primi eroarea „Tip nepotrivire”.

Motivul pentru care obținem această eroare deoarece atunci când variabila obiect setată la mai mult de o proprietate „valoare” de celulă nu înțelege cu adevărat ce valoare de celulă să fie dată, deci poate obține o singură valoare de celulă la un moment dat.