Set VBA Excel
„Set”, este un cuvânt cheie utilizat în programarea VBA pentru a atribui o referință la un obiect sau interval de celule care va rămâne fix în întregul program sau cod în Excel. Setul VBA ne ajută practic să evităm introducerea repetitivă a intervalului pe care trebuie să-l selectăm în timpul executării codului. În excel, „Set” se aplică mai ales pe foile de lucru / intervalul de celule dintr-o anumită foaie.
Sintaxă:
Setați numele obiectului / variabila = Obiect / Interval
Notă: trebuie să aveți fila Dezvoltator în foaia de lucru excel.Dacă nu vedeți fila „Dezvoltator” în excel, consultați mai jos pașii:
Pasul 1: Faceți clic pe Opțiunea fișier .
Pasul 2: apare meniul drop-down, faceți clic pe fila Opțiuni .
Pasul 3: După ce faceți clic pe „Opțiuni”, apare o casetă de dialog așa cum este arătat mai jos și faceți clic pe opțiunea Personalizare panglică .
Pasul 4: Când tragem în jos opțiunile de personalizare a panglicii vom găsi o opțiune pentru dezvoltator, trebuie să bifăm caseta care ne va permite să folosim VBA în excel.
Cum să utilizați un cuvânt cheie setat în VBA?
Mai jos sunt diferite exemple de utilizare a cuvântului cheie setat în Excel VBA.
Puteți descărca acest șablon VBA Set Excel aici - șablonul VBA Set ExcelSet VBA Excel - Exemplul # 1
Vom lua un exemplu simplu de setare de cuvinte cheie în Excel VBA. Să presupunem că am dori să selectăm un interval și să-l setăm ca interval de corecție, pentru a evita repetarea. Mai jos este intervalul de celule care conține numele:
Urmați pașii de mai jos pentru a utiliza cuvântul cheie setat în Excel VBA:
Pasul 1: Faceți clic pe fila „Dezvoltator” și apoi faceți clic pe opțiunea „Visual Basic” din partea stângă (prima opțiune), așa cum se arată mai jos.
După ce faceți clic pe ea, o nouă fereastră apare așa cum se arată mai jos:
Veți observa că conține două file pe partea stângă, „Sheet1 (Sheet1)” și „ThisWorkbook”. Singura diferență este „Foaie1” atunci când doriți să executați cod doar pentru această anumită foaie și în „Acest manual de lucru”, putem scrie un cod și executa care poate fi aplicat pentru întregul manual de lucru excel.
Pasul 2: Faceți dublu clic pe „Sheet1 (Sheet1) și veți vedea un ecran gol unde trebuie să scriem codul. În primul rând, declarați un subset ca Sub nume și apăsați Enter și veți vedea un subset creat așa cum se arată mai jos:
Cod:
Sub setexmp () End Sub
Acesta este modul în care creăm un subset și apare automat „End Sub”. Aceasta este implicit caracteristica excel. Dacă „End Sub” nu apare codul nu se va executa și va arunca o eroare.
Pasul 3: Acum, vom declara că variabilele sunt utilizate în cod.
Numele variabilei Dim și tipul variabilei. Aici, numele va fi ca identitatea intervalului și tipul ar fi indiferent ca Integer, Long, String, Range etc.
Cod:
Sub setexmp () Dim Rnst Ca Gamă
Aici „Rnst” este un nume variabil și îl atribuie (As) ca funcție Range. Acest lucru va avertiza sistemul că, o selecție a intervalului ar fi făcută.
Pasul 4: Apoi tastați cuvântul cheie „Set” și dați o gamă folosind formatul: Set variable = Range („range range”) .
Cod:
Sub setexmp () Dim Rnst Ca set de interval Rnst = Range ("A2: A11") End Sub
Pasul 5: Trebuie să selectăm acest interval de rânduri specificat. Prin urmare, tastați selectați ca Rnst.Selectați referire la imaginea de mai jos:
Cod:
Sub setexmp () Dim Rnst Ca set de intervale Rnst = Interval ("A2: A11") Rnst.Selectează Sub
Pasul 6: Rulați codul apăsând butonul F5 sau Run și vedeți ieșirea.
Se va selecta intervalul specificat care este de la celulele A2 la A11.
Excel VBA Set - Exemplul # 2
Să presupunem că vrem să lipim aceste celule sau să se extindă într-o altă celulă. Vom folosi același cod ca mai sus și vom adăuga cod pentru lipirea datelor în mai multe coloane.
Urmați pașii de mai jos:
Pasul 1: Acum vom copia gama de celule care este coloana de nume. Introduceți o copie, adică „Rnst.Copy”, când introduceți „Rnst.” Apare un fel de drop-down. Conține diferite funcții, precum copiere, lipire etc.
Pasul 2: puteți derula în jos și selectați funcția dorită pe care doriți să o efectuați. Aici tastați „Copiați”, așa cum se arată în imaginea de mai jos:
Cod:
Sub setexmp () Dim Rnst Ca set de intervale Rnst = Interval ("A2: A11") Rnst.Select Rnst.Copy End Sub
Pasul 3: Compilați codul apăsând Tasta F8.
Odată, executați această funcție de copiere, veți vedea că în excel intervalul este copiat și liniile punctate apar în jurul intervalului de celule, așa cum se arată mai jos:
Pasul 4: Acum, trebuie să lipiți aceste celule, să spunem în coloanele adiacente, una câte una, așa că trebuie să folosim o funcție de buclă „For” și să presupunem de 5 ori că trebuie să lipiți, așa că o vom tasta așa cum se arată mai jos:
Pentru Integer i = 1 la 5 -> acest lucru specifică de câte ori avem nevoie pentru a insera datele. Dacă 5 atunci 1 până la 5 altcineva contează.
Cod:
Sub setexmp () Dim Rnst Ca set de interval Rnst = Interval ("A2: A11") Rnst.Select Rnst.Copy Pentru i = 1 până la 5 End Sub
Pasul 5: Selectați o celulă în care doriți să inserați acest interval de celule. Să presupunem că dorim să începem lipirea din coloana B2 și apoi lipirea datelor ar trebui să fie dinamică, adică ar trebui să selecteze automat coloane adiacente una câte una, fără să se suprapună. Prin urmare, sintaxa ar fi „Celulă (numărul rândului, numărul coloanei) .PasteSpecial”.
Celule (2, i + 1) .PasteSpecial, Aici, 2-> reprezintă numărul rândului și, i + 1 -> reprezintă numărul coloanei. i + 1 înseamnă că prima valoare a lui I declarată în bucla „For” este i = 1, de aceea valoarea coloanei va deveni 2, specifică faptul că va începe lipirea de la coloana B. Și cum și când valoarea i va crește, va continua să selecteze coloane adiacente unul câte unul.
Cod:
Sub setexmp () Dim Rnst Ca set de intervale Rnst = Interval ("A2: A11") Rnst.Selectați Rnst.Copy Pentru i = 1 până la 5 celule (2, i + 1) .PasteSpecial xlValues End Sub
Pasul 6: Tastați „ Următorul i ” ceea ce înseamnă că creșteți valoarea „i” unul câte unul, astfel încât lipirea coloanelor să rămână dinamică.
Cod:
Sub setexmp () Dim Rnst Ca set de intervale Rnst = Interval ("A2: A11") Rnst.Select Rnst.Copy Pentru i = 1 până la 5 celule (2, i + 1) .PasteSpecial xlValues Next i End Sub
Pasul 7: Apăsați „F8” pentru a vedea executarea codului linie cu linie și vă va indica lipirea celulelor în coloanele adiacente unul câte unul.
Aici puteți vedea valoarea lui i este 1 și datele au fost lipite în coloana B după cum doriți.
Pasul 8: Acum când apăsați din nou pe „F8” veți vedea că acum valoarea lui i este 2. Prin urmare, 2 + 1 va deveni 3 și datele vor fi lipite în celula (2, 3), adică valoarea rândului este aceeași, dar coloana modificări de număr așa cum se arată în imaginea de mai jos:
După repetarea buclei completate, veți vedea datele lipite de 5 ori, adică de la numărul 1 la 5 începând să lipiți de la coloana B până la coloana F așa cum se arată mai jos:
Set VBA Excel - Exemplul # 3
Să presupunem că am dori să afișăm un număr de celule din intervalul respectiv într-o casetă de mesaje care apare pe un buton. Vom lua aceleași date ca în figura de mai jos.
De asemenea, vom rula codul acestui exemplu în noua foaie. Prin urmare, adăugați o foaie nouă și în fereastra VBA va apărea ca mai jos:
Va trebui să introducem o opțiune de buton de comandă. Este o caracteristică a excel, așa că urmați pașii de mai jos:
Pasul 1: Introduceți un nume de subset care spune „Setcount ()” așa cum se arată în imaginea de mai jos:
Cod:
Sub Setcount () End Sub
Pasul 2: Declamați aceeași variabilă „Rnct” ca un interval din subset, așa cum se arată în imaginea de mai jos:
Cod:
Sub Setcount () Dim Rnct Ca Range End Sub
Pasul 3: Apoi tastați cuvântul cheie „Set” și dați un interval.
Cod:
Sub Setcount () Dim Rnct As Range Set Rnct = Range ("A2: A11") End Sub
Pasul 4: Acum, după remedierea intervalului, trebuie să vedem caseta pop up sau caseta de dialog care arată numărul de celule din interval. Prin urmare, utilizați funcția „MsgBox” care la executare un număr va apărea în caseta de dialog. Tastați „MsgBox variabilă nume.count”. În momentul în care tastați numele variabilei, apoi punct (.) Apare un drop-down care conține diferite funcții și am selecta „numărare” sau tip manual „numărare”.
Tastați „MsgBox Rnct.count” și la executare, va apărea numărător.
Pasul 5: Acum, vrem să introducem un buton de comandă și pe clic, pe acel buton trebuie să apară caseta de mesaj.
Faceți clic pe „Introduceți” în fila „Dezvoltator”, așa cum este evidențiat în caseta roșie și veți vedea un drop-down al categoriei „Control de formulare”. Faceți clic pe prima formă dreptunghiulară, pe care va trebui să o desenăm și să o introducem manual în foaia excel:
Pasul 6: După ce faceți clic pe caseta dreptunghi, desenați și introduceți caseta în foaie și după ce începeți să desenați o casetă de dialog apare așa cum se arată mai jos. Este un buton de fereastră „Assign Macro” și selectați macrosetul „Setcount”. Faceți clic pe „OK”.
Acest lucru semnifică faptul că am atribuit macrocomenzi numărului acestui buton. Iar la clic, se va executa.
Pasul 7: Va apărea așa cum se arată mai jos în excel.
Pasul 8: Faceți clic dreapta pe el și redenumiți-l folosind opțiunea „ Editează textul ” așa cum se arată mai jos:
Pasul 9: Dați-i un nume ca „COUNT” și îl veți vedea în excel, așa cum se arată mai jos.
Pasul 10: Apoi faceți clic pe butonul „COUNT”: odată ce faceți clic pe butonul „COUNT” apare o casetă de mesaje, așa cum se arată mai jos:
După cum putem vedea, există 10 nume și au arătat numărul corect din intervalul A2 până la A11.
Lucruri de amintit
- Asigurați-vă că aveți fila „Dezvoltator” introdusă în panglici Excel pentru a rula aceste coduri VBA.
- „Set” se aplică în cea mai mare parte pe foile de lucru / intervalul de celule dintr-o anumită foaie.
Articole recomandate
Acesta este un ghid pentru VBA Set. Aici vom discuta despre cum să atribuiți o referință la un obiect sau o gamă de celule folosind cuvântul cheie Set VBA excel împreună cu exemple practice și șablon excel descărcabil. Mai jos sunt câteva articole utile utile legate de VBA -
- Funcția de concatenat VBA
- Tutoriale pe seturi de pictograme Excel
- Lucrul cu Range Cells în VBA
- Rezolvați ecuația în Excel