Що таке CDBL Excel VBA?

CDBL - це функція VBA, яка використовується для перетворення виразів у подвійний тип даних. VBA складається з ряду функцій перетворення даних. Це допомагає змінити тип даних змінної або значення з одного на інший. У різних розрахунках перетворення - це необхідний процес для отримання належного результату. CDBL - одна з функцій перетворення даних, що входить до функцій перетворення типу в VBA. CDBL означає «Перетворити в подвійний». Під час обробки даних вам можуть траплятися ситуації, щоб змінити цілі числа на подвійні. Щоб надрукувати точний результат, ця функція допоможе вам. Функція VBA CDBL приймає лише номери. Будь-яке вираження, крім чисел, призведе до помилки невідповідності типу.

Формат функції CDBL в Excel VBA

CDBL - це проста функція, яка потребує єдиного виразу для роботи в VBA. Вираз має бути числом.

  • Вираз: Чи є число, яке потрібно перетворити у плаваюче число.

Якщо вираз є чимось, крім числа, функція поверне помилку невідповідності. Дивіться нижченаведений приклад, де вираз без числа передається функції CDBL і воно спричинило невідповідність типу помилок.

Використання функції CDBL в VBA

Давайте перевіримо, як функція VBA CDBL допомагає нам в обробці даних. Щоб отримати чітке уявлення та зрозуміти практичне використання зміни типу даних, див. Нижче приклад. Ви можете бачити різницю відповідно до типу даних, використовуваних для однієї змінної.

  • Заявіть змінну як цілий тип даних і призначте їй плаваюче значення. Під час друку значення дивіться, як він відображатиме значення.

Код:

 Приватний Sub addconvert () Dim b As Integer End Sub 

  • Плаваючому значенню присвоюється оголошена ціла змінна величина. 785.456923785475 присвоюється змінній b, яка є цілою змінною.

Код:

 Private Sub addconvert () Dim b As Integer b = 785.456923785475 Кінець Sub 

  • За допомогою вікна повідомлення надрукуйте призначене значення.

Код:

 Приватне підрозділ addconvert () Dim b As Integer b = 785.456923785475 MsgBox b Кінець Sub 

Подивіться, як результати показують різницю під час друку значення.

Ви призначили число з плаваючими значеннями, але на виході відображається лише ціла частина заданого числа. Тут змінна 'b' оголошується як ціле число, тому вона не приймає плаваюче значення. Приймається ціла частина десяткового значення, а десяткова частина уникається. Оскільки змінна оголошена цілим числом, число буде округлено до найближчого цілого числа.

Щоб надрукувати дані такими, якими вони є, змінивши змінний тип даних на подвійний Замість цілого типу даних.

  • Внісши просту зміну одного і того ж коду, ви можете надрукувати вказане число таким, яким воно є. Заявити змінну як подвійний тип даних.

Код:

 Приватний Sub addconvert () Dim b як подвійний кінець Sub 

  • Декларованій подвійній змінній присвоюється число як подвійне. 785.456923785475 присвоюється змінній b, яка подвійна в типі даних.

Код:

 Private Sub addconvert () Dim b As Double b = 785.456923785475 Кінець Sub 

  • За допомогою вікна повідомлення надрукуйте призначене значення.

Код:

 Приватне підрозділ addconvert () Dim b As Double b = 785.456923785475 MsgBox b End Sub 

Подивіться, як результати показують різницю під час друку значення. Ви призначили число з плаваючими значеннями.

Порівняйте обидва виходи, ви можете побачити різницю. Навіть дані та змінна - однакові, зміна типу даних змінила весь вихід. З цього ви отримаєте важливість типу даних та те, як він впливає на всю програму. Це причина використання різних типів функцій перетворення з VBA.

Приклади функції CDBL в Excel VBA

Нижче наведено різні приклади перетворення VBA в подвійний.

Ви можете завантажити цей шаблон VBA CDBL Excel тут - шаблон VBA CDBL Excel

Приклад №1: Перетворити тип рядкових даних у подвійний

Давайте подивимося, як відбувається перетворення даних та які зміни можна внести за допомогою функцій перетворення даних. Рядок - це тип даних, який приймає всі типи даних. Змінна визначається як рядок і присвоює їй номер.

  • Використовуйте приватну функцію для перевірки змін у різному типі даних, створіть функцію перетворення як приватну декларуйте змінну 'a' у вигляді рядка.

Код:

 Приватний Sub конвертувати () Dim a As String End Sub 

  • Для здійснення конверсії вам потрібна змінна. Оскільки змінна перетворюється у подвійний тип даних, оголошуйте її як подвійний тип даних. Після перетворення даних значення буде присвоєно цій змінній.

Код:

 Приватний Sub конвертувати () Dim a як String Dim конвертувати як Double End Sub 

  • Призначте плаваюче число 1234.5645879 до змінної рядка. Рядок типу даних прийме числа з плаваючими значеннями.

