VBA KUNG O | Paano Gumamit KUNG Kundisyon na may O Pag-andar sa Excel VBA?
KUNG O ay hindi isang solong pahayag ito ay dalawang lohikal na pag-andar na ginagamit nang sama-sama ng ilang beses sa VBA, ginagamit namin ang dalawang lohikal na pag-andar na ito kapag mayroon kaming higit sa isang pamantayan upang suriin at kung may alinman sa mga pamantayan na natupad nakukuha natin ang totoong resulta, kapag ginamit namin ang kung pahayag O pahayag ay ginagamit sa pagitan ng dalawang pamantayan ng Kung pahayag.
KUNG O Pag-andar sa VBA
Ang mga lohikal na pag-andar ay ang puso ng anumang mga kalkulasyon batay sa pamantayan. Ang "KUNG" ay ang pinakatanyag na lohikal na pagpapaandar maging ito bilang pag-andar ng worksheet o bilang pag-andar ng VBA, mahusay itong nagsisilbi para sa aming mga pangangailangan. Ngunit ang isa pang lohikal na pagpapaandar na "O" sa excel ay ang pinaka-underrated na function. Mahalaga rin na makabisado pagdating sa paglutas ng mga kumplikadong kalkulasyon. Sa artikulong ito, dadalhin ka namin sa detalye ng VBA IF O Function. Basahin ang buong artikulo upang makuha ang detalye ng pagpapaandar.
Paano Magagamit ang KUNG may OR Pag-andar sa VBA?
Ipapakita namin sa iyo ang isang simpleng halimbawa ng paggamit ng IF OR function sa VBA.
Maaari mong i-download ang VBA IF OR Excel Template dito - VBA IF OR Excel TemplateAng pagsasama-sama ng mga lohikal na pag-andar ay ang pinakamahusay na mga pares sa excel. Kapag pinagsama mo ang maraming mga lohikal na pormula sa loob ng iba pang lohikal na pormula iminungkahi nito na ang pagkalkula ay nangangailangan ng maraming mga kundisyon upang subukan.
Ngayon, tingnan ang syntax ng IF O function sa VBA.
[Pagsubok] O [Pagsubok] O [Pagsubok]
Ito ay kapareho ng nakita natin sa halimbawa ng worksheet. Para sa isang mas mahusay na pag-unawa tingnan ang halimbawa sa ibaba.
Mayroon kaming presyo ng nakaraang buwan, huling 6 na buwan na average na presyo, at ang kasalukuyang buwanang presyo dito.
Upang magpasya kung bibilhin ang produkto o hindi, kailangan naming gumawa ng ilang mga pagsubok dito at ang mga pagsubok na iyon ay.
Kung ang Kasalukuyang presyo ay mas mababa sa o katumbas ng alinman sa isa sa iba pang dalawang mga presyo na dapat nating makuha ang resulta bilang "Bumili" o kung hindi man ay dapat makuha ang resulta bilang "Huwag Bilhin".
Hakbang 1: Buksan ang Kundisyon sa loob ng subprocedure.
Code:
Sub IF_OR_Example1 () Kung Tapusin ang Sub
Hakbang 2: Sa loob ng kundisyon na KUNG ilapat ang unang lohikal na pagsubok bilang Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Value End Sub
Hakbang 3: Ang unang lohikal na kundisyon ay tapos na, bukas na O pahayag.
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Wakas na Sub
Hakbang 4: Ilapat ngayon ang pangalawang lohikal na kondisyon bilang Saklaw ("D2"). Halaga <= Saklaw ("C2"). Halaga
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Saklaw ("D2"). Halaga <= Saklaw ("C2"). Katapusan ng Halaga ng Sub
Hakbang 5: Ok, tapos na tayo sa mga lohikal na pagsubok dito. Matapos ang lohikal na mga pagsubok ilagay ang salitang "Pagkatapos".
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Saklaw ("D2"). Halaga <= Saklaw ("C2"). Halaga Pagkatapos Tapusin ang Sub
Hakbang 6: Sa susunod na linya isulat kung ano ang dapat na resulta kung ang lohikal na pagsubok ay TUNAY. Kung ang kondisyon ay TOTOO kailangan namin ang resulta bilang "Buy" sa cell E2.
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Saklaw ("D2"). Halaga <= Saklaw ("C2"). Halaga Pagkatapos Saklaw ("E2"). Halaga = "Bumili" End Sub
Hakbang 7: Kung ang resulta ay MALI dapat nating makuha ang resulta bilang "Huwag Bumili". Kaya sa susunod na linya ilagay ang "Iba Pa" at isulat ang code sa susunod na linya.
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Saklaw ("D2"). Halaga <= Saklaw ("C2"). Halaga Pagkatapos Saklaw ("E2"). Halaga = "Bumili" Iba Pang Saklaw ("E2"). Halaga = "Huwag Bumili" End Sub
Hakbang 8: Isara ang pahayag na KUNG gamit ang salitang "Wakas Kung".
Code:
Sub IF_OR_Example1 () Kung Saklaw ("D2"). Halaga <= Saklaw ("B2"). Halaga O Saklaw ("D2"). Halaga <= Saklaw ("C2"). Halaga Pagkatapos Saklaw ("E2"). Halaga = "Bumili" Iba Pang Saklaw ("E2"). Halaga = "Huwag Bumili" Nagtatapos Kung Nagtatapos Sub
Ok, tapos na kami sa bahagi ng pag-coding.
Patakbuhin natin ang code na ito gamit ang F5 o manu-mano sa pamamagitan ng pagpipiliang run at tingnan kung ano ang resulta sa cell E2.
Nakuha namin ang resulta bilang "Buy" dahil ang kasalukuyang buwanang presyo ng Apple ay mas mababa kaysa sa presyo ng parehong "Nakaraang Buwan" pati na rin ang "6 na Buwanang Average na Presyo".
KUNG O VBA Function na may Loops (Advanced)
Kapag naintindihan mo ang formula subukang gamitin ito sa isang mas malaking bilang ng mga cell. Sa kaso ng isang mas malaking bilang ng mga cell, hindi kami maaaring magsulat ng anumang linya ng code, kaya kailangan naming gumamit ng mga loop ng VBA.
Para sa hanay ng data sa itaas, nagdagdag ako ng ilang mga linya.
Kailangan naming gamitin ang For Next loop dito.
Panatilihin lamang ang kasalukuyang code tulad nito.
Ipahayag ang variable bilang isang integer.
Ngayon buksan ang Para sa Susunod na Loop mula 2 hanggang 9.
Ngayon, saanman tayo magkaroon ng sanggunian sa cell ay binabago ang kasalukuyang numero at pinagsama ang variable na "k" sa kanila.
Halimbawa Saklaw ("D2"). Halaga ay dapat na Saklaw ("D" & k). Halaga
Patakbuhin ngayon ang code na dapat nating makuha ang katayuan sa lahat ng mga cell.
Maaari mong kopyahin ang code sa ibaba.
Code:
Sub IF_OR_Example1 () Dim k Bilang Integer Para sa k = 2 Hanggang 9 Kung Saklaw ("D" & k). Halaga <= Saklaw ("B" & k). Halaga O Saklaw ("D" & k). Halaga <= Saklaw ("C" & k) .Halaga Pagkatapos Saklaw ("E" & k) .Value = "Buy" Else Range ("E" & k) .Value = "Huwag Bumili" End Kung Susunod k End Sub