Mi az Excel VBA CDBL?

A CDBL egy VBA függvény, melynek segítségével a kifejezéseket dupla adattípusra konvertálják. A VBA számos adatkonverziós funkciót tartalmaz. Ez segít megváltoztatni a változó vagy érték adattípusát egyikről a másikra. Különböző számítások esetén a megfelelő eredmény eléréséhez szükséges az átalakítás. A CDBL az egyik olyan adatkonverziós funkció, amely a VBA Típuskonverziós függvényeiben található. A CDBL a 'Convert to double' kifejezést jelenti. Az adatok feldolgozása során olyan helyzetekben találkozhat, amelyekkel az egész számokat duplájára változtathatja. A pontos eredmény kinyomtatásához ez a funkció segít. A VBA CDBL funkció csak számokat fogad el. Bármely kifejezés, kivéve a számokat, eltérést eredményez.

A CDBL függvény formátuma az Excel VBA-ban

A CDBL egy egyszerű funkció, amely egyetlen kifejezést igényel a VBA-ban való működéshez. A kifejezésnek számnak kell lennie.

  • Kifejezés: Az a szám, amelyet lebegő számmá kíván konvertálni.

Ha a kifejezés a számtól eltérő, akkor a függvény hibát eredményez. Lásd az alábbi példát, ahol egy nem szám kifejezést adunk át a CDBL függvénynek, és hibatípus eltérést eredményez.

A CDBL funkció használata a VBA-ban

Vizsgáljuk meg, hogy a VBA CDBL funkció miként segít nekünk az adatfeldolgozásban. Az egyértelmű kép és az adattípus megváltoztatásának gyakorlati alkalmazásának megértéséhez olvassa el az alábbi példát. Láthatja a különbséget ugyanazon a változónál használt adattípus szerint.

  • Nyilatkoztasson egy változót egész adattípusként, és rendeljen hozzá lebegő értéket. Az érték nyomtatása közben nézze meg, hogyan fogja megjeleníteni az értéket.

Kód:

 Private Sub addconvert () Dim b egész számként vége Sub

  • A deklarált egész változóhoz úszó értéket rendelnek. A 785.456923785475 hozzá van rendelve a b változóhoz, amely egész szám.

Kód:

 Privát Sub addconvert () Dim b Egész szám b = 785.456923785475 End Sub

  • Üzenetmező segítségével nyomtassa ki a hozzárendelt értéket.

Kód:

 Privát Sub addconvert () Dim b Egész szám b = 785.456923785475 MsgBox b End Sub

Nézze meg, hogy az eredmények miként mutatják a különbséget az érték kinyomtatásakor.

Ön számot rendelt lebegő értékekkel, de a kimenet csak az adott szám egész számát mutatja. Itt a „b” változót egész számként deklarálják, tehát nem fogad lebegő értéket. A tizedes érték egész számát vesszük, és a tizedes részt kerüljük el. Mivel a változót egészként deklarálják, a számot a legközelebbi egészre kerekítik.

Az adatok olyan módon történő kinyomtatásához, hogy a változó adattípust kettősre változtatja az egész adattípus helyett.

  • Ugyanazon kód egyszerű módosításával kinyomtathatja az adott számot, ahogy van. Deklarálja a változót kettős adattípusként.

Kód:

 Privát Sub addconvert () Dim b Mint Double End Sub

  • A kettős számot a deklarált kettős változóhoz rendelik. A 785.456923785475 a b változóhoz van hozzárendelve, amely adattípusban kettős.

Kód:

 Privát Sub addconvert () Dim b As Double b = 785.456923785475 End Sub

  • Üzenetmező segítségével nyomtassa ki a hozzárendelt értéket.

Kód:

 Privát Sub addconvert () Dim b As Double b = 785.456923785475 MsgBox b End Sub

Nézze meg, hogy az eredmények miként mutatják a különbséget az érték kinyomtatásakor. Ön számot rendelt lebegő értékekkel.

Hasonlítsa össze mindkét kimenetet, így láthatja a különbséget. Még az adatok és a változó azonosak, az adattípus változása megváltoztatta a teljes kimenetet. Ebből megtudhatja az adattípus fontosságát és azt, hogy az hogyan befolyásolja az egész programot. Ez az oka annak, hogy más típusú konvertáló funkciókat használjunk a VBA-nál.

Példák a CDBL funkcióra az Excel VBA-ban

Az alábbiakban bemutatjuk a VBA különféle példáit duplavá alakításra.

Itt letöltheti ezt a VBA CDBL Excel sablont - VBA CDBL Excel sablon

1. példa: A karakterlánc-adattípus konvertálása duplara

Lássuk, hogyan teljesít az adatkonverzió, és milyen változtatásokat hajthat végre az adatkonverziós funkciók segítségével. A karakterlánc olyan adattípus, amely minden adattípust elfogad. A változót stringként definiálják, és számot rendel hozzá.

  • Használjon privát függvényt a különféle adattípusok változásainak ellenőrzéséhez, hozzon létre függvényt, amely magántulajdonba konvertálja az „a” változó karakterlánccá nyilvánítását.

Kód:

 Privát Sub konvertáló () Szűkít egy karakterlánc végén Sub

  • A konvertálás végrehajtásához változóra van szüksége. Mivel a változó kettős adattípusré konvertálódik, deklarálja kettős adattípusnak. Az adatkonverzió után az értéket hozzá fogják rendelni ehhez a változóhoz.

