Satura rādītājs
Šajā rakstā es parādīšu, kā var iestatīt mainīgo uz šūnas vērtību, izmantojot VBA Uzzināsiet, kā iestatīt mainīgo lielumu vienas šūnas vērtībai un šūnu diapazonam.
Lejupielādēt Practice Workbook
Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.
Iestatiet mainīgo uz Cell.xlsm3 ātri piemēri, kā iestatīt mainīgo vērtību šūnas vērtībai programmā Excel
Šeit mums ir datu kopa, kas satur dažu klientu nosaukumi , to kontakttālruņi , un e-pasta adreses diapazonā B3:D13 darblapā.
Mūsu mērķis ir iestatīt mainīgos lielumus uz šūnu vērtībām no šī datu kopuma, izmantojot VBA .
1. Mainīgā lieluma iestatīšana uz vienas šūnas vērtību, izmantojot Excel VBA
Vispirms mēs iemācīsimies iestatīt mainīgo uz vienas šūnas vērtību, izmantojot VBA .
Piemēram, iestatīsim šūnas vērtību B4 uz mainīgo ar nosaukumu Klienta_nosaukums .
Labāk, ja jūs zināt vērtības datu tipu un deklarējat to iepriekš. Un pēc tam iestatiet vērtību šajā mainīgajā.
Piemēram, šeit šūna B4 satur nosaukumu, Boriss Pasternaks . Tas ir virknes tipa Tāpēc varat izmantot šādu mainīgo. 2 kodu rindas:
Dim Value As String Value = Range("B4") 
Bet nekas, ja neesat pārliecināts par datu tipu. Tādā gadījumā ierakstiet tikai 2. rindu, un VBA pareizi nolasīs vērtību.
Vērtība = Range("B4") 
Tagad, lai pārbaudītu, vai VBA ir vai nav pareizi nolasījis vērtību, ievadiet rindu MsgBox Vērtība ar kādu no abiem kodu komplektiem un pēc tam palaidiet kodu.
Parādīsies ziņojuma lodziņš, kurā būs redzama šūnas vērtība. B4 , Boriss Pasternaks .
2. Iestatiet blakus esošu šūnu diapazona vērtības mainīgajā, izmantojot Excel VBA
Tagad mēs iestatīsim blakus esošā šūnu diapazona vērtības mainīgajā. Piemēram, nolasīsim diapazonu. B3:D13 mainīgajā Rng .
Šajā gadījumā mainīgā datu tips būs a Diapazons . Varat to deklarēt iepriekš, piemēram, šādi:
Dim Rng As Range Set Rng = Range ("B3:D13") 
Varat arī tieši piešķirt vērtības, izmantojot to.
Set Rng = Range("B3:D13") 
Tagad, lai piekļūtu vērtībām Diapazona objekts , jums tiem ir jāpiešķir piekļuve, norādot to rindu un kolonnu numurus ar Šūnu objekts .
Piemēram, lai piekļūtu šūnai B4 , jums ir jāizmanto Rng.Cells(2,1) [ Šūnas B4 atrodas 2. rindu un 1. diapazona slejā B3:D13 .]
Ievadiet rindu MsgBox Rng.Cells(2,1) un palaidiet to savā kodā. Tas parādīs. Boriss Pasternaks , vērtība šūnā B4 .
3. Iestatiet mainīgajā mainīgajā vērtību no blakus esoša šūnu diapazona, izmantojot Excel VBA
Visbeidzot, mēs mainīgajā lielumā iestatīsim nesaderīgu šūnu diapazona vērtības.
Piemēram, mēģināsim nolasīt diapazonu B3:B13 un D3:D13 mainīgajā ar nosaukumu Rng .
Tas atkal ir datu tips Diapazons . Jūs varat to deklarēt iepriekš vai nedeklarēt.
Mēs izmantosim Savienības metode no VBA pievienoties 2 vai vairākus nesaderīgus šūnu diapazonus vienā diapazonā.
Dim Rng As Range Set Range = Union(Range("B3:B13"), Range("D3:D13")) 
Tagad, lai piekļūtu šūnai B4 , atkal ir jāievada rinda MsgBox Rng.Cells(1,1). Tad, ja mēs palaidīsim kodu, tas parādīs saturu šūnā B4 , Boriss Pasternaks .
Lietas, kas jāatceras
Visas iepriekš aprakstītās metodes darbojas tikai aktīvajā darblapā. Ja vēlaties piekļūt darblapai, kas nav aktīva, pirms diapazona ir jānorāda darblapas nosaukums.
Piemēram, lai piekļūtu diapazonam B4 no Lapa1 , jums ir jāizmanto:
Vērtība = darblapas("Sheet1").Range("B4") 
