VBA Mod funksiya deyil, MOD isə Excel iş vərəqindəki funksiyadır. VBA Mod iki ədədi bölən və qalanı qaytaran operatordur. Mod operatoru riyaziyyat əməliyyatlarında istifadə olunan MODULO -nin qısa formasıdır. Mod operatorları toplayır üzən nöqtəni .

Bu məqalədə mən göstərəcəyəm Excel VBA Mod operatorunun istifadəsinə dair müxtəlif nümunələr.

Təcrübə üçün endirin

VBA Mod Funksiyasının Əsasları: Xülasə & Sintaksis

Xülasə

VBA Mod operatoru iki ədədi bölür və qalanı qaytarır. Biri bölən digəri ədəd kimi tanınır. Mod operatoru ədəd -ni bölən ilə bölür.

Sintaksis

Number1 Mod Number2 (Divisor)

Arqumentlər

Qayıt dəyəri

VBA Mod operatoru qalığı qaytarır .

Versiya

VBA Mod operatoru Excel 2000 və sonrakı versiyalar üçün əlçatandır.

Mən Excel Microsoft 365 istifadə edirəm1-ci bölmədə izah edilmişdir.

➤ Mən düyməni Cüt və ya Tək adlandırdım.

Bundan sonra düyməsinə klikləyin>VBA kodu.

Buna görə də siz hansı dəyərin Cüt və hansının Tək olduğunu öyrənəcəksiniz.

Burada, 1 Tək rəqəmdir.

Burada 2 Cüt nömrə.

Ətraflı oxuyun: VBA If – onda – Excel-də Else ifadəsi (4 Nümunə)

9. Qalanı əldə etmək üçün VBA Modunda Hüceyrə Aralığından istifadə

Siz həmçinin qalıq əldə etmək üçün xana diapazonundan istifadə edə bilərsiniz. VBA Mod .

VBA redaktorunu açmaq üçün bölmə 1-də izah edilən addımları yerinə yetirin.

Sonra aşağıdakı kodu daxil edin Module .

2099

Burada Get_Reminder_UsingVBA alt prosedurunda Mən n dəyişənini elan etdim Tam kimi.

Sonra mən For dövrəsindən istifadə etdim, burada xana arayışı vasitəsilə elan etdiyim dəyəri saxladım. Döngü 4 -dən 9 -ə qədər olan sətirlər üçün işləyəcək.

Sonra qalanı<2 göstərmək üçün MsgBox dən istifadə edin>.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni daxil etmək üçün 1-ci bölmədə izah edilən addımları yerinə yetirin. .

➤ Mən düyməni Dinamik Hüceyrə Referansı adlandırdım.

Bundan sonra VBA<2-ni işə salmaq üçün Düyməni klikləyin> kodu.

Buna görə də, istifadə olunan bütün dəyərlər üçün qalan alacaqsınız.bir.

Birincisi, bölən -in 3 olduğu rəqəm 29 üçündür.

İkincisi ədəd -47 burada bölən 5 üçün .

Dövrə 9 sırasına çatana qədər işləyəcək. Beşincisi, bölən -in 6 olduğu rəqəm 59 üçündür.

Əlaqədar Məzmun: Excel-də VBA Randomize Funksiyasından Necə İstifadə Edilir (5 Nümunə)

Excel MOD və amp Arasındakı Fərq; VBA Mod

Baxmayaraq ki, əksər hallarda qaytarılan dəyərlər MOD funksiyası və VBA Mod operatoru üçün eyni olsa da, bəzi hallarda nəticə bir-birindən fərqlənir. İcazə verin sizə onların arasındakı fərqi göstərim.

Yadda saxlamalı olanlar

🔺 Operator onluq/üzən nöqtələrini yuvarlaqlaşdıracaq.

Təcrübə Bölməsi

Mən bu izah edilmiş nümunələri tətbiq etmək üçün iş dəftərində təcrübə vərəqini təqdim etdim.

Nəticə

Bu məqalədə mən Excel VBA Mod operatorunun 9 nümunəsini göstərdim. Mən də səhvləri tez-tez göstərmək üçün səbəbləri əhatə etməyə çalışdım. Operatordan istifadə edərkən yadda saxlamalı olduğunuz şeylərlə yanaşı. İstənilən növ sorğu və təkliflər üçün aşağıda şərh yazmaqdan çekinmeyin.