Код:

 Приватний Sub перетворити () Dim a As String Dim перетворити у подвійний a = 1234.5645879 Кінець Sub 

  • Тепер використовуйте функцію VBA CDBL, щоб перетворити значення в подвійне. Ви можете використовувати змінну "конвертувати", яка оголошена подвійним типом даних. Передайте змінну 'a' як вираз функції CDBL.

Код:

 Приватний субконвертувати () Dim a As String Dim конвертувати як подвійний a = 1234.5645879 convert = CDbl (a) Кінець Sub 

  • Щоб переглянути вихідне значення, можна надрукувати за допомогою вікна повідомлень.

Код:

 Приватне Sub перетворення () Dim a As String Dim конвертувати як подвійне a = 1234.5645879 конвертувати = CDbl (a) MsgBox перетворити Кінець Sub 

  • Запустіть цей код, натиснувши кнопку F5 безпосередньо або вручну натиснувши кнопку Запустити на верхній лівій панелі.

  • Значення, присвоєне змінній 'a', буде надруковано як однакове з плаваючими точками та цілим значенням. Значення перетворюється в подвійний тип даних і друкується те саме, що нижче.

Приклад №2 - Перетворення та додавання двох чисел

У вас є дві змінні, які потрібно додати та знайти суму як частину вашого розрахунку. Обидва є плаваючими числами з десятковими значеннями. Але одна змінна оголошується як ціла, а інша - подвійна.

  • Створіть функцію add, щоб знайти суму двох чисел. Дві змінні A1 і A2 оголошуються цілими і подвійними відповідно.

Код:

 Приватний Sub додати () Dim A1 як цілий Dim A2 Як подвійний кінець Sub 

  • Призначте два числа відповідним змінним. Обидва - це два плаваючі числа з десятковими значеннями.

Код:

 Приватний Sub (Додати) Dim A1 як цілий Dim A2 Як подвійний A1 = 1256.45 A2 = 1234.58 Кінець Sub 

  • Оголосіть третю суму змінної як подвійний тип даних, оскільки результатом буде подвійне значення.

Код:

 Приватний суб добавок () Dim A1 як цілий Dim A2 Як подвійний розмір диму як подвійний A1 = 1256.45 A2 = 1234.58 Кінець Sub 

  • Додайте задані два числа і результат покладіть у суму змінної.

Код:

 Приватний Sub add () Dim A1 як цілий Dim A2 Як подвійний розмір Dim як подвійний A1 = 1256.45 A2 = 1234.58 сума = A1 + A2 Кінець Sub 

  • Використання вікна повідомлень дозволяє друкувати вихід.

Код:

 Приватний Sub додати () Dim A1 як цілий Dim A2 Як подвійний розмір Dim як подвійний A1 = 1256, 45 A2 = 1234, 58 сума = A1 + A2 MsgBox сума End End 

  • Запустіть цей код, натиснувши кнопку F5 безпосередньо або вручну натиснувши кнопку Запустити на верхній лівій панелі.

Очікуваний результат - 2491, 03, і ​​при перевірці результатів ви можете побачити деяку різницю в результаті. Невідповідність результату сталася через значення, прийняте змінною A1. Оскільки це ціла змінна, це не прийме десяткової частини числа, під час обробки суми береться лише ціла частина.

  • Щоб уникнути цього, перетворіть число А1 в подвійне і призначте перетворене число в іншу змінну А3.

Код:

 Private Sub add () Dim A1 Як цілий Dim A2 Як подвійний розмір Dim як подвійний A1 = 1256.45 A2 = 1234.58 A3 = CDbl (1256.45) сума = A1 + A2 MsgBox сума End End 

  • Тепер додайте перетворену змінну з A2 замість A1. Оскільки число перетворене в подвійний тип даних, значення з плаваючими числами буде прийнято і додане з A2.

Код:

 Приватний Sub додати () Dim A1 як цілий Dim A2 Як подвійний розмір диму як подвійний A1 = 1256.45 A2 = 1234.58 A3 = CDbl (1256.45) сума = A2 + A3 MsgBox сума Кінець Sub 

  • Запустіть цей код, натиснувши кнопку F5 безпосередньо або вручну натиснувши кнопку Запустити на верхній лівій панелі.

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

Що потрібно пам’ятати

  • Функція VBA CDBL приймає не значення, а число.
  • Помилка невідповідності типу буде створена, якщо функція CDBL VBA задається текстовим значенням.
  • Подвійний тип даних відображає 13-значні десяткові значення.
  • Функція CDBL VBA допомагає отримати належний результат під час обробки чисел у Excel.

Рекомендовані статті

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

  1. Коментар блоку VBA
  2. РЕЗЮМЕ Функція в Excel
  3. VBA іменований діапазон
  4. Функція COMBIN в Excel

Категорія: