photosdematures.com

Paglalahad ng Pahayag ng Excel VBA

Ang VBA Set ay isang pahayag na ginagamit upang magtalaga ng anumang halaga key na nagsasabi ng isang object o isang sanggunian sa isang variable, ginagamit namin ang pagpapaandar na ito upang tukuyin ang parameter para sa isang tiyak na variable, halimbawa, kung isusulat namin ang Itakda ang M = A na nangangahulugang ngayon ang M na sanggunian ay may parehong mga halaga at mga katangiang katulad ng mayroon ang A.

Sa VBA, ang isang bagay ay isang core ng excel dahil kung walang mga bagay ay wala tayong magagawa. Ang mga object ay Workbook, Worksheet, at Range. Kapag ipinahayag namin ang isang variable kailangan namin upang magtalaga ng isang uri ng data dito at maaari rin kaming magtalaga ng mga bagay bilang mga uri ng data. Upang magtalaga ng isang halaga sa idineklarang mga variable ng bagay kailangan naming gamitin ang salitang "SET". Ang salitang "Itakda" na ginamit upang tumukoy sa isang bagong bagay sa VBA, halimbawa, na tumutukoy sa partikular na saklaw ng partikular na worksheet.

Paano magagamit ang Pahayag ng Set ng Excel VBA?

Maaari mong i-download ang Template ng Pahayag ng Set ng VBA dito - Template ng Pahayag ng Set ng VBA

# 1 - Itakda ang Pahayag na may Mga variable na Saklaw ng Bagay

Halimbawa ipalagay na nais mong gamitin ang saklaw na A1 hanggang D5 medyo madalas. Sa halip na isulat ang code bilang Saklaw ("A1: D5") tuwing maaari nating ideklara ang variable bilang saklaw at itakda ang sanggunian sa saklaw bilang Saklaw ("A1: D5")

Hakbang 1: Ipahayag ang variable bilang isang saklaw na bagay.

Code:

 Sub Set_Example ()

Madilim ang MyRange Bilang Saklaw

Wakas Sub

Hakbang 2: Sa sandaling itatalaga namin ang uri ng data bilang saklaw gamitin ang salitang "Itakda".

Code:

 Sub Set_Example () I-dim ang MyRange Bilang Saklaw na Itakda ang MyRange = End Sub 

Hakbang 3: Ngayon banggitin ang saklaw.

Code:

 Sub Set_Example () I-dim ang MyRange Bilang Saklaw na Itakda ang MyRange = Saklaw ("A1: D5") Tapusin ang Sub 

Hakbang 4: Ngayon ang variable na "MyRange" ay katumbas ng saklaw na A1 hanggang D5. Gamit ang variable na ito maaari naming ma-access ang lahat ng mga katangian at pamamaraan ng saklaw na ito.

Maaari naming kopyahin, magdagdag ng isang komento sa excel, at gumawa ng maraming iba pang mga bagay.

Halimbawa ng layunin, lumikha ako ng ilang mga numero dito.

Ngayon gamit ang variable babaguhin ko ang laki ng font sa 12.

Code:

 Sub Set_Example () I-dim ang MyRange Bilang Saklaw na Itakda ang MyRange = Saklaw ("A1: D5") MyRange.Font.Size = 12 End Sub 

Babaguhin nito ang laki ng font ng itinalagang saklaw.

Tulad nito, magagawa natin ang maraming bagay sa isang partikular na saklaw sa pamamagitan ng paggamit ng salitang "Itakda".

# 2 - Itakda ang Pahayag na may Mga Variable ng Bagay sa Worksheet

Nakita namin kung paano gumagana ang "set" sa isang saklaw na object sa VBA. Gumagawa ito ng eksaktong kapareho ng worksheet object din.

Sabihin nating mayroon kang 5 mga worksheet sa iyong workbook at nais mong magpatuloy na bumalik sa isang partikular na worksheet, maaari mong itakda ang pangalan ng worksheet sa tinukoy na variable ng object.

Halimbawa, tingnan ang code sa ibaba.

Code:

 Sub Set_Worksheet_Example () Dim Ws Bilang Worksheet Set Ws = Mga Worksheet ("Buod ng Sheet") End Sub 

