Portāls VBA Mod nav funkcija, savukārt MOD ir funkcija Excel darblapā. VBA Mod ir operators, kas dala divus skaitļus un atdod skaitli atlikums . Operators Mod ir saīsinājums no MODULO ko izmanto matemātikas operācijās. Mod operatori Apkārt uz augšu . ar peldošo komata skaitli .

Šajā rakstā es jums parādīšu dažādus Excel izmantošanas piemērus. VBA Mod operators.

Lejupielādēt praksē

VBA Mod funkcijas pamati: kopsavilkums un amp; sintakse

Kopsavilkums

Portāls VBA Mod operators sadala divus skaitļus un atdod atlikums . Ja viens no tiem ir pazīstams kā dalītājs cits ir numurs . Mod operators sadala numurs ar dalītājs .

Sintakse

Skaitlis1 Mod Skaitlis2 (dalītājs)

Argumenti

Atgrieztā vērtība

Portāls VBA Mod operators atgriež atlikums .

Versija

Portāls VBA Mod operators ir pieejams programmā Excel 2000 un jaunākās versijās.

Es izmantoju Excel Microsoft 365 lai īstenotu šos piemērus.

9 piemēri VBA Mod funkcijas izmantošanai programmā Excel

1. Izmantojot VBA moduli, lai iegūtu atlikumu

Ja vēlaties, varat saņemt atlikums izmantojot VBA Mod operators.

Ļaujiet man jums izskaidrot procedūru,

Lai sāktu, atveriet Izstrādātājs cilne>> atlasiet Visual Basic .

➤ Tagad tiek atvērts jauns logs Microsoft Visual Basic lietojumprogrammām parādīsies.

Tālāk, no Ievietot >> atlasīt Modulis

Tagad ievadiet šādu kodu Modulis .

 Sub Get_Reminder() Dim n As Integer n = 29 Mod 3 MsgBox " 29 Mod 3 ir " & amp; n End Sub 

Šeit, šajā Get_Reminder apakšprocedūra, es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Atkal atveriet Izstrādātājs cilne>> no Ievietot >> atlasīt Poga no Veidlapu vadības elementi

Tagad, Velciet . Poga lai novietotu to vietā, kur vēlaties norādīt uzrakstu.

Pēc tam varat piešķirt pogai nosaukumu.

➤ Es to nosaucu Saņemt atgādinājumu .

⏩ Tagad, klikšķiniet ar peles labo pogu konteksta izvēlni Piešķirt Makro parādīsies.

No turienes izvēlieties Piešķirt makro .

⏩ A dialoglodziņš no Piešķirt makro parādīsies.

Pēc tam atlasiet Makro nosaukums un Makro .

⏩ Es izvēlējos Get_Reminder no Makro nosaukums un izvēlējās VBA Mod.xlsm no Makro .

Visbeidzot noklikšķiniet uz LABI .

Pēc tam noklikšķiniet uz pogas ar nosaukumu Get_Reminder .

Tādējādi tas parādīs msg lodziņš ar atlikums .

Jūs varat to darīt visiem skaitļi lai iegūtu atlikums .

Lasīt vairāk: VBA formāta funkcija programmā Excel (8 izmantošanas veidi ar piemēriem)

2. Šūnas atsauces izmantošana VBA Mod, lai iegūtu atlikumu

Izmantojot Atsauce uz šūnām no Excel lapas var iegūt atlikums no VBA Mod .

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Reminder_Using_CellReference() Dim n As Integer n = Range("B4").Value Mod Range("C4").Value MsgBox Range("B4").Value & " Mod " & Range("C4").Value & " is " & n End Sub 

Šeit, in Reminder_Using_CellReference , es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tālāk izmantojiet šūnas atsauci B4 kā numurs1 un C4 kā numurs2 (dalītājs)

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga , izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Atsauce uz šūnām .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums izmantotās šūnas atsaucei.

Saistīts saturs: Kā atgriezt vērtību VBA funkcijā (gan masīva, gan ne-masīva vērtības)

3. Izmantojot VBA Mod, lai no negatīva skaitļa iegūtu atlikumu

Portāls VBA Mod atbalsta arī negatīvs skaitļi aprēķinot atlikums .

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Reminder_From_NegativeNumber() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value & " Mod " & Range("C5").Value & " is " & n End Sub 

Šeit, in Reminder_From_NegativeNumber, Es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tālāk izmantojiet šūnas atsauci B5 kā numurs1 un C5 kā numurs2 (dalītājs)

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga, izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Atgādinājums no negatīvā skaitļa .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums par negatīvs skaitlis .

Lasīt vairāk: Kā lietot VBA IsNumeric funkciju (9 piemēri)

4. VBA moduļa izmantošana, lai iegūtu atlikumu šūnā

