VBA-arvo

VBA: n matka alkaa tiedostamalla kuinka arvot tallennetaan soluihin. Siksi VALA-toiminnon tuntemus VBA: lla on tärkeämpää. Tutkittuaan VBA-ARVO-ominaisuutta, pystyt tietämään, kuinka arvot tallennetaan VBA-arvoon. Tässä artikkelissa selitetään kaikki VBA-arvot-tyyppiset toiminnot, kuten kuinka arvo tallennetaan soluihin, kuuma asetetaan arvo, kuinka arvo lisätään ja paljon muuta.

Kuinka käyttää Excel VBA -arvofunktiota?

Opimme käyttämään VBA Value -toimintoa muutamalla esimerkillä Excelissä.

Voit ladata tämän VBA Value Excel -mallin täältä - VBA Value Excel Template

Esimerkki # 1 - Aseta solun arvo käyttämällä Range.Value-toimintoa

Solun / arvon asettaminen alueella. Arvofunktio koostuu karkeasti kahdesta tärkeästä vaiheesta:

  • Asettaa alueen, johon haluat tallentaa arvon.
  • Arvon määrittäminen asetetulle alueelle.

Aseta arvo Excel VBA: ssä noudattamalla seuraavia vaiheita:

Vaihe 1: Aseta uusi moduuli Visual Basic Editoriin (VBE).

Vaihe 2: Määritä uusi alimenettely lisätyn moduulin alle, jotta makro voidaan tallentaa siihen.

Koodi:

 Sub VBA_Value_Ex1 () End Sub

Vaihe 3: Määritä uusi muuttuja alueeksi, jota voidaan käyttää määrittämään alue, jolle haluat tallentaa arvon.

Koodi:

 Sub VBA_Value_Ex1 () Dim setValue_Var As Range End Sub

Vaihe 4: Määritä alueen solut VBA RANGE-toiminnon avulla muuttujalle, joka on määritelty toimeksiannon operaattorin avulla.

Koodi:

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

Vaihe 5: Käytä nyt ominaisuutta Range.Value, jotta voit määrittää arvon määritellylle alueelle. Kirjoita muuttujan nimi “setValue_Var”, jolle alue on määritelty.

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

Vaihe 6: Lisää piste (.) Muuttujan jälkeen voidaksesi valita IntelliSense-luettelon toiminnoista, jotka ovat käytettävissä tälle määritellylle aluemuuttujalle.

Koodi:

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

Vaihe 7: Vedä luetteloa alas ja valitse “Arvo” -toiminto tallentaaksesi arvo tämän aluemuuttujan alle.

Koodi:

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

Vaihe 8: Määritä arvoksi “Tervetuloa VBA: n maailmaan!” Tälle alueelle tehtäväoperaattorilla.

Koodi:

 Sub VBA_Value_Ex1 () Himma setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var.Value = "Tervetuloa VBA: n maailmaan!" End Sub

Vaihe 9: Olemme suorittaneet koodausosan. Suorita tämä koodi napsauttamalla F5- tai Suorita-painiketta VBE: n alla ja katso lähtö.

Voit myös määrittää arvon solualueelle. Ainoa mitä sinun on tehtävä, kun asetat ulostulon alueen, annat yhden ulotteisen taulukon yhden soluviittauksen sijasta.

Vaihe 10: Muuta alue yllä olevassa koodissa alueesta “A1” arvoon “A1: A5”.

Koodi:

 Sub VBA_Value_Ex1 () Himma setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1: A5") setValue_Var.Value = "Tervetuloa VBA: n maailmaan!" End Sub

Vaihe 11: Paina F5 tai Suorita-painiketta ja katso tulosteet.

Esimerkki 2 - Aseta solun arvo käyttämällä VBA-soluominaisuutta

Tämä on toinen menetelmä solun arvon asettamiseksi VBA: lle. Toisin kuin RANGE-toiminto, solut eivät edes tarvitse niitä. Arvooperaattori voi asettaa arvon tietyille soluille.

Aseta solun arvo Excel VBA: ssä seuraavien vaiheiden mukaan:

Vaihe 1: Aseta uusi moduuli VBE: n alle, missä voit aloittaa uuden koodin kirjoittamisen.

Vaihe 2: Lisää uusi alamenettely lisätyn moduulin alle, johon voit tallentaa makrokoodisi.

Koodi:

 Sub VBA_Value_Ex2 () End Sub

Vaihe 3: Aloita kirjoittamalla tämä työkirja.Worksheet päästäksesi taulukkoon nimeltä “Setting_Cell_Value_2”.

Koodi:

 Sub VBA_Value_Ex2 () TämäWorkbook.worksheets End Sub

Vaihe 4: Mainitse taulukon nimi sulkeissa kaksoislainausmerkeinä.

Koodi:

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

Vaihe 5 : Käytä .Cells-ominaisuutta solualueen asettamiseen annetusta excel-taulukosta.

Koodi:

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

Solu-ominaisuuden ensimmäinen argumentti edustaa rivejä ja toinen argumentti edustaa saraketta. Siksi solut (1, 1) tarkoittavat solua, joka liittyy arkin ”Setting_Cell_Value_2” ensimmäiseen riviin ja ensimmäiseen sarakkeeseen.

Vaihe 6: Nyt määritä operaattorin avulla arvo tälle solujoukolle.

Koodi:

 Osa VBA_Value_Ex2 () Tämä työkirja.Worksheets ("Setting_Cell_Value_2"). Solut (1, 1) = "VBA on joustava." End Sub

Katso, ettemme tarvitse .Vahtofunktiota, jota meidän on käytettävä asettaessamme arvoa Range-toiminnolla. Solumenetelmällä ei ole sellaisia ​​IntelliSense-asetuksia.