Excel-də VBA Mod funksiyasından istifadənin 9 nümunəsi

1. Qalanı əldə etmək üçün VBA Modundan istifadə

İstəsəniz, VBA Mod operatorundan istifadə edərək qalan .

İcazə verin sizə proseduru izah edim,

Başlamaq üçün Tərtibatçını açın. tab >> Visual Basic seçin.

➤ İndi Microsoft Visual Basic for Applications yeni pəncərəsi görünəcək.

Sonrakı, Daxil et >> seçin Module

İndi Module aşağıdakı kodu daxil edin.

1441

Burada, Get_Reminder alt prosedurunda mən n dəyişənini tam kimi elan etdim və ondan <1-in qaytarılmış dəyərini saxlamaq üçün istifadə etdim>Mod operator.

Sonra qalanı göstərmək üçün MsgBox -dən istifadə etdi.

İndi Saxla kodu daxil edin və iş vərəqinə qayıdın.

Yenə də Developer tab >> Daxil et >> Forma İdarəetmələri

-dən Düyməni seçin.İndi Düyməni -a sürükləyin onu başlıq vermək istədiyiniz yerə qoyun.

Sonra siz düyməyə ad verə bilərsiniz.

➤ Mən onu Xatırlatma Alın adlandırdım.

⏩ İndi siçanın üzərinə sağ klikləyin Təyin et Makro kontekst menyusu görünəcək.

Oradan Makro Təyin et seçin.

⏩ Makro Təyin et -dən dialoq qutusu görünəcək .

Sonra, Makro adını və Makroları -də seçin.

⏩ Mən Makro adından Xatırlatma Alın seçdim və <1-i seçdim>VBA Mod.xlsm Makrolar -dən.

Nəhayət, OK üzərinə klikləyin.

Sonra Xatırladıcı_Al adlı düyməyə klikləyin.

Beləliklə, qalıq ilə mesaj qutusu göstərəcək.

Bunu bütün rəqəmlər üçün qalan əldə edə bilərsiniz.

Ətraflı oxuyun: Excel-də VBA Format Funksiyası (8 Nümunələrlə İstifadə)

2. Qalanı əldə etmək üçün VBA Modunda Hüceyrə Referansından istifadə

Excel vərəqindən Cell Reference istifadə edərək, VBA Mod -dan qalan əldə edə bilərsiniz.

Açıq VBA redaktoru, 1-ci bölmədə izah edilən addımları yerinə yetirin.

Sonra, Module aşağıdakı kodu daxil edin.

5833

Burada, Reminder_Using_CellReference -də mən n dəyişənini tam kimi elan etdim və ondan Mod <-nin qaytarılmış dəyərini saxlamaq üçün istifadə etdim. 2>operator.

Növbəti , xana istinadını B4 rəqəm1 kimi və C4 -ni 2-ci nömrə (bölən) kimi

Sonra <1 istifadə etdi>MsgBox qalanı göstərmək üçün.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Düymə , 1-ci bölmədə izah edilən addımları yerinə yetirin.

➤ Mən düyməni Hüceyrə İstinadı adlandırdım.

Bundan sonra üzərinə klikləyin. VBA -ni işə salmaq üçün düyməsikod.

Ona görə də istifadə olunan xana istinadı üçün qalan alacaqsınız.

Əlaqədar Məzmun: Necə VBA Funksiyasında Dəyəri qaytarın (həm massiv, həm də massiv olmayan dəyərlər)

3. Mənfi nömrədən qalıq əldə etmək üçün VBA Modundan istifadə

VBA Mod qalan -ı hesablayarkən mənfi rəqəmləri də dəstəkləyir.

VBA <2-ni açmaq üçün>redaktor, bölmə 1-də izah edilən addımları yerinə yetirin.

Sonra, Module aşağıdakı kodu daxil edin.

2700

Burada , Reminder_From_NegativeNumber, -də mən n dəyişənini tam kimi elan etdim və ondan Mod operatorunun qaytarılmış dəyərini saxlamaq üçün istifadə etdim.

Sonra, B5 xana istinadını rəqəm1 kimi və C5 rəqəm2 (bölən)

kimi istifadə etdi. Sonra qalanı göstərmək üçün MsgBox -dən istifadə edin.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni daxil etmək üçün 1-ci bölmədə izah edilən addımları yerinə yetirin.

➤ e düyməsi Mənfi Nömrədən Xatırlatma .

