photosdematures.com

Pag-andar ng Excel VBA CDBL

VBA CDBL ay isang inbuilt na uri ng pag-andar ng conversion ng uri ng data at ang paggamit ng pagpapaandar na ito ay na-convert nito ang uri ng data ng anumang naibigay na variable na halaga sa isang Dobleng uri ng data, ang pagpapaandar na ito ay tumatagal lamang ng isang argumento na ang halaga mismo ng variable.

Sa VBA ang "CDBL" ay nangangahulugang "I-convert sa Dobleng". Ang pagpapaandar na ito ay nagko-convert ng naibigay na numero sa Dobleng uri ng data. Tingnan ang syntax ng pagpapaandar ng CDBL.

• Pagpapahayag ay ang halaga na sinusubukan naming i-convert sa Dobleng uri ng data.

Ang anumang lumulutang na numero na nakaimbak bilang iba kaysa sa dobleng uri ng data ay maaaring mabago sa pamamagitan ng paglalapat ng pagpapaandar ng CDBL.

Ituro na Tandaan Ito: Ang mga halagang bilang lamang ang maaaring mapalitan sa Dobleng uri ng data. Ang anupaman maliban sa numerong halaga ay hindi maaaring i-convert sa dobleng uri, kaya't sa wakas ay ipinapakita ang "Type Mismatch Error sa VBA" tulad ng sa ibaba.

Nakapagamit ka na ba ng isang dobleng uri ng data sa pag-coding ng VBA?

Kung hindi ay sulit na tingnan ito ngayon. Doble ang uri ng data na ginamit upang maiimbak ang decimal na posisyon ng numero. Maaari kaming magkaroon ng hanggang sa 13 na lumulutang decimal na numero.

Para sa isang halimbawa tingnan ang sa ibaba VBA code.

Sa itaas, tinukoy ko ang variable (k) na uri bilang Integer. Dim k Bilang Integer

Susunod, naitalaga ko ang halaga bilang k = 25.4561248694615

Kapag pinatakbo ko ang code makukuha namin ang resulta bilang mga sumusunod.

Nakuha namin ang resulta bilang 25. Dahil natukoy namin ang variable bilang Integer VBA round sa pinakamalapit na halaga ng integer.

Upang maipakita ang resulta dahil kinakailangan nating baguhin ang variable type mula sa Integer patungong Double.

Ito ay dapat magbigay sa amin ng eksaktong numero bilang naitalaga namin sa variable.

Ok, isinasaisip ito maaari din naming mai-convert ang lahat ng mga numero ng praksyon na mga tindahan bilang isang hindi doble na uri ng data.

Mga halimbawa upang Gumamit ng VBA CDBL Function

Maaari mong i-download ang VBA CDBL Function Template na ito dito - VBA CDBL Function Template

Halimbawa # 1

Upang simulan ang paglilitis tingnan natin ang code sa ibaba.

Code:

 Sub Double_Example1 () Dim k Bilang String k = 48.14869569 MsgBox k End Sub 

Ngayon ay tatakbo ko ang code at tingnan kung ano ang mangyayari.

Kahit na ang uri ng variable na VBA ay "String" nagpapakita pa rin ito ng mga decimal na halaga. Ito ay dahil ang String ay maaaring sa anumang uri ng uri ng data kaya't ang desimal o lumulutang na mga numero ay nagpapakita ng tulad nito.

Ngayon ay babaguhin ko ang uri ng data mula sa string patungo sa Integer.

Code:

 Sub Double_Example1 () Dim k Bilang Integer k = 48.14869569 MsgBox k End Sub 

Ngayon ay tatakbo ko ang code at tingnan kung ano ang mangyayari.

Dito gumaganap ang pagpapaandar ng CDBL ng isang mahalagang papel upang mai-convert ang uri ng data ng integer sa doble. Kaya sa ibaba ang code ay pareho para sa iyo.

Code:

 Sub Double_Example1 () Dim IntegerNumber Bilang String Dim DoubleNumber As Double IntegerNumber = 48.14869569 DoubleNumber = CDbl (IntegerNumber) MsgBox DoubleNumber End Sub 

Io-convert nito ang halaga ng uri ng data ng string sa Dobleng.

Halimbawa # 2

Ngayon ay i-convert natin ang numero na 854.6947 na nakaimbak bilang Variant to Double data type.

Code:

 Sub Double_Example2 () Dim VaraintNumber Dim DoubleNumber As Double VaraintNumber = 854.6947 DoubleNumber = CDbl (VaraintNumber) MsgBox DoubleNumber End Sub 

Ang unang variable na idineklara ko bilang "Variant". Dim VaraintNumber

Tandaan: Kapag ang uri ng variable ay hindi idineklara ay nagiging isang pangkalahatang uri ng data na Variant.

Susunod, idineklara ko ang isa pang variable ibig sabihin, Dim DoubleNumber As Double

Para sa unang variable VaraintNumber, itinalaga namin ang halaga bilang 854.6947.

Ngayon sa pamamagitan ng paggamit ng pangalawang variable, inilapat namin ang pagpapaandar ng CDBL upang i-convert ang Variant na halaga sa Dobleng uri ng data.

DoubleNumber = CDbl (VaraintNumber)

Ang pangwakas na bahagi ay upang ipakita ang resulta sa kahon ng mensahe. MsgBox DoubleNumber

Ngayon tatakbo ko ang code upang makita ang resulta.

Bagay na dapat alalahanin

• Ang isang uri ng dobleng data ay maaaring tanggapin lamang ang mga numerong numero.
• Kung ang halaga ng teksto ay ibinibigay magdudulot ito ng isang error ng Type Mismatch.
• Ang isang dobleng uri ng data ay maaaring magpakita lamang ng 13 mga digit ng mga lumulutang na numero.