VBA Sa | Paano Magamit Sa ... Nagtatapos Sa Pahayag sa Excel VBA?

Gamit ang Pahayag sa Excel VBA

Gamit ang pahayag ay ginagamit sa VBA upang ma-access ang lahat ng mga pag-aari at pamamaraan ng isang nabanggit na bagay. Kailangan nating ibigay kung aling bagay ng VBA ang tinutukoy namin muna pagkatapos isara ang Gamit na pahayag Magtapos sa, pagkatapos sa loob ng pahayag na ito, maaari nating maisagawa ang lahat ng mga pagbabago at pamamaraan ng pag-aari ng nabanggit na bagay.

Nasa ibaba ang syntax ng With Statement sa VBA.

 Sa [LAYUNIN] [Code… Ano ang kailangang gawin?] Wakas Sa

Ang bagay ay walang anuman kundi isang saklaw ng mga cell o cell na tinutukoy namin at pagkatapos ay maaari nating baguhin ang mga katangian at maisagawa ang lahat ng mga pamamaraan na nauugnay sa tukoy na cell o mga cell na iyon.

Paano Magamit Sa Pahayag sa Excel VBA?

Nasa ibaba ang ilang mga halimbawa upang magamit Sa Pahayag sa Excel VBA.

Maaari mong i-download ang VBA With Excel Template na ito dito - VBA With Excel Template

Halimbawa # 1

Ipagpalagay na mayroon kang tiyak na halaga sa A1 cell, ipinasok ko ang teksto bilang "Excel VBA" sa cell A1.

Ngayon para sa cell na ito, kailangan kong gumawa ng ilang mga gawain hal ibig sabihin ang pag-format sa excel.

Nais kong baguhin ang laki ng font, pangalan ng font, at panloob na kulay, magsingit ng isang hangganan, atbp… Karaniwan na ang ginagawa namin ay tinutukoy muna namin ang cell sa pamamagitan ng paggamit ng VBA RANGE object.

Code:

 Sub Sa_Example1 () Saklaw ("A1") Tapusin ang Sub

Ngayon upang baguhin ang laki ng font na-access namin ang "font" na pag-aari ng cell na ito.

Sa ilalim ng pag-aari ng FONT ina-access namin ang laki ng pag-aari at ipasok ang laki sa pamamagitan ng paglalagay ng isang pantay na pag-sign.

Code:

 Sub Sa_Example1 () Saklaw ("A1"). Font.Size = 15 End Sub

Ngayon ay katulad na ginagawa namin ang iba pang mga gawain sa pag-format tulad ng ipinakita sa ibaba.

Code:

 Sub With_Example1 () Saklaw ("A1"). Font.Size = 15 Saklaw ("A1"). Font.Name = "Verdana" Saklaw ("A1"). Panloob.Color = vbYellow Range ("A1"). Mga Hangganan .LineStyle = xlPagpatuloy na End Sub

Gagawin nito ang lahat ng mga nabanggit na gawain ngunit kung titingnan mo ang code upang maisagawa ang bawat aktibidad sa pag-format na ibinigay namin sa cell address tuwing, ginagawa nitong ang code ay mukhang matagal at matagal.

Ngayon gagamitin namin ang pahayag ng VBA Na may mabawasan ang pagpasok ng cell address sa tuwing. Buksan MAY pahayag sa Excel VBA at ibigay ang address ng cell.

Code:

 Sub With_Example1 () Sa Saklaw ("A1") End Sub

Sa loob ng pahayag na Gamit ang maglagay ng isang tuldok upang makita ang lahat ng mga katangian at pamamaraan ng cell A1.

Ngayon ang aktibidad sa unang pag-format ay binabago ang laki ng font, kaya i-access ang FONT at sa ilalim ng pag-access na ito ng SIZE na pag-aari.

Code:

 Sub With_Example1 () Sa Saklaw ("A1"). Font.Size = 15 End Sub

Katulad nito, magbigay ng iba pang mga code ng pag-format at isara ang VBA Sa Pahayag.

Code:

 Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Border.LineStyle = xlContinuous End With End Sub

Patakbuhin ang code upang makita ang lahat ng pag-format sa nabanggit na bagay na ie cell A1.

Kaya, ang lahat ng pag-format ay inilapat sa cell. Tingnan kung gaano cool ang diskarteng ito.

Halimbawa # 2

Halimbawa, kung nais mong baguhin ang lahat ng mga pag-aari na nauugnay sa font maaari mong banggitin ang cell at FONT na pag-aari.

Code:

 Sub Sa_Example2 () Sa Saklaw ("A1"). Nagtatapos ang Font Sa Katapusan Sub

Sa loob ng vba Sa Pahayag, maaari naming makita ang listahan ng IntelliSense magpapakita ito ng mga katangian at pamamaraan na nauugnay sa FONT na pag-aari lamang.

Maaari naming maisagawa ang anumang hanay ng aktibidad kasama nito ngayon.

Code:

 Sub With_Example2 () With Range ("A1"). Font .Bold = True 'Font will be Bold .Color = vbAlias' Font color will be Alias .talic = True 'Font will be italic style .Size = 20' Font size will be maging 20 .Underline = True 'Ang font ay salungguhit End End End

Ang resulta nito ay ipapakita sa ibaba.

Halimbawa # 3

Sa ibaba ng code ay ia-access ang mga pag-aari na nauugnay sa hangganan ng cell.

Code:

 Sub With_Example3 () Sa Saklaw ("B2"). Mga Hangganan .Kulay = vbRed 'Ang kulay ng hangganan ay magiging pula .LineStyle = xlPagpapatuloy' Buong hangganan .Timbang = xlTicker 'Makapal na hangganan End End End

Ang resulta ng code na ito ay ang mga sumusunod.

Bagay na dapat alalahanin

Gamit ang pahayag ay ginagamit upang i-minimize ang code.
Kailangan muna nating magbigay ng object para sa With statement.
Kapag naibigay na ang tukoy na bagay maaari lamang nating ma-access ang mga katangian at pamamaraan ng object na iyon.

photosdematures.com