VBA dubultā - Kā deklarēt dubultdatu tipu VBA?

Satura rādītājs

Excel VBA dubultdatu tips

Excel VBA dubultdatu tips

VBA Double ir sava veida datu tips, ko mēs piešķiram mainīgo mainīgajiem, kas ir uzlabota vai garāka “Single” datu tipa mainīgā versija un ko parasti izmanto, lai uzglabātu garākas zīmes aiz komata.

Datu tips VBA Integer vienmēr pārvērš decimālvērtības tuvākajā veselā skaitļa vērtībā. Viens datu tips var parādīt līdz diviem cipariem aiz komata. No otras puses, “Double” datu tips var saglabāt vērtības no -1,79769313486231E308 līdz -4,94065645841247E324 negatīvām vērtībām un pozitīviem skaitļiem - no 4,94065645841247E-324 līdz 1,79769313486232E308 .

Vēl svarīgāk ir tas, ka tas patērē 8 baitus atmiņas.

VBA Double Data Type izmantošanas piemēri

1. piemērs

Pirms redzam datu veida “Double” piemēru, aplūkosim VBA datu tipu “Integer” un “Single” piemēru kodus. Apskatiet zemāk redzamo VBA kodu.

Kods:

Sub Integer_Ex () Dim k As Integer k = 2,569999947164 MsgBox k End Sub

Esmu deklarējis mainīgo “k” kā veselu skaitli, un šim mainīgajam esmu piešķīris vērtību 2,569999947164.

Ļaujiet mums palaist šo kodu manuāli vai izmantojot Excel īsinājumtaustiņu F5, lai redzētu galīgo vērtību ziņojuma lodziņā VBA.

Rezultāts tiek parādīts kā 3, nevis norādītais numurs 2.569999947164. Iemesls VBA ir konvertējis skaitli uz tuvāko veselu skaitli, ti, 3.

Kad decimālvērtība ir lielāka par 0,5, tā tiks pārvērsta par nākamo veselā skaitļa vērtību un, kad decimāldaļa ir mazāka par 0,51, tad tā tiks pārveidota par zemāku par veselu skaitli.

Tagad mainīšu datu veidu no Integer uz Single.

Kods:

Sub Integer_Ex () Dim k kā viens k = 2,569999947164 MsgBox k End Sub

Palaidiet kodu, izmantojot īsinājumtaustiņu F5, un noskaidrojiet, kādu numuru mēs šoreiz iegūstam.

Šoreiz rezultāts bija 2,57, tātad šoreiz divas zīmes aiz komata. Sākotnējā vērtība, kuru esam piešķīruši, bija 2,569999947164, tāpēc šajā gadījumā, treškārt, izvietotā decimālvērtība ir 9, tāpēc, tā kā tā ir lielāka par 5, tā ir konvertējusi otrās vietas decimālvērtību 6 uz 7.

Tagad mainiet datu veidu no Single uz Double.

Kods:

Sub Integer_Ex () Dim k As Double k = 2,569999947164 MsgBox k Beigas Sub

Tagad palaidiet kodu manuāli un uzziniet, cik ciparu mēs saņemam ziņojumu lodziņa rezultātā.

Šoreiz ieguva visas decimālās vērtības. Sadaļā Double data type mēs varam piegādāt līdz 14 cipariem aiz komata.

Pieņemsim, ka jebkura vērtība, kas lielāka par 14 zīmēm aiz komata, tiks konvertēta uz tuvāko vērtību. Piemēram, apskatiet zemāk redzamo attēlu.

Esmu ierakstījis 15 zīmes aiz komata, nevis 14. Ja nospiedīšu ievadīšanas taustiņu, tā atgriezīsies tikai līdz 14 cipariem.

Instead of 59 (last two digits), we got 6 i.e., since the last digit is 9, which is greater than 5 previous number 5 is converted to the next integer value i.e., 6

Example #2

Now I will show how to work with cell reference in a worksheet. Below are the numbers I have entered in the worksheet.

Let us initiate capturing the same values to next by using INTEGER data type, SINGLE data type, and DOUBLE type.

Below is the code to retain values from column A to B by using the INTEGER data type.

Code:

Sub Double_Ex() Dim k As Integer Dim CellValue As Integer For k = 1 To 6 CellValue = Cells(k, 1).Value Cells(k, 2).Value = CellValue Next k End Sub

Let’s run the code through shortcut key F5 to see what values we get in column B.

Kad kā datu tipu izmantojām Integer, mēs saņēmām visus skaitļus, ti, bez decimāldaļām.

Tagad es mainīšu mainīgā lieluma VBA datu tipu no vesela uz Single.

Kods:

Apakšējais Double_Ex () Dim k kā vesels skaitlis Dim CellValue kā viens K = 1 līdz 6 CellValue = šūnas (k, 1). Vērtības šūnas (k, 2). Vērtība = CellValue Nākamais k Beigas Sub

Šis kods sniegs šādu rezultātu.

Šoreiz mēs saņēmām tikai divas zīmes aiz komata.

Tagad datu tips tiek mainīts no viena uz divkāršu.

Kods:

Sub Double_Ex () Dim k Integer Dim CellValue Kā Double for k = 1 līdz 6 CellValue = Šūnas (k, 1). Vērtības šūnas (k, 2). Vērtība = CellValue Nākamais k Beigas Sub