Kód:

 Privát Sub átalakítás () Dim a As String Dim Átalakítás kettős vég Sub

  • Rendeljen 1234.5645879 lebegő számot a karakterláncváltozóhoz. A karakterlánc adattípus lebegő értékekkel rendelkező számokat fogja elfogadni.

Kód:

 Privát Sub átalakító () Dim a As String Dim Átalakítás kettõssé a = 1234.5645879 End Sub

  • Most használja a VBA CDBL funkciót az érték kétszeresére konvertálására. Használhatja a 'convert' változót, amelyet kettős adattípusként deklarálnak. Adja az 'a' változót kifejezésként a CDBL függvényhez.

Kód:

 Privát Sub átalakítás () Dim a As String Dim Átalakítás kettős formában a = 1234.5645879 convert = CDbl (a) End Sub

  • A kimeneti érték megtekintéséhez nyomtasson egy üzenetmezővel.

Kód:

 Privát Sub átalakítás () Dim a As String Dim átalakítás kettõssé a = 1234.5645879 convert = CDbl (a) MsgBox convert Sub Sub End

  • Futtassa ezt a kódot az F5-ös közvetlen megnyomásával vagy a bal felső panelen található Futtatás gomb manuális megütésével.

  • Az 'a' változóhoz rendelt értéket lebegőpontokkal és egész számmal kell nyomtatni. Az értéket kettős adattípusra konvertálják, és az alábbiak szerint nyomtatják ki.

2. példa - Két szám konvertálása és hozzáadása

Két változóval felveheti és megtalálhatja az összeget a számítás részeként. Mindkettő lebegő szám, tizedes értékekkel. De az egyik változót egész számnak, a másik kettõssé nyilvánítják.

  • Hozzon létre egy függvény-összeadást a két szám összegének meghatározásához. Két A1 és A2 változót egész számnak és kettősnek kell deklarálni.

Kód:

 Privát Sub add () Dim A1 Mint egész szám Dim A2 Mint dupla vég Sub

  • Rendelje hozzá a két számot a megfelelő változókhoz. Mindkettő két úszó szám, tizedes értékekkel.

Kód:

 Privát Sub add () Dim A1 egész számként Dim A2 duplaként A1 = 1256, 45 A2 = 1234, 58 End Sub

  • Deklaráljon egy harmadik változó összeget kettős adattípusnak, mivel az eredmény kettős érték lesz.

Kód:

 Privát Sub add () Dim A1 egész számként Dim A2 dupla Dim összeg dupla A1 = 1256, 45 A2 = 1234, 58 End Sub

  • Adja hozzá a megadott két számot, és tegye az eredményt a változó összegbe.

Kód:

 Privát Sub add () Dim A1 egész számként Dim A2 duplaként Dim összeg duplaként A1 = 1256, 45 A2 = 1234, 58 összeg = A1 + A2 End Sub

  • Üzenetmező használatával kinyomtathatja a kimenetet.

Kód:

 Privát Sub add () Dim A1 egész számként Dim A2 duplaként Dim összeg duplaként A1 = 1256, 45 A2 = 1234, 58 summa = A1 + A2 MsgBox összeg vége Sub

  • Futtassa ezt a kódot az F5-ös közvetlen megnyomásával vagy a bal felső panelen található Futtatás gomb manuális megütésével.

A várt eredmény 2491.03, és a kimenet ellenőrzése közben láthat különbséget az eredményben. Az eredmény eltérése az A1 változó által vett érték miatt történt. Mivel ez egy egész változó, ezért a szám tizedes részét nem fogadja el, csak az egész rész kerül az összeg feldolgozásakor.

  • Ennek elkerülése érdekében konvertálja az A1 számot kétszeresére, és rendelje hozzá az átalakított számot egy másik A3 változóhoz.

Kód:

 Privát Sub hozzáadás () Dim A1 Egész számként Dim A2 Kettős Dim összeg Kettős A1 = 1256, 45 A2 = 1234, 58 A3 = CDbl (1256, 45) összeg = A1 + A2 MsgBox összeg End Sub

  • Most adjuk hozzá a konvertált változót A2-vel az A1 helyett. Mivel a számot dupla adattípusba konvertálják, a lebegő számokkal történő értéket elfogadjuk és hozzáadjuk az A2-vel.

Kód:

 Privát Sub add () Dim A1 egész számként Dim A2 duplaként Dim összeg duplaként A1 = 1256, 45 A2 = 1234, 58 A3 = CDbl (1256, 45) összeg = A2 + A3 MsgBox összeg vége Sub

  • Futtassa ezt a kódot az F5-ös közvetlen megnyomásával vagy a bal felső panelen található Futtatás gomb manuális megütésével.

Az összeg korrigálva lett, és a várt eredményt hozta.

Dolgok, amikre emlékezni kell

  • A VBA CDBL függvény nem számot, hanem értékeket fogad el.
  • Típus eltérés hiba lép fel, ha szöveges értéket adnak a VBA CDBL funkciónak.
  • A kettős adattípus 13 számjegyű tizedes értéket jelenít meg.
  • A VBA CDBL funkció segít a megfelelő eredmény elérésében a számok Excelben történő feldolgozása közben.

Ajánlott cikkek

Ez egy útmutató a VBA CDBL funkcióhoz. Itt tárgyaljuk, hogyan lehet a VBA CDBL függvényt felhasználni az érték dupla adattípusra konvertálására az Excelben, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. VBA blokk megjegyzés
  2. ÖSSZEFOGLALÁS Funkció Excelben
  3. VBA nevű sorozat
  4. KOMBIN funkció Excelben

Kategória:

VBA