Vaihe 7: Paina F5 tai Suorita-painiketta suorittaaksesi tämän koodin ja nähdä tulosteen. Näet tulosteen alla olevan kuvakaappauksen osoittamalla tavalla.

Esimerkki 3 - Hanki solun arvo VBA: lla

Tähän saakka kahdessa esimerkissä olemme nähneet kuinka asettaa arvo solulle tai solualueelle. Oletetaan nyt, että tapaus on täsmälleen päinvastainen, meidän on saatava arvo, joka on annettu tietylle Excel-arkin solulle. Kuinka saamme sen? Mennään läpi vaihe vaiheelta.

Oletetaan, että olen määrittänyt arvon alla olevan kuvakaappauksen osoittamalla taulukon “Getting_Cell_Value” sarakkeen A ensimmäisen solun alla.

Noudata alla olevia vaiheita saadaksesi solun arvon Excel VBA: ssa:

Vaihe 1: Aseta uusi moduuli VBE: n alle.

Vaihe 2: Lisää aliproseduuri, jotta makro voidaan tallentaa koodina.

Koodi:

 Sub VBA_Value_Ex3 () End Sub

Vaihe 3: Määritä uusi muuttuja nimeltään Get_Value muuttujana käyttämällä VBA Dim -toimintoa.

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variant End End Sub

Nyt sinun on määritettävä solussa A1 oleva arvo yllä määritellylle muuttujalle.

Vaihe 4: Kirjoita ”Get_Value = ThisWorkbook.Worksheets”. Tämän avulla VBA-kääntäjä voi käyttää Excel-taulukkoa, johon arvo on tallennettu.

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets End Sub Sub

Vaihe 5: Mainitse taulukon nimi sulkujen alla lainausmerkein, joihin arvo on tallennettu.

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value") End Sub

Vaihe 6: Käytä nyt piste (.) Range -menetelmää tarkan solun tuottamiseksi, johon arvo tallennetaan ”Getting_Cell_Value” -arkkiin.

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1") End Sub

Vaihe 7: Käytä lopuksi piste (.) -Menetelmää, jotta kääntäjä voi käyttää solun A1 todellista arvoa.

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1"). Value End Sub

Vaihe 8: Kuten olemme puhuneet, meidän on haettava soluun A1 tallennettu arvo. Käytä tätä varten MsgBox näyttääksesi muuttujan Get_Value arvon (Jotka ovat jo käyttäneet soluun A1 kirjoitettua arvoa).

Koodi:

 Sub VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1"). Arvo MsgBox Get_Value End Sub

Vaihe 9: Paina F5 tai Suorita-painiketta suorittaaksesi tämän koodin, saat solussa A1 olevan arvon viestiruudun alla.

Katso, tämä on arvo, jonka mainitsimme taulukon “Getting_Cell_Value” solussa A1. Oikea?

Esimerkki 4 - Voimmeko saada useita solun arvoja kerrallaan?

Oletetaan, että arvot on tallennettu kolmeen eri soluun A1, A2, A3, kuten alla olevassa kuvakaappauksessa näytetään:

Älä vain sekoitu, jos näet tekstin leviävän sarakkeisiin A - E. Se on vain näkyvä asettelu (koska olen yhdistänyt solut) ja todellinen arvo tallennetaan vain soluihin A1, A2, A3.

Noudata alla olevia vaiheita käyttääksesi Excel VBA -arvoa:

Vaihe 1: Määritä muuttuja vaihtoehtona uudessa alimenettelyssä VBA-moduulissa.

 Koodi: Sub VBA_Value_Ex4 () Dim Get_Value_2 Variant End End Sub

Vaihe 2: Käytä Range.Value -menetelmää solujen A1: A3 arvon hakemiseksi ja osoittaa uudelle muuttujalle, joka määritettiin edellisessä vaiheessa.

Koodi:

 Sub VBA_Value_Ex4 () Dim Get_Value_2 Variantina Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3"). Value End Sub

Vaihe 3: Lopuksi, käytä MsgBox-toimintoa näyttääksesi soluun A1: A3 tallennetut arvot.

Koodi:

 Sub VBA_Value_Ex4 () Dim Get_Value_2 Variantina Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3"). Value MsgBox Get_Value_2 End Sub

Vaihe 4: Paina F5 tai Suorita-painiketta ja katso tämän koodin lähtö.

Saat ajonaikaisen virheen '13': Kirjoita virheellinen. Syy tämän virheen saamiseen on se, että määrittelemme yhden muuttujan ja osoitamme siihen yhden ulotteisen taulukon (kolmella rivillä) arvot. Mikä ei ole loogisesti mahdollista.

Tämä on tästä artikkelista. Kääritään asiat muistettavaksi muodoiksi.

Muistettavat asiat

Et voi asettaa useiden solujen arvoa VBA CELLS -menetelmää käytettäessä, koska se vie rivejä ja sarakkeita argumentteina. Voit määrittää siinä vain rivinumeron ja sarakkeen numeron.

Et voi myöskään saada arvoja, jotka on tallennettu useisiin soluihin yhdessä viestiruudussa. Jos joudut hakemaan arvoalueen, sinun on kirjoitettava erilliset get-argumentit jokaiselle arvolle.

Suositellut artikkelit

Tämä on opas VBA-arvoon. Täällä olemme keskustelleet siitä, miten Excel VBA Value Function -toimintoa voidaan käyttää käytännön esimerkkien ja ladattavan Excel-mallin kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. Täydellinen opas VBA-virheestä
  2. Kuinka käyttää VBA-numeromuotoa?
  3. VBA VLOOKUP -toiminto esimerkeillä
  4. VBA-toiminnon luominen Excelissä
  5. Kuinka käyttää VBA Val -toimintoa?

Luokka:

VBA