Ši pamoka parodys, kaip naudoti funkciją CDbl VBA, norint išraiškas konvertuoti į dvigubo tipo duomenis.
CDbl funkcija
VBA CDbl Konvertuoti išraišką į sveikąjį skaičių
VBA CDbl funkcija gali būti naudojama išraiškoms konvertuoti į dvigubo tipo VBA kodą.
| 123456 | Antrasis CDblExample_1 ()„MsgBox CDbl“ (12.345) „Rezultatas: 12.345„MsgBox CDbl“ (-124) rezultatas: -124„MsgBox CDbl“ (0,000034) rezultatas: 0,000034„MsgBox CDbl“ (-12.000034) „Rezultatas: -12.000034Pabaiga Sub |
VBA CDbl eilutės konvertavimas į dvigubą
VBA CDbl funkcija gali būti naudojama eilutėms paversti dvigubomis, jei eilutės simboliai turi reikšmę kaip skaičiai.
| 123456789101112131415161718 | CDblExample_2 ()„Dim StrEx“ kaip eilutėStrEx = "112"„MsgBox CDbl“ („StrEx“)Rezultatas: 112StrEx = "0,0003"„MsgBox CDbl“ („StrEx“)Rezultatas: 0,0003StrEx = "11,00002"„MsgBox CDbl“ („StrEx“)„Rezultatas: 1100002, nepaisoma„StrEx“ = „112 USD“„MsgBox CDbl“ („StrEx“)„Rezultatas: 112 USD nepaisomaPabaiga Sub |
VBA programavimas | Kodo generatorius jums tinka!
VBA CDbl vykdymo laiko klaida 13 Tipo neatitikimas
Naudojant VBA CDbl funkciją su eilutėmis, kuriose yra neskaitinių simbolių ar simbolių, neturinčių reikšmės skaitiniame kontekste, atsiras vykdymo laiko klaida „13“: tipo neatitikimas.
| 1234567 | CDblExample_3 ()„Žemiau pateiktas kodas parodys klaidos pranešimą„CDbl negali apdoroti ne skaitinių simbolių„Dim StrEx“ kaip eilutėStrEx = "Ab13"„MsgBox CDbl“ („StrEx“)Pabaiga Sub |
VBA CDbl regioniniai nustatymai
VBA CDbl funkcija turi skirtingą elgesį, konvertuojančią eilutes kableliais ar taškais. Jis naudoja operacinės sistemos regioninius nustatymus dešimtainiam ir skaitmenų skyrikliui.
| 12345678910111213141516 | Antrasis CDblExample_4 ()„Dim StrEx“ kaip eilutė„StrEx“ = „1,9“„MsgBox CDbl“ („StrEx“)„Jei yra regioniniai nustatymai, tada kaip grupavimo atskyriklis„Rezultatas: 19„Jei regioniniai nustatymai turi, kaip dešimtainis skyriklis, tada„Rezultatas: 1,9StrEx = "1,9"„MsgBox CDbl“ („StrEx“)„Jei regioniniai nustatymai turi. kaip grupavimo atskyrėjas tada„Rezultatas: 19„Jei regioniniai nustatymai turi. kaip dešimtainis skyriklis tada„Rezultatas: 1.9Pabaiga Sub |
VBA CDbl „Booleans“ konvertavimas į dvigubą
VBA CDbl funkcija gali konvertuoti loginius kintamuosius į dvigubus. Jei įvertinta išraiška yra teisinga, gautas dvigubas yra -1, o jei įvertinta išraiška klaidinga, gauta dviguba yra 0.
| 12345678910 | CDblExample_5 ()„Dim BoolEx“ kaip „Boolean“„BoolEx“ = tiesa„MsgBox CDbl“ („BoolEx“) rezultatas: -1„MsgBox CDbl“ (2 = 2) „Rezultatas: -1BoolEx = klaidinga„MsgBox CDbl“ („BoolEx“) rezultatas: 0„MsgBox CDbl“ (1 = 2) „Rezultatas: 0Pabaiga Sub |
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
VBA CDbl Datų keitimas į dvigubas
VBA CDbl funkcija gali konvertuoti datos kintamąjį į sveiką skaičių. Grąžinta vertė yra vidinis skaičius, kurį „Excel“ naudoja datos saugojimui, suapvalintas.
| 123456789101112 | CDblExample_6 ()Dim DateEx kaip dataDateEx = #2/3/1940 #„MsgBox“ CDbl („DateEx“)Rezultatas: 14644DateEx = 1964-07-07 22:41:00 #„MsgBox“ CDbl („DateEx“)„Rezultatas: 23596.9451388889DateEx = 1934-07-07 11:32:04 #„MsgBox“ CDbl („DateEx“)„Rezultatas: 12485.4806018519Pabaiga Sub |
