Denna handledning visar hur du använder CDbl VBA -funktionen för att konvertera uttryck till dubbel datatyp.
CDbl -funktion
VBA CDbl Konvertera uttryck till heltal
VBA CDbl -funktionen kan användas för att konvertera uttryck till dubbel datatyp inuti VBA -kod.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Resultat är: 12.345MsgBox CDbl (-124) 'Resultatet är: -124MsgBox CDbl (0.000034) 'Resultat är: 0.000034MsgBox CDbl (-12.000034) 'Resultatet är: -12.000034Avsluta Sub |
VBA CDbl Konvertera sträng till dubbel
VBA CDbl -funktionen kan användas för att konvertera strängar till dubbletter om tecknen i strängen har en betydelse som tal.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx som strängStrEx = "112"MsgBox CDbl (StrEx)'Resultatet är: 112StrEx = "0.0003"MsgBox CDbl (StrEx)'Resultatet är: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Resultatet är: 1100002, ignorerasStrEx = "$ 112"MsgBox CDbl (StrEx)'Resultatet är: 112 $ ignorerasAvsluta Sub |
VBA -programmering | Kodgenerator fungerar för dig!
VBA CDbl Run-Time Error 13 Type Mismatch
Om du använder VBA CDbl-funktion med strängar som innehåller icke-numeriska tecken eller tecken som inte har någon betydelse i numeriskt sammanhang kommer det att resultera i ett Run-Time-fel '13': Typmatchning.
| 1234567 | Sub CDblExample_3 ()'Koden nedan resulterar i ett ERROR -meddelande'CDbl kan inte hantera icke -numeriska teckenDim StrEx som strängStrEx = "Ab13"MsgBox CDbl (StrEx)Avsluta Sub |
VBA CDbl regionala inställningar
VBA CDbl -funktionen har olika beteendeomvandlande strängar med komma eller punkt. Den använder operativsystemets regionala inställningar för decimalavgränsare och siffraseparator.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx som strängStrEx = "1,9"MsgBox CDbl (StrEx)'Om regionala inställningar har, som en grupperingsavgränsare då'Resultatet är: 19'Om regionala inställningar har, som en decimalavgränsare då'Resultatet är: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)'Om regionala inställningar har. som en gruppseparator då'Resultatet är: 19'Om regionala inställningar har. som decimalseparator då'Resultatet är: 1.9Avsluta Sub |
VBA CDbl Konvertera booleska till dubbel
VBA CDbl -funktion kan konvertera booleska variabler till dubbla. Om det utvärderade uttrycket är sant är den resulterande dubbeln -1 och om det utvärderade uttrycket är falskt är den resulterande dubbeln 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx As BooleanBoolEx = SantMsgBox CDbl (BoolEx) 'Resultat är: -1MsgBox CDbl (2 = 2) 'Resultatet är: -1BoolEx = FalsktMsgBox CDbl (BoolEx) 'Resultat är: 0MsgBox CDbl (1 = 2) 'Resultatet är: 0Avsluta Sub |
Trött på att söka efter exempel på VBA -kod? Prova AutoMacro!
VBA CDbl Konvertera datum till dubbel
VBA CDbl -funktionen kan konvertera en datumvariabel till ett heltal. Det returnerade värdet är det interna nummer som används av excel för datumlagring avrundat.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = #2/3/1940 #MsgBox CDbl (DateEx)'Resultatet är: 14644DateEx = #8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)'Resultatet är: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)'Resultatet är: 12485.4806018519Avsluta Sub |
