На сьогоднішній день, на жаль, це не так. VBA Mod не є функцією, тоді як МІНОБОРОНИ це функція на аркуші Excel. VBA Mod оператор, який ділить два числа і повертає результат решта Оператор Mod є скороченою формою МОДУЛЬ що використовується в математичних операціях. Mod оператори зібратись в "Урядовому кур'єрі". з плаваючою комою .

У цій статті я покажу вам різні приклади використання Excel VBA Mod оператор.

Завантажити для практики

Основи VBA Mod Function: короткий зміст та синтаксис

Резюме

На сьогоднішній день, на жаль, це не так. VBA Mod оператор ділить два числа і повертає результат решта де один з них відомий як дільник інший - це кількість "У нас тут є Mod оператор ділить кількість від дільник .

Синтаксис

Number1 Mod Number2 (дільник)

Аргументи

Значення, що повертається

На сьогоднішній день, на жаль, це не так. VBA Mod оператор повертає значення решта .

Версія

На сьогоднішній день, на жаль, це не так. VBA Mod доступний для Excel 2000 і новіших версій.

Я використовую Excel Microsoft 365 імплементувати ці приклади.

9 Приклади використання функції VBA Mod в Excel

1. використання VBA-модуля для отримання залишку

За бажанням ви можете отримати решта за допомогою програми VBA Mod оператор.

Дозвольте мені пояснити вам процедуру,

Для початку відкрийте розділ Розробник вкладка>> вибрати Visual Basic .

➤ Тепер у новому вікні з'явиться Microsoft Visual Basic для додатків з'явиться.

Далі, від Вставка вибрати Модуль

Тепер введіть наступний код в поле Модуль .

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

Тут, у Get_Reminder в підпроцедурі оголосив змінну n як Ціле число і використовував його для збереження значення, що повертається Mod оператор.

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Знову ж таки, відкриваємо Розробник вкладка>> від Вставка вибрати Кнопка від Елементи управління формою

Негайно, Перетягування в "Урядовому кур'єрі". Кнопка розмістити його в тому місці, де ви хочете дати підпис.

Далі можна дати назву кнопці.

Я назвав його Отримати нагадування .

Зараз, клацніть правою кнопкою миші контекстне меню Призначити Макрос з'явиться.

Там виберіть Призначити макрос .

⏩ A діалогове вікно з Призначити макрос з'явиться.

Потім виберіть пункт Назва макросу і Макроси в .

⏩ Я обрав Get_Reminder від Назва макросу та відібрані VBA Mod.xlsm від Макроси в .

Нарешті, натисніть ГАРАЗД. .

Потім натисніть на кнопку з назвою Get_Reminder .

Таким чином, він покаже поле msg з решта .

Ви можете зробити це для всіх цифри щоб отримати решта .

Читати далі: Функція форматування VBA в Excel (8 варіантів використання з прикладами)

2 Використання посилання на комірку в VBA-моді для отримання залишку

За допомогою Посилання на клітинку з аркуша Excel можна отримати решта від VBA Mod .

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, у Нагадування_про_використання_коміркового_референсу оголошується змінна n як Ціле число і використовував його для збереження повернутого значення Mod оператор.

Далі використовується посилання на комірку B4 як номер 1 і C4 як число2 (дільник)

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Посилання на клітинку .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для використаного посилання на комірку.

Схожі теми: Як повернути значення у функції VBA (як масивні, так і не масивні значення)

3 Використання VBA Mod для отримання остачі від від'ємного числа

На сьогоднішній день, на жаль, це не так. VBA Mod також підтримує негативний цифри при обчисленні решта .

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, у Нагадування_від_від'ємного_числа, Оголошується змінна n як Ціле число і використовував його для збереження значення, що повертається Mod оператор.

Далі використовується посилання на комірку B5 як номер 1 і C5 як число2 (дільник)

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Ґудзик, виконати кроки, описані в розділі 1.