Sa code sa itaas, ang variable "Ws" tinukoy bilang variable ng bagay, at sa susunod na linya sa pamamagitan ng paggamit ng salitang "Itakda" itinakda namin ang variable sa worksheet na pinangalanang "Buod ng Sheet".

Ngayon sa pamamagitan ng paggamit ng variable na ito, magagawa natin ang lahat ng mga bagay na nauugnay dito. Tingnan ang nasa ibaba ng dalawang hanay ng code.

# 1 - Walang Salitang "Itakda"

Code:

 Sub Set_Worksheet_Example1 () 'Upang mapili ang sheet Worksheets ("Buod ng Sheet"). Piliin ang' Upang Isaaktibo ang sheet Mga Worksheet ("Buod ng Sheet"). Paganahin ang 'Upang maitago ang sheet Worksheets ("Buod ng Sheet"). Makikita = alisan ng takip ang sheet Mga Worksheet ("Buod ng Buod"). Makikita = xlVisible End Sub 

Sa tuwing ginamit ko ang object ng worksheets upang mag-refer sa sheet na "Buod ng Sheet". Ginagawa nitong napakahaba ng code at nangangailangan ng maraming oras upang mai-type.

Bilang bahagi ng malaking code, nakakabigo na i-type ang pangalan ng worksheet na tulad nito sa tuwing kailangan mong i-refer ang worksheet.

Ngayon tingnan ang bentahe ng paggamit ng salitang Itakda sa Code.

# 2 - Sa Salitang "Itakda"

Code:

 Sub Set_Worksheet_Example () Dim Ws Bilang Worksheet Set Ws = Worksheets ("Buod ng Sheet") 'Upang mapili ang sheet Ws. Piliin ang' Upang Buhayin ang sheet Ws.Aaktibo ang 'Upang maitago ang sheet Ws.Visible = xlVeryHidden' Upang maipakita ang sheet Ws .Visible = xlVisible End Sub 

Sa sandaling itinakda namin ang pangalan ng worksheet maaari naming makita ang variable na pangalan habang inilalagay ang code bilang bahagi ng listahan.

# 3 - Itakda ang Pahayag na may Mga Variable ng Bagay sa Workbook

Ang tunay na bentahe ng salitang "Itakda" sa VBA ay lilitaw kapag kailangan nating mag-refer ng iba't ibang mga workbook.

Kapag nagtatrabaho kami sa iba't ibang mga workbook napakahirap i-type ang buong pangalan ng workbook kasama ang extension ng file nito.

Ipagpalagay na mayroon kang dalawang magkakaibang mga workbook na pinangalanang "File ng Buod ng Pagbebenta 2018.xlsx" at "File ng Buod ng Pagbebenta 2019.xlsx" maaari naming itakda ang dalawang mga workbook tulad ng code sa ibaba.

Code:

 Sub Set_Workbook_Example1 () Dim Wb1 Bilang Workbook Dim Wb2 Bilang Workbook Set Wb1 = Mga Workbook ("Buod ng Pagbebenta ng File 2018.xlsx") Itakda ang Wb2 = Mga Workbook ("Buod ng Pagbebenta ng File 2019.xlsx") End Sub 

Ang variable na Wb1 ay katumbas ng workbook na pinangalanang "File ng Buod ng Pagbebenta 2018.xlsx" at ang variable na Wb2 ay katumbas ng workbook na pinangalanang "Buod ng Pagbebenta ng File 2019.xlsx".

Gamit ang variable na ito maaari naming ma-access ang lahat ng mga katangian at pamamaraan na nauugnay sa workbook.

Maaari naming paikliin ang code tulad ng nasa ibaba.

Nang walang Paggamit ng Itakda ang Keyword upang buhayin ang workbook:

Mga Workbook ("File ng Buod ng Pagbebenta 2018.xlsx"). Paganahin

Gamit ang Itakda ang Keyword upang buhayin ang workbook:

Wb1.Aaktibo

Ginagawa nitong mas simple ang pagsulat ng code at sa sandaling ang pangalan ng workbook ay itinakda mayroong isang pag-aalala ng typo error ng mga pangalan ng workbook.