Denne opplæringen vil demonstrere hvordan du bruker CDbl VBA -funksjonen til å konvertere uttrykk til dobbel datatype.
CDbl -funksjon
VBA CDbl Konverter uttrykk til heltall
VBA CDbl -funksjonen kan brukes til å konvertere uttrykk til dobbel datatype inne i VBA -kode.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Resultat er: 12.345MsgBox CDbl (-124) 'Resultat er: -124MsgBox CDbl (0.000034) 'Resultat er: 0.000034MsgBox CDbl (-12.000034) 'Resultat er: -12.000034Slutt Sub |
VBA CDbl -konvertering av streng til dobbel
VBA CDbl -funksjonen kan brukes til å konvertere strenger til dobler hvis tegnene i strengen har en betydning som tall.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx som strengStrEx = "112"MsgBox CDbl (StrEx)'Resultatet er: 112StrEx = "0.0003"MsgBox CDbl (StrEx)'Resultatet er: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Resultatet er: 1100002, ignoreresStrEx = "$ 112"MsgBox CDbl (StrEx)'Resultatet er: 112 $ blir ignorertSlutt Sub |
VBA -programmering | Kodegenerator fungerer for deg!
VBA CDbl Run-Time Error 13 Type Mismatch
Bruk av VBA CDbl-funksjon med strenger som inneholder ikke-numeriske tegn eller tegn som ikke har betydning i numerisk kontekst, vil resultere i en Run-Time-feil '13': Type mismatch.
| 1234567 | Sub CDblExample_3 ()'Koden nedenfor vil resultere i en FEIL -melding'CDbl kan ikke håndtere ikke -numeriske tegnDim StrEx som strengStrEx = "Ab13"MsgBox CDbl (StrEx)Slutt Sub |
VBA CDbl regionale innstillinger
VBA CDbl -funksjonen har forskjellige atferdskonverterende strenger med komma eller prikk. Den bruker de regionale innstillingene i operativsystemet for desimalseparator og tallseparator.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx som strengStrEx = "1,9"MsgBox CDbl (StrEx)'Hvis regionale innstillinger har, som en gruppering separator da'Resultatet er: 19'Hvis regionale innstillinger har, som en desimalseparator da'Resultatet er: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)'Hvis regionale innstillinger har. som en gruppering separator da'Resultatet er: 19'Hvis regionale innstillinger har. som desimalseparator da'Resultatet er: 1.9Slutt Sub |
VBA CDbl Konvertering av booleske til dobler
VBA CDbl -funksjonen kan konvertere boolske variabler til dobler. Hvis det evaluerte uttrykket er sant, er den resulterende dobbelten -1 og hvis det evaluerte uttrykket er usant, er den resulterende dobbelten 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx As BooleanBoolEx = SantMsgBox CDbl (BoolEx) 'Resultat er: -1MsgBox CDbl (2 = 2) 'Resultat er: -1BoolEx = FalskMsgBox CDbl (BoolEx) 'Resultat er: 0MsgBox CDbl (1 = 2) 'Resultat er: 0Slutt Sub |
Lei av å søke etter eksempler på VBA -kode? Prøv AutoMacro!
VBA CDbl Konvertering av datoer til dobler
VBA CDbl -funksjon kan konvertere en datovariabel til et heltall. Den returnerte verdien er det interne nummeret som excel brukte for datalagring avrundet.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = #2/3/1940 #MsgBox CDbl (DateEx)'Resultatet er: 14644DateEx = #8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)'Resultatet er: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)'Resultatet er: 12485.4806018519Slutt Sub |