Bundan sonra VBA kodunu işə salmaq üçün Düymə üzərinə klikləyin.

Beləliklə, siz mənfi rəqəm üçün qalan alacaqsınız.

Ətraflı oxuyun: VBA IsNumeric Funksiyasından Necə İstifadə Edilir (9 Nümunə)

4. Hüceyrədə Qalıq Almaq üçün VBA Modundan istifadə

qalığını göstərmək əvəzinə vasitəsilə msg qutusu siz VBA MOD funksiyasından istifadə etməklə onu xanaya yerləşdirə bilərsiniz.

VBA -ni açmaq üçün redaktor, bölmə 1-də izah edilən addımları yerinə yetirin.

Sonra, Module aşağıdakı kodu daxil edin.

4817

Burada, s ub-procedure Reminder_in_Cell -də ActiveCell mövqeyini əldə etmək üçün ActiveCell.FormulaR1C1 formatından istifadə etdim.

Sonra, qalan əldə etmək üçün MOD funksiyasından istifadə edin.

Həmçinin, Seçin metodundan istifadə edin.

İndi , kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni və təyin daxil etmək üçün VBA kodu 1-ci bölmədə izah edilən addımları yerinə yetirin.

➤ Mən düyməni Xatırda adlandırdım.

Sonra, D4 xanasını seçin.

Sonra VBA kodunu işə salmaq üçün düyməsinə klikləyin.

Nəticədə, siz əldə edəcəksiniz seçilmiş xanada qalan .

Eyni prosesi izləməklə, qalan hissəsi üçün qalıq əldə edəcəksiniz. rəqəmlər.

Ətraflı oxuyun: Excel VBA-da MsgBox funksiyasından necə istifadə etməli (Tam Təlimat)

5. Tam Bölən və amp; VBA Modundan istifadə; Float Nömrə

Əgər böləniniz tam tiplidirsə, lakin nömrəniz float -dədir yazın, sonra VBA Mod operatorundan istifadə edə bilərsiniz.

VBA redaktorunu açmaq üçün bölmədə izah edilən addımları yerinə yetirin.1.

Sonra, Module aşağıdakı kodu yazın.

9234

Burada, R eminder_From_Decimal_Number alt hissəsində -prosedur, Mən n dəyişənini Tam kimi elan etdim və ondan Mod operatorunun qaytarılmış dəyərini saxlamaq üçün istifadə etdim.

Sonra B5 xana istinadını rəqəm1 kimi və C5 -ni rəqəm2 (bölən)

Sonra MsgBox qalanı göstərmək üçün.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Daxil etmək üçün Düymə , 1-ci bölmədə izah edilən addımları yerinə yetirin.

➤ Mən düyməni Ondalıq Nömrədən Xatırlatma adlandırdım.

Bundan sonra, VBA kodunu işə salmaq üçün düyməsinə basın.

Ona görə də siz onluq ədəd üçün qalan alacaqsınız.

Ancaq problem var ki, VBA onluq -i yuvarlaqlaşdırır. Burada nəticənin 2.25 olması lazım idi, lakin VBA Mod onu 2 -ə yuvarlaqlaşdırdı.

Yadda saxlayın ki, onluq/ üzən nöqtəsi VBA Modunda 0,5 dən böyükdürsə, o zaman növbəti tam dəyərə yuxarı yuvarlaqlaşdırılacaq .

Əgər VBA Mod -də 0,5 dən azdır, onda mövcud tam dəyərə yuxarı yuvarlaqlaşdırılacaq .

Oxuyun Ətraflı: Excel-də VBA Int funksiyasından necə istifadə etməli (3 Nümunə)

Oxşar oxunuşlar:

• Excel VBA-da IsNull funksiyasından necə istifadə etməli (5Nümunələr)
• Excel-də VBA Str funksiyasından istifadə edin (4 Nümunə)
• VBA keçid funksiyasından necə istifadə etməli (6 uyğun nümunə)
• Excel-də VBA Len funksiyasından istifadə edin (4 Nümunə)
• Excel Vərəqində Dublikatları Necə Silmək olar (7 Metod)

6. Bölmə zamanı VBA Modundan istifadə etmək; Ədəd Hər İki Ondalıqdır

Əgər sizin bölən və ədəd hər ikisi onluq/float tipindədirsə, onda siz həmçinin istifadə edə bilərsiniz VBA Mod operatoru.

