seychellesartprojects.org

Excel VBA RoundUp funkcija

Līdzīgi kā darblapas funkcija, kur skaitļus noapaļojam līdz tuvākajiem skaitļiem, VBA mums ir funkcija RoundUp, kas samazina decimāldaļu mums, un sintakse, lai izmantotu funkciju noapaļošana, ir šāda: ) šie divi funkcijas argumenti ir obligāti.

Strādājot ar skaitļiem un aprēķiniem, pēc visa skaitļa mēs iegūstam daļu skaitļus, un tas ir diezgan izplatīts ikdienas biznesā. Mēs parasti neuztraucamies par decimāldaļām, jo ​​tas neietekmē mūsu gala rezultātu. Šādās situācijās mums skaitļi jānoapaļo līdz tuvākajam veselajam skaitlim vai tūlītējam veselajam skaitlim. Izmantojot RoundUp funkciju, mēs faktiski varam veikt šo uzdevumu.

Ja VBA meklējāt funkciju RoundUp, to noteikti nevajadzēja atrast, jo tā ir darblapas funkcija. Lai piekļūtu funkcijai RoundUp, mums jāizmanto vba Worksheet Function klase.

Pirms tam atcerieties funkcijas RoundUp sintaksi.

Piemēri

Šo VBA RoundUp Excel veidni varat lejupielādēt šeit - VBA RoundUp Excel veidne

Veiksim skaitļa “288.5264” noapaļošanu. Mēs redzēsim visus skaitļus ar šo piemēru.

1. piemērs - kad otrais arguments ir nulle

Apskatiet zemāk redzamo VBA kodu.

Kods:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

• Kad palaidīsit iepriekš minēto kodu, tas konvertēs norādīto numuru, ti, 288.5264, uz tuvāko veselu skaitli, ti, 289

2. piemērs - kad otrais arguments ir 1

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, kad mēs izturam vienu kā otro argumentu.

Kods:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

• Šis kods konvertēs norādīto skaitli uz vienu ciparu aiz komata, ti, 288,6

3. piemērs - kad otrais arguments ir 2

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, kad mēs izturam divus kā otro argumentu.

Kods:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

• Šis kods konvertēs norādīto skaitli uz diviem cipariem aiz komata, ti, 288,53

4. piemērs - kad otrais arguments ir 3

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, ja mēs kā trīs argumentus izturam trīs.

Kods:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

• Šis kods konvertēs norādīto skaitli uz trim cipariem aiz komata, ti, 288 527

5. piemērs - kad otrais arguments ir -1

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, ja mēs kā otro argumentu izturam mīnus viens.

Kods:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

• Šis kods konvertēs norādīto numuru uz tuvāko desmit, ti, 290.

6. piemērs - kad otrais arguments ir -2

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, kad mēs kā otro argumentu izturam mīnus divi.

Kods:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

• Šis kods konvertēs norādīto numuru uz tuvāko simtu, ti, 300.

7. piemērs - kad otrais arguments ir -3

Apskatiet zemāk redzamo kodu, lai redzētu, kas notiek, kad mēs kā otro argumentu izturam mīnus trīs.

Kods:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

• Šis kods konvertēs skaitli uz tuvāko tūkstoti, ti, 1000.

Šādi mēs varam izmantot funkciju ROUNDUP VBA kā daļu no darblapas funkciju klases, lai noapaļotu skaitļus, pamatojoties uz sniegto otro argumentu.