Какво е Excel VBA CDBL?

CDBL е VBA функция, която използва за преобразуване на изразите в двоен тип данни. VBA се състои от редица функции за преобразуване на данни. Това помага да промените типа данни на променлива или стойност от една в друга. При различни изчисления преобразуването е необходим процес за постигане на подходящ резултат. CDBL е една от функциите за преобразуване на данни, включена във функциите за конвертиране на тип в VBA. CDBL означава „Преобразуване в двойно“. Докато обработвате данни, може да попаднете на ситуации, за да промените целите числа да се удвоят. За да отпечатате точния резултат, тази функция ще ви помогне. Функцията VBA CDBL приема само номера. Всеки израз освен числата ще доведе до грешка в несъответствието на типа.

Формат на CDBL функция в Excel VBA

CDBL е проста функция, която изисква един израз да работи в VBA. Изразът трябва да е число.

  • Израз: числото, което искате да преобразувате в плаващо число.

Ако изразът е нещо различно от число, функцията ще върне грешка при несъответствие. Вижте по-долу примера, където израз на не-число се предава на функцията CDBL и той генерира несъответствие тип грешка.

Използване на CDBL функция във VBA

Нека проверим как функцията VBA CDBL ни помага при обработката на данни. За да получите ясен изглед и да разберете практическата употреба на промяната на типа данни, вижте по-долу примера. Можете да видите разликата според типа данни, използван за същата променлива.

  • Декларирайте променлива като цяло число тип данни и й присвойте плаваща стойност. Докато печатате стойността, вижте как ще покаже стойността.

Код:

 Private Sub addconvert () Dim b като Integer End Sub

  • Плаваща стойност се присвоява на декларираната целочислена променлива. 785.456923785475 е присвоена на променлива b, която е цяло число.

Код:

 Private Sub addconvert () Dim b As Integer b = 785.456923785475 End Sub

  • С помощта на поле за съобщение отпечатайте зададената стойност.

Код:

 Private Sub addconvert () Dim b As Integer b = 785.456923785475 MsgBox b End Sub

Вижте как резултатите показват разлика, докато отпечатвате стойността.

Присвоили сте номер с плаващи стойности, но изходът показва само цялата част от даденото число. Тук променливата 'b' е декларирана като цяло число, така че няма да приеме плаваща стойност. Цялата част от десетичната стойност се взема и десетичната част се избягва. Тъй като променливата е декларирана като цяло число, числото ще бъде закръглено до най-близкото цяло число.

За да отпечатате данните такива, каквито са, промяна на променливия тип данни в двойни Вместо целочислен тип данни.

  • Чрез проста промяна в един и същ код можете да отпечатате дадения номер такъв, какъвто е. Декларирайте променливата като двоен тип данни.

Код:

 Private Sub addconvert () Dim b като Double End Sub

  • Декларираната двойна променлива е присвоено число като двойно. 785.456923785475 е присвоена на променлива b, която е двойна в тип данни.

Код:

 Private Sub addconvert () Dim b като Double b = 785.456923785475 End Sub

  • С помощта на поле за съобщение отпечатайте зададената стойност.

Код:

 Private 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 As String Dim конвертира като Double End Sub

  • Задайте плаващо число 1234.5645879 на променливата на низа. Низовият тип данни ще приеме числата с плаващи стойности.

Код:

 Частен Sub преобразува () Dim a As String Dim конвертира като двойно a = 1234.5645879 End Sub

  • Сега използвайте VBA CDBL функцията, за да преобразувате стойността в двойна. Можете да използвате променливата „конвертиране“, която е декларирана като двоен тип данни. Предайте променливата 'a' като израз на CDBL функция.

Код:

 Частен Sub преобразува () Dim a As String Dim конвертира като двойно a = 1234.5645879 convert = CDbl (a) Край Sub

  • За да видите изходната стойност, можете да отпечатате с помощта на поле за съобщения.

