Spletna stran VBA Mod ni funkcija, medtem ko MOD je funkcija v delovnem listu programa Excel. VBA Mod je operator, ki deli dve števili in vrne preostanek . Upravljavec Mod je kratka oblika besede MODULO ki se uporablja pri matematičnih operacijah. Mod upravljavci zaokrožitev . s plavajočo vejico .

V tem članku vam bom prikazal različne primere uporabe programa Excel VBA Mod upravljavec.

Prenesi v prakso

Osnove VBA Mod Funkcija: povzetek & amp; sintaksa

Povzetek

Spletna stran VBA Mod deli dve števili in vrne preostanek . Kje je znan kot delitelj drugi je številka . Mod operator deli številka z delitelj .

Sintaksa

Številka1 Mod Številka2 (delitelj)

Argumenti

Vrnjena vrednost

Spletna stran VBA Mod operater vrne preostanek .

Različica

Spletna stran VBA Mod je na voljo za Excel 2000 in novejše različice.

Uporabljam Excel Microsoft 365 za izvajanje teh primerov.

9 primerov uporabe funkcije VBA Mod v Excelu

1. Uporaba modula VBA za pridobitev preostanka

Če želite, lahko dobite preostanek z uporabo VBA Mod upravljavec.

Naj vam razložim postopek,

Za začetek odprite Razvijalec zavihek>> izberite Visual Basic .

➤ Zdaj se odpre novo okno Microsoft Visual Basic za aplikacije se prikaže.

Nato iz Vstavite >> izberite Modul

Zdaj vnesite naslednjo kodo v Modul .

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

Tukaj, v Get_Reminder podproces, sem deklariral spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Ponovno odprite Razvijalec zavihek>> od Vstavite >> izberite Gumb s spletne strani Upravljalni elementi obrazca

Zdaj, Drag . Gumb in ga postavite na mesto, kjer želite podnapis.

Nato lahko gumbu dodelite ime.

➤ Imenoval sem ga Pridobite opomnik .

⏩ Zdaj, desni klik na miško kontekstni meni Dodelitev Makro se prikaže.

Od tam izberite Dodelitev makra .

⏩ A pogovorno okno na spletnem mestu Dodelitev makra se prikaže.

Nato izberite Ime makra in . Makroji v .

⏩ Izbral sem Get_Reminder iz Ime makra in izbrali VBA Mod.xlsm s spletne strani Makroji v .

Na koncu kliknite V REDU .

Nato kliknite gumb z imenom Get_Reminder .

Zato bo prikazal polje msg z preostanek .

To lahko storite za vse številke za pridobitev preostanek .

Preberite več: Funkcija VBA Format v Excelu (8 uporab s primeri)

2. Uporaba sklicevanja na celice v modulu VBA za pridobitev preostanka

Z uporabo Sklic na celico iz Excelovega lista, lahko dobite preostanek s spletne strani VBA Mod .

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

Tukaj, v Opomnik_Uporaba_CellReference , sem razglasil spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite referenco celice B4 kot številka1 in . C4 kot število2 (delitelj)

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb , sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Sklic na celico .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za uporabljeno sklicevanje na celico.

Sorodna vsebina: Kako vrniti vrednost v funkciji VBA (vrednosti v polju in vrednosti, ki niso v polju)

3. Uporaba modula VBA za pridobitev ostanka iz negativnega števila

Spletna stran VBA Mod podpira tudi negativni številke med izračunavanjem preostanek .

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

Tukaj, v Reminder_From_NegativeNumber, Deklariral sem spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite referenco celice B5 kot številka1 in . C5 kot število2 (delitelj)

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb, sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Opomnik iz negativnega števila .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za negativno število .

Preberite več: Kako uporabljati funkcijo IsNumeric v programu VBA (9 primerov)

4. Uporaba modula VBA za pridobitev preostanka v celici