Tā vietā, lai parādītu atlikums izmantojot msg kaste to var ievietot šūnā, izmantojot VBA MOD funkcija.

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Reminder_in_Cell() ActiveCell.FormulaR1C1 = "=MOD(RC[-2],RC[-1])" Range("D4").Select End Sub 

Šeit, in s ub-procedūra Reminder_in_Cell , es izmantoju ActiveCell.FormulaR1C1 formāts, lai iegūtu pozīciju ActiveCell .

Pēc tam izmantojiet MOD funkciju, lai iegūtu atlikums .

arī, izmantoja Atlasiet metode.

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga un piešķirt . VBA kodu veiciet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Atgādinājums šūnā .

Tālāk atlasiet D4 šūna.

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Rezultātā jūs iegūsiet atlikums atlasītajā šūnā.

Veicot šo pašu procesu, jūs iegūsiet atlikums pārējiem skaitļiem.

Lasīt vairāk: Kā lietot MsgBox funkciju programmā Excel VBA (pilnīga vadlīnija)

5. Izmantojot VBA Mod ar veselskaitļa dalītāju & amp; Float skaitlis

Ja jūsu dalītājs ir vesels skaitlis tips, bet jūsu numurs ir pludiņš tips, tad varat izmantot VBA Mod operators.

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Reminder_From_Decimal_Number() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value & " Mod " & Range("C5").Value & " is " & n End Sub 

Šajā gadījumā R eminder_From_Decimal_Number apakšprocedūra, Es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tālāk izmantojiet šūnas atsauci B5 kā numurs1 un C5 kā numurs2 (dalītājs)

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga , izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Atgādinājums no decimālskaitļa .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums par decimālskaitlis .

Bet ir problēma, ka VBA noapaļo . decimālskaitļi . Šeit bija paredzēts, ka rezultāts būs 2.25 bet VBA Mod noapaļoja to līdz 2 .

Atcerieties, ja kāds decimālskaitlis/plūstošais punkts ir lielāks par 0.5 in the VBA Mod tad tas būs noapaļots uz augšu uz nākamo veselā skaitļa vērtību.

Ja tas ir mazāks par 0.5 in the VBA Mod , tad tas būs noapaļots uz augšu uz esošo veselā skaitļa vērtību.

Lasīt vairāk: Kā lietot VBA Int funkciju programmā Excel ( 3 piemēri)

Līdzīgi lasījumi:

• Kā lietot IsNull funkciju programmā Excel VBA (5 piemēri)
• VBA Str funkcijas izmantošana programmā Excel (4 piemēri)
• Kā lietot VBA pārslēgšanas funkciju (6 piemēroti piemēri)
• VBA Len funkcijas izmantošana programmā Excel (4 piemēri)
• Kā noņemt dubultniekus Excel lapā (7 metodes)

6. VBA Mod izmantošana, ja dalītājs & amp; skaitlis ir decimāldaļskaitļi

Ja jūsu dalītājs un numurs abi ir decimal/float tips, tad varat izmantot arī VBA Mod operators.

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Decimal_Both_Divisor_Number() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value & " Mod " & Range("C5").Value & " is " & n End Sub 

Šeit, šajā apakšprocedūra Decimal_Both_Divisor_Number, Es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tālāk izmantojiet šūnas atsauci B5 kā numurs1 un C5 kā numurs2 (dalītājs)

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga, izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Iegūt Atgādinājums no Kad dalītājs & amp; Decimālskaitlis decimāldaļskaitlis .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums abiem decimālais dalītājs un skaitļi .

Bet ir problēma, ka VBA noapaļo decimālskaitļi . Šeit bija paredzēts, ka rezultāts būs 1.75 bet VBA Mod noapaļoja to līdz 2 .

Saistīts saturs: VBA EXP funkcija programmā Excel (5 piemēri)

7. VBA Mod, lai noapaļotu decimālskaitli, kas lielāks par 0,5

Šeit es jums parādīšu, kā Apkārt uz augšu darbojas VBA Mod .

Lai demonstrētu jums decimālskaitlis punktu problēma, vispirms es aprēķināšu atlikums izmantojot Excel MOD funkcija.

Šūnā D4 , ievadiet šādu formulu,

Šeit es izmantoju B6 kā numurs C6 kā dalītājs .

Pēc tam nospiediet IEVADIET lai iegūtu atlikums un iegūsiet atlikums kas būs 7.7 .

Tagad aprēķināsim VBA Mod , lai atvērtu VBA redaktors veiciet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub RoundsUp_Number() Dim n As Integer n = Range("B6").Value Mod Range("C6").Value MsgBox Range("B6").Value & " Mod " & Range("C6").Value & " is " & n End Sub 

Šeit, šajā apakšprocedūra Decimal_Both_Divisor_Number, Es deklarēju mainīgo n kā Vesels skaitlis un izmantoja to, lai saglabātu atgrieztā vērtība Mod operators.