Код:

 Private Sub convert () Dim a As String Dim pretvori As Double a = 1234.5645879 convert = CDbl (a) MsgBox convert End Sub

  • Изпълнете този код, като натиснете F5 директно или ръчно натиснете бутона Run в горния ляв панел.

  • Стойността, присвоена на променлива 'a', ще бъде отпечатана като същата с плаващи точки и цяло число. Стойността се преобразува в двоен тип данни и същата се отпечатва както по-долу.

Пример №2 - Преобразуване и добавяне на две числа

Имате две променливи, които да добавите и намерите сумата като част от изчислението си. И двете са плаващи числа с десетични стойности. Но една променлива е декларирана като цяло число, а друга като двойна.

  • Създайте функция add, за да намерите сумата от две числа. Две променливи А1 и А2 са декларирани съответно като цяло и двойно.

Код:

 Private Sub добавете () Dim A1 като цяло число Dim A2 като двоен край Sub

  • Присвойте двете числа на съответните променливи. И двете са две плаващи числа с десетични стойности.

Код:

 Част Sub добавете () Dim A1 като цяло число Dim A2 като двойно A1 = 1256.45 A2 = 1234.58 Край Sub

  • Декларирайте трета променлива сума като двоен тип данни, тъй като резултатът ще бъде двойна стойност.

Код:

 Private Sub добавяне () Dim A1 като цяло число Dim A2 като двойна сума сума като двойна A1 = 1256.45 A2 = 1234.58 край Sub

  • Добавете дадените две числа и поставете резултата в променливата сума.

Код:

 Private Sub добавяне () Dim A1 като цяло число Dim A2 като двойна сума сума като двойна A1 = 1256.45 A2 = 1234.58 сума = A1 + A2 край Sub

  • Използването на поле за съобщение позволява отпечатване на изхода.

Код:

 Private Sub добавяне () Dim A1 като цяло число Dim A2 като двойна сума сума като двойна A1 = 1256.45 A2 = 1234.58 сума = A1 + A2 MsgBox сума End Sub

  • Изпълнете този код, като натиснете F5 директно или ръчно натиснете бутона Run в горния ляв панел.

Очакваният резултат е 2491.03 и докато проверявате изхода, можете да видите известна разлика в резултата. Несъответствието в резултат възникна поради стойността, взета от променлива А1. Тъй като това е целочислена променлива, това няма да приеме десетичната част от числото, като се обработва сумата само целочислената част.

  • За да избегнете това, преобразувайте числото A1 в двойно и присвойте преобразувания номер на друга променлива A3.

Код:

 Private Sub добавяне () Dim A1 като цяло число Dim A2 като двойна dim сума като двойна A1 = 1256.45 A2 = 1234.58 A3 = CDbl (1256.45) сума = A1 + A2 MsgBox сума End Sub

  • Сега добавете преобразуваната променлива с A2 вместо A1. Тъй като числото е преобразувано в двоен тип данни, стойността с плаващи числа ще бъде приета и добавена с A2.

Код:

 Private Sub добавяне () Dim A1 като цяло число Dim A2 като двойна дим сума като двойна A1 = 1256.45 A2 = 1234.58 A3 = CDbl (1256.45) сума = A2 + A3 MsgBox сума End Sub

  • Изпълнете този код, като натиснете F5 директно или ръчно натиснете бутона Run в горния ляв панел.

Стойността на сумата е коригирана и произведе очаквания резултат.

Неща, които трябва да запомните

  • Функцията VBA CDBL няма да приема стойности, а не число.
  • Ще бъде създадена грешка при несъответствие на типа, ако на функцията VBA CDBL се даде текстова стойност.
  • Двойният тип данни показва 13-цифрени десетични стойности.
  • Функцията VBA CDBL ви помага да получите правилен резултат, докато обработвате числата в Excel.

Препоръчителни статии

Това е ръководство за VBA CDBL функция. Тук обсъждаме как да използвате VBA CDBL функция за конвертиране на стойността в Double data type в Excel, заедно с някои практически примери и изтеглящ се шаблон на excel. Можете да разгледате и другите ни предложени статии -

  1. Коментар за блока на VBA
  2. SUMPRODUCT Функция в Excel
  3. VBA именуван обхват
  4. COMBIN функция в Excel

Категория:

VBA