photosdematures.com

Propietat de valor Excel VBA

Value és una propietat de VBA que s'utilitza principalment amb el mètode de rang per assignar un valor a un rang específic, és una expressió incorporada a VBA, per exemple, si fem servir rang ("B3"). valor = 3 això assignarà a la cel·la B3 un valor de 3 , no necessàriament aquesta propietat de valor s'ha d'utilitzar només amb el mètode de rang, també podem utilitzar-la amb altres funcions.

Al començament del nostre aprenentatge amb VBA, tenim tanta curiositat per saber com emmagatzemar les dades a les cel·les. Si esteu tan curiós, heu d’entendre la propietat “Value”. En aquest article, us explicarem sobre la propietat "Valor", com inserir o establir valors, com obtenir valor de la cel·la i moltes altres coses.

En un dels articles anteriors, hem parlat de "Cèl·lules de gamma VBA". L’objecte Range ens pot ajudar a referir-nos a una sola cel·la i a diverses cel·les. Per utilitzar l'objecte RANGE primer hem de decidir per a quina cel·la hem d'inserir el valor i quin és el valor que inserirem.

Com s'utilitza Value Property a VBA?

Podeu descarregar aquesta plantilla Excel de la funció de valor VBA aquí: plantilla Excel de la funció de valor VBA

Exemple 1: Objecte de rang per assignar valors a les cel·les

• Per exemple, si voleu inserir un valor a la cel·la A1, hauríeu de referir la cel·la A1 així Rang ("A1")

Codi:

 Subvalor () Interval ("A1") Final sub 

• Després de referir la cel·la mitjançant l'objecte RANGE, poseu ara un punt (.) Per veure la llista IntelliSense de totes les propietats i mètodes associats a aquest objecte.

Codi:

 Subvalor () Interval ("A1"). Finalitzar sub 

• En aquesta varietat d'opcions, seleccioneu la propietat "VALOR".

Codi:

 Subvalor () Interval ("A1"). Valor final Sub 

• Un cop seleccionada la propietat "VALOR", hem d'establir el valor a la cel·la A1 posant el valor en signe igual.

Codi:

 Subvalor () Interval ("A1"). Valor = "Benvingut a VBA" Final sub 

• D'acord, això inserirà el valor "Benvingut a VBA" a la cel·la A1.

• Si voleu inserir el mateix valor a diverses cel·les, consulteu les cel·les com el codi següent.

Codi:

 Subvalor () Interval ("A1: A5"). Valor = "Benvingut a VBA" Final sub 

• Això inserirà el valor de la cel·la A1 a A5.

• Si voleu inserir valors a diferents cel·les però no per a sèries de cel·les, hem d’utilitzar el codi i l’adreça de la cel·la en arguments separats com el següent.

Codi:

 Subvalor () Interval ("A1, A5, B4, C2"). Valor = "Benvingut a VBA" 

• Això inserirà el text "Benvingut a VBA" a les cel·les A1, A5, B4 i C2 cèl · lules.

Exemple 2: inseriu un valor mitjançant la propietat CELLS

No mitjançant l’objecte RANGE, sinó també mitjançant la propietat VBA CELLS, podem inserir valors. Però un dels problemes amb l’objecte CELLS és que no tenim accés a la llista IntelliSense tal com vam obtenir per a l’objecte RANGE.

Aquí hem d'esmentar els números de fila i columna que necessitem inserir el valor. Per exemple, si voleu inserir el valor a la cel·la A1, el codi és CELLS (1,1), si voleu inserir el valor a la cel·la B5, el codi és CELLS (5,2), és a dir, igual a B5 cel·la.

No podem inserir valors a diverses cel·les mitjançant la propietat CELLS, això és diferent al nostre objecte RANGE.

Exemple 3: obtingueu el valor de la cel·la

Hem vist com inserir valors a les cel·les, ara veurem com obtenir valors de les cel·les.

Pas 1: Definiu una variable com a Cadena.

Codi:

 Sub valor () Dim K com a final de cadena Sub 

Pas 2: Per a aquesta variable "k" assignarem el valor de la cel·la A1. A la cel·la A1 he introduït el valor "Benvingut a VBA".

Per tant, el codi serà k = Interval ("A1"). Valor

Codi:

 Valor secundari () Dim K As String K = Range ("A1"). Valor final Sub 

Pas 3: Mostra el resultat de la variable "k" al quadre de missatge VBA.

Codi:

 Valor secundari () Dim K As String K = Range ("A1"). Valor MsgBox K End Sub 

En executar el codi hauríem de ser el resultat del valor de la cel·la A1 al quadre de missatge.

També podem utilitzar l'objecte RANGE per obtenir les dades de la cel·la A1; a continuació, el codi us mostrarà el mateix.

Codi:

 Valor secundari () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub 

Això també hauria d'obtenir el valor de la cel·la A1 al quadre de missatge.

Exemple 4: valor d'error si es requereix més d'un valor de cel·la

Per obtenir un exemple, mireu el codi següent.

Codi:

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

Si executeu el codi anterior, obtindrem l'error "Tipus de desajust".

El motiu pel qual obtenim aquest error perquè quan la variable objecte es defineix en més d'una propietat "valor" de cel·la no entén realment quin valor de cel·la s'ha de donar, de manera que pot obtenir un valor de cel·la alhora.