Tālāk izmantojiet šūnas atsauci B6 kā numurs1 un C6 kā numurs2 (dalītājs)

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga , izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu RoundsUp Decimālskaitlis .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums izmantotās šūnas atsaucei.

Uzmanīgi aplūkojiet atlikums ka VBA Mod atgriezās. MOD funkcija, lai iegūtu tās pašas vērtības 7.7 bet VBA Mod atgrieztais operators 0 . Tā kā VBA noapaļoja vērtības.

Lasīt vairāk: Kā lietot VBA apaļo funkciju programmā Excel (6 ātri lietojumi)

8. Noteikt pāra vai nepāra skaitli

Portāls VBA Mod nosaka arī Pat vai Nepāra skaitlis no dotā diapazona.

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Determine_Even_Or_Odd() Dim n As Integer For n = Range("B4").Value To Range("B8").Value If n Mod 2 = 0 Then MsgBox n & " ir pāra skaitlis!" Else MsgBox n & " ir nepāra skaitlis!" End If Next n End Sub 

Šeit, šajā apakšprocedūra Determine_Even_Or_Odd, Es deklarēju mainīgo n kā Vesels skaitlis .

Pēc tam es izmantoju Vietnei cilpa, kurā es saglabāju vērtību, ko deklarēju, izmantojot šūnas atsauci.

Pēc tam es izmantoju IF funkcija, kurā es iestatīju šādus kritērijus n Mod 2 = 0 ja vērtība ir true, tad tiks atgriezts Pat paziņojums citādi Nepāra .

Tad izmantoja MsgBox lai parādītu paziņojumi .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga , izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Pāra vai nepāra .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tādējādi jūs uzzināsiet, kura vērtība ir Pat un kurš no tiem ir Nepāra .

Šeit, 1 ir Nepāra numurs.

Šeit, 2 ir Pat numurs.

Lasīt vairāk: VBA If - Then - Else paziņojums programmā Excel (4 piemēri)

9. Šūnu diapazona izmantošana VBA Mod, lai iegūtu atlikumu

Varat arī izmantot šūnu diapazons lai iegūtu atlikums izmantojot VBA Mod .

Lai atvērtu VBA redaktoru, izpildiet 1. sadaļā aprakstītās darbības.

Pēc tam ierakstiet šādu kodu Modulis .

 Sub Get_Reminder_UsingVBA() Dim n As Integer For n = 4 To 9 MsgBox Cells(n, 2).Value Mod Cells(n, 3) Next n End Sub 

Šeit, šajā Get_Reminder_UsingVBA apakšprocedūra, Es deklarēju mainīgo n kā Vesels skaitlis .

Pēc tam es izmantoju Vietnei cilpa, kurā es saglabāju vērtību, ko es deklarēju, izmantojot šūnu atsauci. Cilpa darbosies rindiņu vērtībām. 4 uz 9 .

Tad izmantoja MsgBox lai parādītu atlikums .

Tagad, Saglabāt kodu un atgriezieties darblapā.

Lai ievietotu Poga , izpildiet 1. sadaļā aprakstītās darbības.

➤ Es nosaucu pogu Dinamiskā šūnas atsauce .

Pēc tam noklikšķiniet uz Poga lai palaistu VBA kods.

Tāpēc jūs saņemsiet atlikums visām izmantotajām vērtībām pa vienai.

Pirmais ir paredzēts numurs 29 kur dalītājs ir 3 .

Otrais ir paredzēts numurs -47 kur dalītājs ir 5 .

Cilpa darbosies, līdz sasniegs rindu 9 . Piektais ir paredzēts numurs 59 kur dalītājs ir . 6 .

Saistīts saturs: Kā lietot VBA nejaušināšanas funkciju programmā Excel (5 piemēri)

Atšķirība starp Excel MOD & amp; VBA Mod

Lai gan vairumā gadījumu atgrieztās vērtības ir vienādas, ja MOD funkciju un VBA Mod Tomēr dažos gadījumos rezultāts atšķiras viens no otra. Ļaujiet man parādīt, kāda ir atšķirība starp tiem.

Lietas, kas jāatceras

🔺 Operators noapaļos decimālskaitlis/plūstošais punkti.

Prakses sadaļa

Darba burtnīcā esmu pievienojis prakses lapu, kurā varat vingrināties ar šiem izskaidrotajiem piemēriem.

Secinājums

Šajā rakstā esmu parādījis 9 Excel piemērus. VBA Mod operators. Es arī centos aptvert iemeslus, lai bieži parādītu kļūdas. Kopā ar lietām, kas jums būs nepieciešams atcerēties, izmantojot operatoru. Jūtieties brīvi komentēt zemāk par jebkāda veida vaicājumu un ieteikumus.