The VBA Mod nu este o funcție, în timp ce MOD este o funcție dintr-o foaie de calcul Excel. VBA Mod este un operator care împarte două numere și returnează rezultatul rest Operatorul Mod este o formă prescurtată de MODULO care se utilizează în operațiile matematice. Mod operatori rotunjire la virgulă mobilă .

În acest articol, vă voi prezenta diverse exemple de utilizare a Excel VBA Mod operator.

Descărcați pentru a practica

Noțiuni de bază ale funcției VBA Mod: Rezumat & Sintaxa

Rezumat

The VBA Mod împarte două numere și returnează rest . în cazul în care unul este cunoscut ca un divizor altul este un număr . Mod împarte operatorul număr de către divizor .

Sintaxa

Număr1 Mod Număr2 (divizor)

Argumente

Valoarea de returnare

The VBA Mod operatorul returnează un rest .

Versiunea

The VBA Mod este disponibil pentru Excel 2000 și versiunile ulterioare.

Eu folosesc Excel Microsoft 365 pentru a pune în aplicare aceste exemple.

9 Exemple de utilizare a funcției VBA Mod în Excel

1. Utilizarea modului VBA pentru a obține restul

Dacă doriți, puteți obține un rest prin utilizarea VBA Mod operator.

Permiteți-mi să vă explic procedura,

Pentru început, deschideți fereastra Dezvoltator tab>> selectați Visual Basic .

➤ Acum, o nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

În continuare, de la Introduceți >> selectați Modul

Acum, tastați următorul cod în fișierul Modul .

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

Aici, în Get_Reminder subprocedură, am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Din nou, deschideți fereastra Dezvoltator tab>> de la Introduceți >> selectați Buton de la Controale de formular

Acum, Drag la Buton pentru a o plasa în locul în care doriți să dați legenda.

În continuare, puteți da un nume butonului.

➤ I-am pus numele Obțineți memento .

⏩ Acum, click dreapta pe mouse un meniu contextual de Atribuiți Macro va apărea.

De acolo, selectați Atribuire macro .

⏩ A caseta de dialog de Atribuire macro va apărea.

Apoi, selectați Numele macroului și Macros în .

⏩ Am selectat Get_Reminder de la Numele macroului și a selectat VBA Mod.xlsm de la Macros în .

În cele din urmă, faceți clic pe OK .

Apoi, faceți clic pe butonul numit Get_Reminder .

Prin urmare, se va afișa un caseta de mesaje cu rest .

Puteți face acest lucru pentru toate numere pentru a obține rest .

Citește mai mult: Funcția VBA Format în Excel (8 utilizări cu exemple)

2. Utilizarea referinței de celulă în VBA Mod pentru a obține restul

Prin utilizarea Celula de referință din foaia Excel, puteți obține rest de la VBA Mod .

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra 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 

Aici, în Reamintire_Utilizarea_CellReference , am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi, a fost folosită referința celulei B4 ca număr1 și C4 ca număr2 (divizor)

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton , urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Celula de referință .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest pentru referința celulei utilizate.

Conținut asociat: Cum se returnează o valoare în funcția VBA (atât valori din tablouri, cât și valori din afara tablourilor)

3. Utilizarea modului VBA pentru a obține un rest dintr-un număr negativ

The VBA Mod sprijină, de asemenea, și negativ numere în timp ce se calculează rest .

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra 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 

Aici, în Reminder_From_NegativeNumber, Am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi, a fost folosită referința celulei B5 ca număr1 și C5 ca număr2 (divizor)

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton, urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Amintire de la numărul negativ .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest pentru număr negativ .

Citește mai mult: Cum se utilizează funcția VBA IsNumeric (9 exemple)

4. Utilizarea modului VBA pentru a obține restul în celulă

În loc de a arăta rest prin intermediul msg cutie îl puteți plasa într-o celulă folosind funcția VBA MOD funcție.

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra Modul .

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

Aici, în s ub-procedură Reminder_in_Cell , am folosit ActiveCell.FormulaR1C1 pentru a obține poziția ActiveCell .

Apoi, a fost folosit MOD pentru a obține valoarea rest .

De asemenea, a folosit Selectați metoda.

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton și atribuie la VBA cod urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Reminder în celulă .

În continuare, selectați D4 celulă.

Apoi, faceți clic pe butonul Buton pentru a rula VBA cod.

Ca urmare, veți obține rest în celula selectată.

Urmând același proces, veți obține rest pentru restul numerelor.

Citește mai mult: Cum se utilizează funcția MsgBox în Excel VBA (un ghid complet)

5. Utilizarea VBA Mod cu divizor întreg & Număr flotant

În cazul în care divizor este un număr întreg tip, dar tipul tău număr este în float atunci puteți folosi tipul VBA Mod operator.

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra 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 

Aici, în R subprocedura eminder_From_Decimal_Number, Am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi, a fost folosită referința celulei B5 ca număr1 și C5 ca număr2 (divizor)

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton , urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Reminder din numărul zecimal .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest pentru număr zecimal .

Dar există o problemă care VBA rotunjește la zecimal Aici, rezultatul ar fi trebuit să fie 2.25 dar VBA Mod a rotunjit-o la 2 .

Amintiți-vă că dacă vreun zecimal/flotant este mai mare decât 0.5 în VBA Mod atunci va fi rotunjit la următoarea valoare întreagă.

Dacă este mai mică decât 0.5 în VBA Mod , atunci va fi rotunjit la valoarea întreagă existentă.

Citește mai mult: Cum se utilizează funcția VBA Int în Excel ( 3 exemple)

Lecturi similare:

• Cum se utilizează funcția IsNull în Excel VBA (5 exemple)
• Utilizați funcția VBA Str în Excel (4 exemple)
• Cum se utilizează funcția de comutare VBA (6 exemple adecvate)
• Utilizați funcția VBA Len în Excel (4 exemple)
• Cum să eliminați duplicatele în foaia Excel (7 metode)

6. Utilizarea VBA Mod atunci când divizor & Numărul sunt ambele zecimale

În cazul în care divizor și număr ambele sunt în zecimal/float atunci puteți utiliza și tipul VBA Mod operator.

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra Modul .

 Sub Decimal_Both_Divizor_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 

Aici, în subprocedura Decimal_Both_Divizor_Number, Am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi, a fost folosită referința celulei B5 ca număr1 și C5 ca număr2 (divizor)

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton, urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Obțineți Amintire de la Când divizor & Număr zecimal .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest atât pentru divizor zecimal și numere .

Dar există o problemă care VBA rotunjește zecimal Aici, rezultatul ar fi trebuit să fie 1.75 dar VBA Mod a rotunjit-o la 2 .

Conținut conex: Funcția VBA EXP în Excel (5 exemple)

7. Mod VBA pentru a rotunji un număr zecimal mai mare de 0,5

Aici, vă voi arăta cum se face rotunjire lucrează în VBA Mod .

Pentru a vă demonstra zecimal problemă de punct, mai întâi voi calcula rest utilizând Excel MOD funcție.

În celulă D4 , introduceți următoarea formulă,

Aici, am folosit B6 ca numărul C6 ca un divizor .

Apoi, apăsați ENTER pentru a obține rest și veți obține rest care va fi 7.7 .

Acum, să calculăm prin VBA Mod , pentru a deschide fereastra VBA editorul urmează pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra Modul .

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

Aici, în subprocedura Decimal_Both_Divizor_Number, Am declarat variabila n ca Număr întreg și am folosit-o pentru a păstra valoarea returnată de către Mod operator.

Apoi, a fost folosită referința celulei B6 ca număr1 și C6 ca număr2 (divizor)

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton , urmați pașii explicați în secțiunea 1.

➤ Am numit butonul RoundsUp Număr zecimal .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest pentru referința celulei utilizate.

Uitați-vă cu atenție la rest că VBA Mod a revenit. MOD pentru aceleași valori returnate 7.7 dar VBA Mod operatorul a returnat 0 . ca și VBA a rotunjit valorile.

Citește mai mult: Cum se utilizează funcția VBA Round în Excel (6 utilizări rapide)

8. Determinați numărul par sau impar

The VBA Mod determină, de asemenea, valoarea Chiar și sau Odd număr dintr-un interval dat.

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra 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 & " este un număr par!" Else MsgBox n & " este un număr impar!" End If Next n End Sub 

Aici, în subprocedură Determinare_Even_Or_Odd, Am declarat variabila n ca Număr întreg .

Apoi, am folosit un Pentru bucla în care am păstrat valoarea pe care am declarat-o prin referința celulei.

În continuare, am folosit un IF în care am setat criteriile ca fiind n Mod 2 = 0 în cazul în care valoarea este adevărată, atunci se va returna un Chiar și declarație altfel Odd .

Apoi a folosit MsgBox pentru a arăta declarații .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton , urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Par sau Impar .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți afla care este valoarea Chiar și și care dintre ele este Odd .

Aici, 1 este Odd număr.

Aici, 2 este Chiar și număr.

Citește mai mult: Declarația VBA If - Then - Else în Excel (4 exemple)

9. Utilizarea intervalului de celule în modul VBA pentru a obține restul

De asemenea, puteți utiliza și funcția interval de celule pentru a obține rest prin utilizarea VBA Mod .

Pentru a deschide fereastra VBA editor, urmați pașii explicați în secțiunea 1.

Apoi, tastați următorul cod în fereastra 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 

Aici, în Subprocedura Get_Reminder_UsingVBA, Am declarat variabila n ca Număr întreg .

Apoi, am folosit un Pentru bucla în care am păstrat valoarea pe care am declarat-o prin referința celulei. Bucla va funcționa pentru valorile din rândurile 4 la 9 .

Apoi a folosit MsgBox pentru a arăta rest .

Acum, Salvați codul și reveniți la foaia de lucru.

Pentru a introduce Buton , urmați pașii explicați în secțiunea 1.

➤ Am numit butonul Referință dinamică a celulei .

După aceea, faceți clic pe butonul Buton pentru a rula VBA cod.

Prin urmare, veți obține rest pentru toate valorile utilizate, una câte una.

Primul este pentru număr 29 unde divizor este 3 .

Cel de-al doilea este pentru număr -47 unde divizor este 5 .

Bucla va funcționa până când va ajunge la rândul 9 Al cincilea este pentru număr 59 unde divizor este 6 .

Conținut conex: Cum se utilizează funcția VBA Randomize în Excel (5 exemple)

Diferența dintre Excel MOD & VBA Mod

Deși, în majoritatea cazurilor, valorile de returnare sunt aceleași pentru MOD și funcția VBA Mod Cu toate acestea, în unele cazuri, rezultatul diferă unul de celălalt. Permiteți-mi să vă arăt care este diferența dintre ele.

Lucruri de reținut

🔺 Operatorul va rotunji zecimal/flotant puncte.

Secțiunea practică

Am pus la dispoziție o foaie de exerciții în caietul de lucru pentru a exersa aceste exemple explicate.

Concluzie

În acest articol, am prezentat 9 exemple din Excel VBA Mod Am încercat, de asemenea, să acopăr motivele pentru a afișa frecvent erori. Împreună cu lucrurile pe care va trebui să le rețineți în timp ce utilizați operatorul. Simțiți-vă liber să comentați mai jos pentru orice tip de întrebări și sugestii.