Namesto da bi prikazali preostanek prek msg škatla lahko postavite v celico z uporabo MOD VBA funkcijo.

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

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

Tukaj, v s ub-procedura Opomnik_v_celici , sem uporabil ActiveCell.FormulaR1C1 format za pridobitev položaja ActiveCell .

Nato uporabite MOD funkcijo za pridobitev preostanek .

Prav tako uporabljajte Izberite metoda.

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb in . dodelitev . VBA sledite korakom, opisanim v razdelku 1.

➤ Gumb sem poimenoval Opomnik v celici .

Nato izberite D4 celica.

Nato kliknite na Gumb za zagon VBA koda.

Tako boste dobili preostanek v izbrani celici.

Z enakim postopkom boste dobili preostanek za preostale številke.

Preberite več: Kako uporabljati funkcijo MsgBox v programu Excel VBA (popolna navodila)

5. Uporaba modula VBA z deliteljem celega števila & amp; Float Number

V primeru, da vaš delitelj je celo število vendar je vaš številka je v float potem lahko uporabite tip VBA Mod upravljavec.

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

V tem primeru je v območju R eminder_From_Decimal_Number podproces, Deklariral sem spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite referenco celice B5 kot številka1 in . C5 kot število2 (delitelj)

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb , sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Opomnik iz decimalne številke .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za decimalno število .

Vendar je težava, da VBA zaokroži . decimalno V tem primeru naj bi bil rezultat 2.25 vendar je VBA Mod zaokroženo na 2 .

Ne pozabite, če je kateri koli decimalno/plavajoče točka je večja od 0.5 v VBA Mod potem bo zaokroženo navzgor na naslednjo celoštevilsko vrednost.

Če je manjši od 0.5 v VBA Mod , potem bo zaokroženo navzgor na obstoječo celoštevilsko vrednost.

Preberite več: Kako uporabiti funkcijo VBA Int v Excelu ( 3 primeri)

Podobna branja:

• Kako uporabiti funkcijo IsNull v programu Excel VBA (5 primerov)
• Uporaba funkcije VBA Str v Excelu (4 primeri)
• Kako uporabljati funkcijo VBA Switch (6 primernih primerov)
• Uporaba funkcije Len VBA v programu Excel (4 primeri)
• Kako odstraniti dvojnike v Excelovem listu (7 metod)

6. Uporaba modula VBA, ko sta delitelj &; število oba decimalna števila

Če je vaš delitelj in . številka oba sta v decimalno/float lahko uporabite tudi tip VBA Mod upravljavec.

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

Tukaj, v podprocedura Decimal_Both_Divisor_Number, Deklariral sem spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite referenco celice B5 kot številka1 in . C5 kot število2 (delitelj)

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb, sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Pridobite Opomnik iz Ko delitelj & amp; Številka decimalna številka .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za oba desetiški delitelj in . številke .

Vendar je težava, da VBA zaokroži decimalno V tem primeru naj bi bil rezultat 1.75 vendar je VBA Mod zaokroženo na 2 .

Sorodna vsebina: Funkcija VBA EXP v programu Excel (5 primerov)

7. Modus VBA za zaokrožitev decimalne številke, večje od 0,5

Tukaj vam bom pokazal, kako zaokrožitev deluje v VBA Mod .

Da bi vam pokazali decimalno točka problem, najprej bom izračunal preostanek z uporabo programa Excel MOD funkcijo.

V celici D4 , vnesite naslednjo formulo,

Tu sem uporabil B6 kot številka C6 kot delitelj .

Nato pritisnite VSTOP za pridobitev preostanek in dobili boste preostanek ki bo 7.7 .

Zdaj izračunajmo VBA Mod , da odprete VBA sledite korakom, ki so opisani v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

Tukaj, v podprocedura Decimal_Both_Divisor_Number, Deklariral sem spremenljivko n kot Integer in jo uporabil za ohranjanje vrnjene vrednosti Mod upravljavec.

