Tabela e përmbajtjes
VBA Mod nuk është një funksion ndërsa MOD është një funksion në një fletë pune në Excel. VBA Mod është një operator që ndan dy numra dhe kthen mbeturën . Operatori Mod është një formë e shkurtër e MODULO që përdoret në veprimet matematikore. Operatorët Mod rrumbullakosin pikën lundruese .
Në këtë artikull, unë do të tregoj ju shembuj të ndryshëm të përdorimit të operatorit Excel VBA Mod .
Shkarkoni për të praktikuar
Shembuj të Operatorit VBA Mod. xlsm
Bazat e funksionit VBA Mod: Përmbledhje & Sintaksa
Përmbledhje
Operatori VBA Mod ndan dy numra dhe kthen mbeturën . Aty ku njëri njihet si pjesëtues tjetri është numër . Operatori Mod ndan numrin me pjestuesin .
Sintaksa
Number1 Mod Number2 (Divisor)
Argumentet
| Argumentet | Kërkohen/ Opsionale | Shpjegim |
|---|---|---|
| Numri 1 | Kërkohet | Ajo është një shprehje numerike |
| Numri2 | Kërkohet | Është një numerike shprehja |
Vlera e kthimit
Operatori VBA Mod kthen një mbetje .
Versioni
Operatori VBA Mod është i disponueshëm për Excel 2000 e më vonë.
Po përdor Excel Microsoft 365 për tëshpjeguar në seksionin 1.
➤ Unë e emërova butonin Çek ose Tek .
Pas kësaj, klikoni në butonin për të ekzekutuar Kodi VBA .
Prandaj, do të mësoni se cila vlerë është Çift dhe cila është Tek .
Këtu, 1 është numri tek .
Këtu, 2 është çift numri.
Lexo më shumë: VBA If – Atëherë – Deklaratë tjetër në Excel (4 shembuj)
9. Përdorimi i gamës së qelizave në VBA Mod për të marrë mbetje
Gjithashtu mund të përdorni sferën e qelizave për të marrë mbetjen duke përdorur VBA Mod .
Për të hapur redaktorin VBA , ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Moduli .
5433
Këtu, në nënprocedurën Get_Reminder_UsingVBA, Unë deklarova variablin n si Numër i plotë .
Më pas, përdora një lak For ku mbajta vlerën që deklarova përmes referencës së qelizës. Cikli do të funksionojë për vlerat nga rreshtat 4 deri 9 .
Më pas përdori MsgBox për të treguar mbeturën .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur butonin , ndiqni hapat e shpjeguar në seksionin 1 .
➤ Unë e emërova butonin Referenca dinamike e qelizave .
Pas kësaj, klikoni në butonin për të ekzekutuar VBA kodi.
Prandaj, do të merrni mbeturën për të gjitha vlerat e përdorura njënga një.
I pari është për numrin 29 ku pjesëtuesi është 3 .
E dyta është për numrin -47 ku pjesëtuesi është 5 .
Cakulli do të funksionojë derisa të arrijë në rreshtin 9 . E pesta është për numrin 59 ku pjesëtuesi është 6 .
Përmbajtje të ngjashme: Si të përdorni funksionin e rastësishëm VBA në Excel (5 shembuj)
Dallimi midis Excel MOD & VBA Mod
Megjithëse për shumicën e rasteve vlerat e kthyera janë të njëjta për funksionin MOD dhe operatorin VBA Mod megjithatë për disa raste rezultati ndryshojnë nga njëra-tjetra. Më lejoni t'ju tregoj ndryshimin midis tyre.
| MOD Funksioni | VBA Mod Operator |
|---|---|
| Funksioni MOD kthen numrat Integer dhe Decimal . | Mod operatori kthen vetëm Numrat e plotë . |
| Ndërsa përdor një numër negativ në MOD nuk kthen një shenjë negative . | Ai mbështet numrat negativë dhe më pas kthen shenjën negative . |
Gjëra për t'u mbajtur mend
🔺 Operatori do të rrumbullakos pikët dhjetore/lundruese .
Seksioni i praktikës
Kam ofruar një fletë praktike në librin e punës për të praktikuar këta shembuj të shpjeguar.
Përfundim
Në këtë artikull, kam treguar 9 shembuj të operatorit Excel VBA Mod . Gjithashtu u përpoqa të mbuloja arsyet për të shfaqur shpesh gabime. Së bashku me gjërat që duhet të mbani mend gjatë përdorimit të operatorit. Mos ngurroni të komentoni më poshtë për çdo lloj pyetjeje dhe sugjerimi.
zbatoni këta shembuj.9 Shembuj të përdorimit të funksionit VBA Mod në Excel
1. Përdorimi i VBA Mod për të marrë Remainder
Nëse dëshironi, mund të merrni një mbetja duke përdorur operatorin VBA Mod .
Më lejoni t'ju shpjegoj procedurën,
Për të filluar, hapni Zhvilluesin tab >> zgjidhni Visual Basic .
➤ Tani do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .
Më pas, nga Fut >> zgjidhni Modul
Tani, shkruani kodin e mëposhtëm në Modul .
5266
Këtu, në nënprocedurën Get_Reminder , unë deklarova variablin n si Numër i plotë dhe e përdora atë për të mbajtur vlerën e kthyer të Operatori Mod.
Më pas përdori MsgBox për të shfaqur mbeturin .
Tani, Ruaj kodoni dhe kthehuni te fleta e punës.
Përsëri, hapni skedën Zhvilluesi >> nga Fut >> zgjidhni Butonin nga Kontrollet e formës
Tani, Zvarriteni butonin në vendoseni aty ku dëshironi të jepni titullin.
Më pas, mund t'i jepni një emër butonit.
➤ Unë e quajta atë Merr rikujtues .
⏩ Tani, kliko me të djathtën mbi miun do të shfaqet një meny konteksti e Cakto Macro .
0>Nga atje zgjidhni Cakto makro . 
⏩ Do të shfaqet një kuti dialogu e Cakto makro .
Pastaj,zgjidhni Emrin makro dhe Makrot në .
⏩ Zgjodha Merr_Reminder nga Emri makro dhe zgjodha VBA Mod.xlsm nga Macros në .
Më në fund, kliko OK .
Më pas, klikoni në butonin me emrin Merr_Reminder .
Prandaj, do të shfaqet një kuti e mesazheve me mbetja .
Mund ta bëni këtë për të gjithë numrat për të marrë mbeturën .
Lexo më shumë: Funksioni i formatit VBA në Excel (8 përdorime me shembuj)
2. Përdorimi i referencës së qelizave në VBA Mod për të marrë mbetje
Duke përdorur Referenca e qelizës nga fleta e Excel-it, mund të merrni mbeturinën nga VBA Mod .
Për të hapur Redaktori VBA , ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
5383
Këtu, në Reminder_Using_CellReference , unë deklarova variablin n si Numër i plotë dhe e përdora për të mbajtur vlerën e kthyer të Mod operator.
Tjetra , përdori referencën e qelizës B4 si numër1 dhe C4 si numrin2 (pjesëtues)
Më pas përdori MsgBox për të shfaqur mbeturin .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur Buton , ndiqni hapat e shpjeguar në seksionin 1.
➤ Unë e emërova butonin Referenca e qelizës .
Pas kësaj, klikoni në Butoni për të ekzekutuar VBA kodin.
Prandaj, ju do të merrni mbeturin për referencën e qelizës së përdorur.
Përmbajtja e ngjashme: Si të Ktheni një vlerë në funksionin VBA (Vlerat e vargjeve dhe jo-vargjeve)
3. Përdorimi i VBA Mod për të marrë një mbetje nga një numër negativ
VBA Mod gjithashtu mbështet numrat negativ gjatë llogaritjes së të mbeturit .
Për të hapur VBA redaktor, ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
7058
Këtu , në Reminder_From_NegativeNumber, Unë deklarova variablin n si Numër i plotë dhe e përdora atë për të mbajtur vlerën e kthyer të operatorit Mod .
Më pas, përdori referencën e qelizës B5 si numër1 dhe C5 si numrin2 (pjesëtues)
Më pas përdori MsgBox për të shfaqur mbetjen .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
>Për të futur butonin , ndiq hapat e shpjeguar në seksionin 1.
➤ Unë emërova th Butoni e Kujtesa nga numri negativ .
Pas kësaj, klikoni në butonin për të ekzekutuar kodin VBA .
Prandaj, ju do të merrni mbeturën për numrin negativ .
Lexo më shumë: Si të përdoret funksioni VBA IsNumeric (9 shembuj)
4. Përdorimi i modalitetit të VBA për të marrë mbetjet në qelizë
Në vend që të tregohet mbetja përmesKutia msg mund ta vendosni në një qelizë duke përdorur funksionin VBA MOD .
Për të hapur VBA redaktori, ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
1915
Këtu, në s nën-procedurën Reminder_in_Cell , kam përdorur formatin ActiveCell.FormulaR1C1 për të marrë pozicionin e ActiveCell .
Më pas, përdori funksionin MOD për të marrë mbeturën .
Gjithashtu përdori metodën Zgjidh .
Tani. , Ruaj kodin dhe kthehu te fleta e punës.
Për të futur Butonin dhe cakto kodin VBA ndiqni hapat e shpjeguar në seksionin 1.
➤ Unë e emërova butonin Kujtues në qelizë .
Më pas, zgjidhni qelizën D4 .
Më pas, klikoni në butonin për të ekzekutuar kodin VBA .
Si rezultat, do të merrni mbetja në qelizën e zgjedhur.
Duke ndjekur të njëjtin proces, do të merrni mbeturën për pjesën tjetër të numrat.
Lexo më shumë: Si të përdoret funksioni MsgBox në Excel VBA (Një udhëzues i plotë)
5. Përdorimi i VBA Mod me pjesëtuesin e numrave të plotë & Numri float
Në rast se pjesëtuesi është një lloj numri i plotë , por numri juaj është në float shkruani pastaj mund të përdorni operatorin VBA Mod .
Për të hapur redaktorin VBA , ndiqni hapat e shpjeguar në seksion1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
8794
Këtu, në nënndarjen R eminder_From_Decimal_Number -procedurë, E deklarova variablin n si Numër i plotë dhe e përdora për të mbajtur vlerën e kthyer të operatorit Mod .
Më pas, përdori referencën e qelizës B5 si numër1 dhe C5 si numrin2 (pjesëtues)
Më pas përdori MsgBox për të shfaqur mbeturin .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur Button , ndiqni hapat e shpjeguar në seksionin 1.
➤ Unë e emërova butonin Kujtesa nga numri dhjetor .
Pas kësaj, klikoni në Butoni për të ekzekutuar kodin VBA .
Prandaj, do të merrni mbeturën për numrin dhjetor .
Por ka një problem që VBA rrumbullakos dhjetore . Këtu, rezultati duhej të ishte 2.25 por VBA Mod e rrumbullakosi atë në 2 .
Mos harroni nëse ka dhjetëshe/ pika lundruese është më e madhe se 0.5 në VBA Mod atëherë do të rrumbullakohet lart në vlerën e numrit të plotë tjetër.
Nëse është më pak se 0.5 në VBA Mod , atëherë do të rrumbullakohet lart në vlerën e numrit të plotë ekzistues.
Lexo Më shumë: Si të përdorni funksionin VBA Int në Excel ( 3 shembuj)
Lexime të ngjashme:
- Si të përdorni funksionin IsNull në Excel VBA (5Shembuj)
- Përdorni funksionin VBA Str në Excel (4 shembuj)
- Si të përdorni funksionin e ndërprerës VBA (6 shembuj të përshtatshëm)
- Përdorni funksionin VBA Len në Excel (4 shembuj)
- Si të hiqni dublikatat në fletën Excel (7 metoda)
6. Përdorimi i VBA Mod When Divisor & Numri janë të dy dhjetorë
Nëse pjesëtuesi dhe numri janë të dy në llojin decimal/float , atëherë mund të përdorni gjithashtu Operatori VBA Mod.
Për të hapur redaktorin VBA , ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Moduli .
1638
Këtu, në nënprocedurën Decimal_Both_Divisor_Number, Unë deklarova variablin n si Numër i plotë dhe e përdori atë për të mbajtur vlerën e kthyer të operatorit Mod .
Më pas, përdori referencën e qelizës B5 si numri 1 dhe C5 si numri2 (pjesëtuesi)
Më pas përdori MsgBox për të treguar mbeturën .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur butonin , ndiq hapat e shpjeguar në seksionin 1.
➤ Unë e emërova butonin Merr Kujtesa nga When Divisor & Numri dhjetor .
Pas kësaj, klikoni në butonin për të ekzekutuar kodin VBA .
Prandaj, do të merrni mbetja për të dy numrat pjesëtues dhjetor dhe .
Por ka një problem që VBA rrumbullakos dhjetore . Këtu, rezultati duhej të ishte 1.75 por VBA Mod e rrumbullakosi atë në 2 .
Përmbajtje të ngjashme: Funksioni VBA EXP në Excel (5 shembuj)
7. VBA Mod për të rrumbullakosur numrin dhjetor më të madh se 0.5
Këtu, unë do t'ju tregoj se si funksionon përmbledhja lart në VBA Mod .
Për t'ju demonstruar problemin e pikës dhjetëshe , fillimisht do të llogaris mbetja duke përdorur funksionin MOD Excel.
Në qelizën D4 , shkruani formulën e mëposhtme,
=MOD(B6, C6) Këtu, kam përdorur B6 si numrin C6 si pjesëtues .
Pastaj, shtypni ENTER për të marrë mbetjen dhe do të merrni te
Tani, le të llogarisim përmes VBA Mod , për të hapur redaktorin VBA ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
3833
Këtu, në nënprocedurën Decimal_Both_Divisor_Number, Unë deklarova variablin e n si Numër i plotë dhe e përdori atë për të mbajtur vlerën e kthyer të operatorit Mod .
Më pas, përdori referencën e qelizës B6 si numri1 dhe C6 si numri2 (pjesëtues)
Më pas përdori MsgBox për të treguar mbetja .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur butonin , ndiqni tëhapat e shpjeguar në seksionin 1.
➤ Unë e emërova butonin Numri dhjetor i rrumbullakosur .
Pas kësaj, klikoni në butonin për të ekzekutuar Kodi VBA .
Prandaj, do të merrni mbeturin për referencën e qelizës së përdorur.
Shikoni me kujdes në të mbetura që VBA Mod u kthye. Funksioni MOD për të njëjtat vlera u kthye 7.7 por operatori VBA Mod ktheu 0 . Ndërsa VBA rrumbullakosi vlerat.
Lexo më shumë: Si të përdorni funksionin e rrumbullakët VBA në Excel (6 përdorime të shpejta)
8. Përcaktoni numrin çift ose tek
VBA Mod përcakton gjithashtu numrin Çift ose Tek nga një interval i caktuar.
Për të hapur redaktuesin VBA , ndiqni hapat e shpjeguar në seksionin 1.
Më pas, shkruani kodin e mëposhtëm në Modulin .
9508
Këtu, në nënprocedurën Determine_Even_Or_Odd, Unë deklarova variablin n si Numër i plotë .
Më pas, përdora një cikli For ku mbajta vlerën që deklarova përmes referencës së qelizës.
Më pas, përdora një IF funksioni ku kam vendosur kriteret si n Mod 2 = 0 nëse vlera është e vërtetë atëherë ai do të kthejë një deklaratë Çift përndryshe Tek .
Më pas përdori MsgBox për të shfaqur deklaratat .
Tani, Ruaj kodin dhe kthehu te fleta e punës.
Për të futur butonin , ndiqni hapat