➤ Я назвав кнопку Нагадування з від'ємного числа .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для від'ємне число .

Читати далі: Як використовувати функцію IsNumeric у VBA (9 прикладів)

4 Використання модифікації VBA для отримання залишку в комірці

Замість того, щоб показати решта через msg ящик Помістити його в комірку можна за допомогою кнопки VBA MOD функцію.

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 Sub Нагадування_в_комірці() ActiveCell.FormulaR1C1 = "=MOD(RC[-2],RC[-1])" Range("D4").Select End Sub 

Тут, у s ub-процедура Нагадування_в_комірці Я використовував ActiveCell.FormulaR1C1 форматі, щоб отримати позицію ActiveCell .

Потім, скориставшись МІНОБОРОНИ щоб отримати функцію решта .

Також, використовуючи Виберіть метод.

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка і призначати в "Урядовому кур'єрі". VBA код, виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Нагадування в мобільному .

Далі оберіть пункт D4 в камеру.

Потім натисніть на кнопку Кнопка для запуску VBA код.

В результаті ви отримаєте решта у вибраній комірці.

Пройшовши той самий процес, ви отримаєте решта для решти показників.

Читати далі: Як використовувати функцію MsgBox в Excel VBA (повне керівництво)

5. використання VBA Mod з цілим дільником та числом з плаваючою комою

У разі, якщо ваш дільник це ціле число але твій кількість знаходиться в поплавок після чого ви можете скористатися клавішею VBA Mod оператор.

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, в Р підпроцедура eminder_From_Decimal_Number, Оголошується змінна n як Ціле число і використовував його для збереження значення, що повертається Mod оператор.

Далі використовується посилання на комірку B5 як номер 1 і C5 як число2 (дільник)

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Нагадування з десяткового числа .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для десяткове число .

Але є проблема, яка полягає в тому, що VBA підсумовує в "Урядовому кур'єрі". десятковий Тут результат мав би бути таким 2.25 але VBA Mod округлив до 2 .

Згадайте, чи є у вас десятковий/плаваючий пункт більше, ніж 0.5 в VBA Mod тоді це буде округлено до наступного цілого значення.

Якщо вона менша, ніж 0.5 в VBA Mod тоді це буде округлено до існуючого цілого значення.

Читати далі: Як використовувати функцію VBA Int в Excel (3 приклади)

Схожі читання:

• Як використовувати функцію IsNull в Excel VBA (5 прикладів)
• Використання функції VBA Str в Excel (4 приклади)
• Як використовувати функцію перемикача в VBA (6 відповідних прикладів)
• Використання функції VBA Len в Excel (4 приклади)
• Як видалити дублікати в таблиці Excel (7 способів)

6. використання модифікації VBA, коли дільник і число є десятковими дробами

Якщо ваш дільник і кількість обидва знаходяться в десятковий/плаваючий то ви також можете використовувати клавішу VBA Mod оператор.

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, у підпроцедура Decimal_Both_Divisor_Number, Оголошується змінна n як Ціле число і використовував його для збереження значення, що повертається Mod оператор.

Далі використовується посилання на комірку B5 як номер 1 і C5 як число2 (дільник)

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Ґудзик, виконати кроки, описані в розділі 1.

➤ Я назвав кнопку Отримати Нагадування від коли дільник і число десяткове .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для обох десятковий дільник і цифри .

Але є проблема, яка полягає в тому, що VBA збирає кошти на десятковий Тут результат мав би бути таким 1.75 але VBA Mod округлив до 2 .

Пов'язаний контент: Функція VBA EXP в Excel (5 прикладів)

7. Мод VBA для округлення десяткових чисел, більших за 0.5

Тут я покажу вам, як працює зібратись працює в VBA Mod .

Продемонструвати вам десятковий точечної задачі, спочатку я обчислю решта за допомогою Excel МІНОБОРОНИ функцію.

У камері D4 введіть наступну формулу,

Тут я використовував B6 як номер С6 в якості дільник .