Nato uporabite referenco celice B6 kot številka1 in . C6 kot število2 (delitelj)

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb , sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval RoundsUp Decimalna številka .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za uporabljeno sklicevanje na celico.

Pozorno si oglejte preostanek da je VBA Mod se je vrnil. MOD za iste vrnjene vrednosti 7.7 vendar je VBA Mod vrnjen operater 0 . Kot VBA zaokrožite vrednosti.

Preberite več: Kako uporabiti funkcijo VBA Round v Excelu (6 hitrih uporab)

8. Določite sodo ali liho število

Spletna stran VBA Mod določa tudi Tudi ali Nenavadno število iz danega območja.

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 & " is an even number!" Else MsgBox n & " is an lie number!" End If Next n End Sub 

Tukaj, v podproces Determine_Even_Or_Odd, Deklariral sem spremenljivko n kot Integer .

Nato sem uporabil Za zanko, v kateri sem shranil vrednost, ki sem jo deklariral s sklicevanjem na celico.

Nato sem uporabil IF funkcijo, v kateri sem merila nastavil kot n Mod 2 = 0 če je vrednost true, potem vrne Tudi izjava sicer Nenavadno .

Nato uporabite MsgBox da prikažete izjave .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb , sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Parno ali neparno .

Nato kliknite na Gumb za zagon VBA koda.

Tako boste izvedeli, katera vrednost je Tudi in katera je Nenavadno .

Tukaj, 1 je Nenavadno število.

Tukaj, 2 je Tudi število.

Preberite več: Izjava VBA If - Then - Else v Excelu (4 primeri)

9. Uporaba območja celic v modulu VBA za pridobitev preostanka

Uporabite lahko tudi obseg celic za pridobitev preostanek z uporabo VBA Mod .

Odpiranje VBA sledite korakom, opisanim v razdelku 1.

Nato vnesite naslednjo kodo v Modul .

 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 

Tukaj, v Podproces Get_Reminder_UsingVBA, Deklariral sem spremenljivko n kot Integer .

Nato sem uporabil Za zanko, v kateri sem shranil vrednost, ki sem jo deklariral s sklicevanjem na celico. Zanka bo delovala za vrednosti iz vrstic 4 na . 9 .

Nato uporabite MsgBox da prikažete preostanek .

Zdaj, Shrani kodo in se vrnite na delovni list.

Vstavljanje Gumb , sledite korakom, pojasnjenim v razdelku 1.

➤ Gumb sem poimenoval Dinamično sklicevanje na celice .

Nato kliknite na Gumb za zagon VBA koda.

Zato boste dobili preostanek za vse uporabljene vrednosti zaporedoma.

Prvi je namenjen številka 29 kjer je delitelj je . 3 .

Drugi je za številka -47 kjer je delitelj je . 5 .

Zanka bo delovala, dokler ne doseže vrstice 9 Peti je za številka 59 kjer je delitelj je . 6 .

Sorodna vsebina: Kako uporabiti funkcijo VBA Randomize v Excelu (5 primerov)

Razlika med Excel MOD & amp; VBA Mod

Čeprav so v večini primerov vrnjene vrednosti enake za MOD in funkcijo VBA Mod vendar se rezultati v nekaterih primerih razlikujejo. Naj vam pokažem, kakšna je razlika med njimi.

Stvari, ki si jih je treba zapomniti

🔺 Upravljavec bo zaokrožil decimalno/plavajoče točke.

Oddelek za prakso

V delovnem zvezku sem pripravil vadbeni list, na katerem lahko vadite te razložene primere.

Zaključek

V tem članku sem prikazal 9 primerov programa Excel VBA Mod operator. Poskušal sem tudi zajeti razloge za pogosto prikazovanje napak. Skupaj s stvarmi, ki si jih boste morali zapomniti pri uporabi operatorja. Vabljeni, da komentirate spodaj za vse vrste vprašanj in predlogov.