Перейти до основного контенту

VBA Excel: як отримати дробову частину числа та працювати з нею

8 хв читання
1178 переглядів
Excel з його широким спектром функцій та можливостей є однією з найпопулярніших програм для роботи з числами. Однією з частих завдань є робота зі дробовими числами. У цій статті ми розглянемо, як використовувати VBA Excel для отримання дробової частини числа та використання її в різних розрахунках і операціях.Дробова частина числа являє собою десяткову частину числа, що знаходиться після коми. Можливість отримання дробової частини числа є дуже корисною, особливо при проведенні аналізу даних або при розрахунках з використанням відсотків або дробів.В VBA Excel існує кілька способів отримання дробової частини числа. Один з простих способів - використання вбудованої функції "Mod". Ця функція повертає залишок від ділення одного числа на інше. Для отримання дробової частини числа потрібно знайти залишок від ділення числа на 1. Наприклад, якщо ми хочемо отриматидробну частину числа 5.67, ми можемо використати наступний код:Dim number As DoubleDim decimalPart As Doublenumber = 5.67decimalPart = number Mod 1В результаті виконання даного коду, змінна decimalPart буде дорівнювати 0.67, що і є дробною частиною числа 5.67.Окрім використання функції "Mod", в VBA Excel також є й інші методи роботи з дробовими числами, такі як використання вбудованої функції "Format", використання математичних операторів, таких як ділення або множення, а також використання вбудованих функціональних можливостей Excel.Основні поняттяЧисло з плаваючою комою - це числовий тип даних, який може містити дробну частину. В VBA числа з плаваючою комою записуються з використанням десяткової крапки, наприклад 3.14.Ціла частина числа представляєціле число, яке знаходиться зліва від десяткової крапки. Для отримання цілого значення числа в VBA можна використовувати функцію Int.

Дробова частина числа являє собою десяткову дробу, яка знаходиться справа від десяткової крапки. Для отримання дробової частини числа в VBA можна використовувати функцію Frac.

Округлення числа дозволяє зменшити кількість десяткових знаків до певного значення. В VBA для округлення числа можна використовувати функції Round, RoundUp та RoundDown.

Форматування числа дозволяє змінити спосіб відображення числа, наприклад, додати розділювач тисяч або вказати кількість десяткових знаків. В VBA для форматування числа можна використовувати функцію Format.

Розділювач десяткових знаків - це символ, який розділяє цілу та дробову частини числа. В VBA розділювач десяткових знаків залежить від налаштувань локалі (регіональних параметрів) операційної.системи.Розділювач тисячних - це символ, який відділяє тисячі, мільйони тощо в цілій частині числа. У VBA розділювач тисячних також залежить від налаштувань локалі операційної системи.Перетворення рядка в число - це процес перетворення символів рядка в числове значення. У VBA для перетворення рядка в число можна використовувати функції Val, CDbl, CInt тощо.Перетворення числа в рядок - це процес перетворення числового значення в символи рядка. У VBA для перетворення числа в рядок можна використовувати функції CStr, Format тощо.Отримання дробової частини числа в VBA ExcelДробова частина числа в VBA Excel представляє десяткову частину числа, яка знаходиться після коми або крапки. У VBA Excel є кілька способів отримати цю дробову частину числа і працювати з нею.Використання функції FMod Функція FMod повертає залишок від діленнячисла на інше число. Щоб отримати дробову частину числа, можна використовувати цю функцію, поділивши початкове число на 1. Наприклад:

Dim number As DoubleDim fractionalPart As Doublenumber = 10.45fractionalPart = number - Int(number)' fractionalPart будет содержать дробную часть числа, то есть 0.45
Dim number As StringDim fractionalPart As Stringnumber = "10.45"fractionalPart = Split(number, ".")(1)' fractionalPart будет содержать дробную часть числа, то есть "45"
Dim number As DoubleDim fractionalPart As DoubleDim n As Integernumber = 10.45fractionalPart = (number * (10 ^ n)) Mod (10 ^ n)' При n = 2, fractionalPart будет содержать дробную часть числа, то есть 0.45

Таким чином, у VBA Excel є декілька способів отримати дробову частину числа та працювати з нею. Вибір конкретного способу залежить від потрібної точності та формату представлення чисел у вашому проекті.

Робота з дробовою частиною числа в VBA Excel

У мові програмування VBA Excel існує кілька способів отримати дробову частину числа та працювати з нею. Це може бути корисно, коли потрібно виконати певні операції лише з дробовою частиною числа або коли потрібно округлити число до заданого кількості знаків після коми.

Один з простих способів отримати дробову частину числа – використовувати функцію Mod. Вона повертає залишок від ділення одного числа на інше. Наприклад, щоб отримати дробову частину числа 3.14, можна використати наступний код:Sub GetFractionPart() Dim number As Double Dim fractionPart As Double number = 3.14 fractionPart = number Mod 1 MsgBox "Дробова частина числа: " & fractionPart End SubУ цьому прикладі змінна number містить число 3.14, а змінна fractionPart отримує залишок від ділення цього числа на 1, що є його дробовою частиною. Потім, використовуючи функцію MsgBox, ми виводимо значення дробової частини на екран.Інший спосіб отримати дробову частину числа в VBA Excel – це використати функцію Round. Вона округлює число до заданої кількості знаків після коми та повертає його дробову частину. Наприклад, щоб отримати дробову частину числа 3.14 з двома знаками після коми, можна використати наступний код:Sub GetFractionPart() Dim number As DoubleDim fractionPart As Doublenumber = 3.14fractionPart = number - Round(number, 0)MsgBox "Дробна частина числа: " & fractionPartEnd SubВ цьому прикладі ми віднімаємо від вихідного числа його цілу частину, отриману за допомогою функції Round, щоб отримати його дробну частину з заданою кількістю знаків після коми.Це лише два приклади роботи з дробною частиною числа в VBA Excel. Можливостей цієї мови програмування в області роботи з числами багато, і ви можете вибрати підходящий варіант для своїх конкретних завдань.Приклади використанняНижче наведено приклади використання функції для роботи з дробною частиною числа в VBA Excel:ПрикладОписРезультатDim myNumber As Double: myNumber = 3.14159Оголошення та ініціалізація змінноїmyNumbermyNumber = 3.14159Dim fractionalPart As Double: fractionalPart = GetFractionalPart(myNumber)Виклик функції GetFractionalPart для отримання дробової частини числаfractionalPart = 0.14159Dim roundedPart As Double: roundedPart = Round(fractionalPart, 2)Округлення дробової частини до двох знаків після комиroundedPart = 0.14MsgBox "Дробова частина числа: " & roundedPartВиведення округленої дробової частини числа в повідомленніВспливаюче вікно з текстом "Дробова частина числа: 0.14"