Потім натисніть ENTER щоб отримати решта і ви отримаєте решта які будуть 7.7 .

Тепер давайте порахуємо через VBA Mod , щоб відкрити VBA редактора виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, у підпроцедура Decimal_Both_Divisor_Number, Оголошується змінна n як Ціле число і використовував його для збереження значення, що повертається Mod оператор.

Далі використовується посилання на комірку B6 як номер 1 і C6 як число2 (дільник)

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Округлення десяткового числа в бік збільшення .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для використаного посилання на комірку.

Уважно подивіться на решта про те, що VBA Mod повернулися. МІНОБОРОНИ для однакових значень, що повертаються 7.7 але VBA Mod оператор повернувся 0 Як зазначено в доповіді VBA округлені значення.

Читати далі: Як використовувати круглу функцію VBA в Excel (6 прикладів)

8. визначити парне чи непарне число

На сьогоднішній день, на жаль, це не так. VBA Mod також визначає Навіть або Непарний число із заданого діапазону.

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 & " парне число!" Else MsgBox n & " непарне число!" End If Next n End Sub 

Тут, у підпроцедура Determine_Even_Or_Odd, Оголошується змінна n як Ціле число .

Потім я використовував За цикл, в якому зберігалося значення, яке я оголосив через посилання на комірку.

Далі я використовував ЯКЩО функція, де я встановив критерії як n Mod 2 = 0 якщо значення істинне, то він поверне значення Навіть заява про інше Непарний .

Потім використовували MsgBox щоб показати заяви .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Парний або непарний .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Тому ви дізнаєтесь, яке значення має Навіть і яка з них Непарний .

Ось, 1 це Непарний номер.

Ось, 2 це Навіть номер.

Читати далі: Оператор VBA If - Then - Else в Excel (4 приклади)

9 Використання діапазону комірок у VBA Mod для отримання залишку

Ви також можете скористатися діапазон комірок щоб отримати решта за допомогою VBA Mod .

Для того, щоб відкрити VBA редактора, виконайте кроки, описані в розділі 1.

Потім введіть наступний код в поле Модуль .

 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 

Тут, у Підпроцедура Get_Reminder_UsingVBA, Оголошується змінна n як Ціле число .

Потім я використовував За цикл, в якому зберігається значення, яке я оголосив через посилання на комірку. Цикл буде працювати для значень з рядків 4 до 9 .

Потім використовували MsgBox щоб показати решта .

Негайно, Зберегти код і поверніться на робочий аркуш.

Для того, щоб вставити Кнопка виконайте кроки, описані в розділі 1.

➤ Я назвав кнопку Динамічне посилання на комірку .

Після цього натисніть на кнопку Кнопка для запуску VBA код.

Таким чином, ви отримаєте решта для всіх використаних значень по черзі.

Перший з них призначений для кількість 29 де дільник це 3 .

2-й - для кількість -47 де дільник це 5 .

Петля буде працювати до тих пір, поки не дійде до рядка 9 П'ятий - для кількість 59 де дільник це 6 .

Пов'язаний контент: Як використовувати функцію VBA Randomize в Excel (5 прикладів)

Різниця між Excel MOD та VBA Mod

Хоча для більшості випадків значення, що повертаються, збігаються для МІНОБОРОНИ функцію та функцію VBA Mod але для деяких випадків результат відрізняється один від одного. Дозвольте продемонструвати різницю між ними.

Важливі моменти для запам'ятовування

🔺 Оператор збирає всіх, хто може. десятковий/плаваючий балів.

Практична секція

У робочому зошиті я надав практичний аркуш для відпрацювання цих пояснених прикладів.

Висновок

У цій статті я показав 9 прикладів роботи з таблицею Excel VBA Mod Я також спробував висвітлити причини, через які часто виникають помилки, а також те, що потрібно пам'ятати під час використання оператора. Будь ласка, залишайте коментарі нижче для будь-яких запитань та пропозицій.