VBA redaktorunu açmaq üçün bölmə 1-də izah edilən addımları yerinə yetirin.

Sonra aşağıdakı kodu daxil edin Module .

1760

Burada, alt prosedurunda Ondalıq_Hər ikisi_Bölən_Number, Mən n dəyişənini elan etdim Tam kimi və ondan Mod operatorunun qaytarılmış dəyərini saxlamaq üçün istifadə etdi.

Sonra, B5 xana istinadını kimi istifadə etdi. number1 və C5 2-ci rəqəm (bölən)

Sonra qalanı göstərmək üçün MsgBox dən istifadə etdi.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni daxil etmək üçün 1-ci bölmədə izah edilən addımları izləyin.

➤ Mən düyməni Get Reminder From When Divisor & Ondalık rəqəm .

Bundan sonra VBA kodunu işə salmaq üçün düyməsinə klikləyin.

Ona görə də qalıq həm onluq bölən , həm də ədədlər üçün.

Lakin belə bir problem var ki, VBA onluq rəqəmini yuvarlaqlaşdırır. Burada nəticə 1.75 olmalı idi, lakin VBA Mod onu 2 -ə yuvarlaqlaşdırdı.

Əlaqədar Məzmun: Excel-də VBA EXP funksiyası (5 Nümunə)

7. 0,5-dən böyük Ondalıq Ədədi Yığırmaq üçün VBA Mod

Burada mən edəcəyəm toplama nin VBA Mod -də necə işlədiyini sizə göstərin.

Sizə onluq nöqtə məsələsini nümayiş etdirmək üçün əvvəlcə mən hesablayacağam. Excel MOD funksiyasından istifadə edərək qalan .

D4 xanasına aşağıdakı düsturu yazın,

Burada mən B6 bölən kimi C6 rəqəmindən istifadə etdim.

Sonra, qalıqı almaq üçün ENTER düyməsini basın və siz 7.7 olacaq qalan alacaqsınız.

İndi VBA Mod vasitəsilə hesablayaq, VBA redaktorunu açmaq üçün bölmə 1-də izah edilən addımları izləyin.

Sonra, Module aşağıdakı kodu daxil edin.

8612

Burada, Ondalıq_Hər ikisi_Bölən_Number alt prosedurunda, Mən elan etdim dəyişən e n Tam kimi və onu Mod operatorunun qaytarılmış dəyərini saxlamaq üçün istifadə etdi.

Sonra, xana istinadından istifadə etdi. B6 rəqəm1 və C6 rəqəm2 (bölən) kimi

Sonra MsgBox -ni göstərmək üçün istifadə etdi. qalan .

İndi kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni daxil etmək üçün aşağıdakıları edin: the1-ci bölmədə izah edilən addımlar.

➤ Mən düyməni RoundsUp Ondalık Nömrə adlandırdım.

Bundan sonra Düyməni klikləyin. 1>VBA kodu.

Buna görə də istifadə olunan xana istinadı üçün qalan alacaqsınız.

Diqqətlə baxın. VBA Modunun qaytardığı qalan . Eyni dəyərlər üçün MOD funksiyası 7.7 qaytardı, lakin VBA Mod operatoru 0 qaytardı. VBA dəyərləri yuvarlaqlaşdırdığı üçün.

Ətraflı oxuyun: Excel-də VBA Round Funksiyasından Necə İstifadə Edilir (6 Sürətli İstifadə)

8. Cüt və ya Tək Nömrəni Müəyyən edin

VBA Mod həmçinin Cüt və ya Tək ədədini təyin edir verilmiş diapazondan.

VBA redaktorunu açmaq üçün bölmə 1-də izah edilən addımları yerinə yetirin.

Sonra Modula .

2260

Burada Determine_Even_Or_Odd alt prosedurunda Mən n dəyişənini tam ədəd elan etdim .

Sonra mən For döngüdən istifadə etdim, burada xana arayışı vasitəsilə elan etdiyim dəyəri saxladım.

Sonra, mən ​​IF istifadə etdim. kriteriyaları n Mod 2 = 0 kimi təyin etdiyim funksiya, əgər dəyər doğrudursa, o zaman Cüt ifadəsini qaytaracaq, əks halda Tək .

Sonra İfadələri göstərmək üçün MsgBox -dən istifadə edin.

İndi Kodu yadda saxlayın və iş vərəqinə qayıdın.

Düyməni daxil etmək üçün addımları yerinə yetirin