Formating Cell VBA

                  Format Cell

Format Cell pada pasiliatas VBA dapat anda gunakan dalam penulisan di sebuah Modul yang menjadikan alamat cell di lembar excel sebagai target acuan
Berikut Macam – macam  format yang perlu di ketahui antara lain :

1.General

Range("A3 : A10").NumberFormat = "General"

2.NumberFormat           : Format Angka

Range("A3 : A10").NumberFormat = "0000000000"  

3.Currency Mata Uang

Range("A3 : A10").NumberFormat = "$#,##0.00"

4.Accounting

Range("A3 : A10").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

5.Date atau Tanggal

Range("A3 : A10").NumberFormat = "yyyy-mm-dd;@"
Range("A3 : A10").NumberFormat = "dd/mm/yyyy"                                                        
Range("A3 : A10").NumberFormat = "[$-421]dd mmmm yyyy"   

6.Time atau menit

Range("A3 : A10").NumberFormat = "h:mm:ss AM/PM;@"

7.Percentase %

Range("A3 : A10").NumberFormat = "0.00%"

8.Fraction

Range("A3 : A10").NumberFormat = "# ?/?"

9.Scientific

Range("A3 : A10").NumberFormat = "0.00E+00"

10.Text atau Hurup

Range("A3 : A10").NumberFormat = "@"

11.Special

Range("A3 : A10").NumberFormat = "00000"

12.Custom

Range("A3 : A10").NumberFormat ="$#,##0.00_);[Red]($#,##0.00)"

Contoh Penulisan1

Sub pengatuaranCell ()
Sheets("Sheet1"). Range("A3 : A10").NumberFormat = "00000"
End Sub
Contoh Penulisan2

Sub Atur_format()
With Sheets("Sheet1")
.Range("A3 : A10").NumberFormat = "000"
.Range("B3 : B10").NumberFormat = "yyyy-mm-dd;@"
.Range("C3 : C10").NumberFormat = "dd/mm/yyyy"
.Range("D3 : D10").NumberFormat = "[$-421]dd mmmm yyyy"
.Range("E3 : E10").NumberFormat = "$#,##0.00"
End With
End Sub

Selesai
Silahkan dicoba atau dipraktekkan langsung dilembar kerja excel
Semoga bermanfaat