Property penting dari range Object
Property adalah karakteristik dari suatu Object, yang dapat kita set/ubah nilainya atau kita lihat hasilnyaJika property bersifat read-only maka kita tidak bisa mengeset/mengubah property tersebut hanya dapat mengetahui nilainya saja
Value property dan Text property
Kalau value adalah nilai yang tersimpan di cell sedangkan text adalah nilai yang terlihat di cellJadi jika cell terpilih (bisa kita rujuk dengan keyword Selection) kita isi dengan 12548596000 lalu kita format Comma maka :
code selection.value akan menghasilkan nilai 12548596000
Sedangkan code selection.text akan menghasilkan 12,548,596,000.00
Text adalah property read-only
Formula Property dan Formula R1C1 Property
Formula property akan memberikan nilai berupa formula yang terdapat pada suatu cell seperti yang ditampilkan di formula bar (termasuk tanda =) , jika isinya konstant maka akan dihasilkan nilai konstant tsb.Sedang FormulaR1C1 akan menghasilkan formula namun dengan notasi R1C1 (Row dan Column relatif terhadap sel yang berisi formula)
Property ini akan error jika range lebih dari 1 cell
Berikut adalah contoh dari penggunaan property diatas, kita buat dulu commandbutton dan kita isi dengan procedure sbb
Sub Button_ValueTextFormula_Click()
Dim strResult
strResult = strResult & "Selection.Value : " & Selection.Value & vbCrLf _
& "Selection.Text : " & Selection.Text & vbCrLf _
& "Selection.Formula : " & Selection.Formula & vbCrLf _
& "Selection.FormulaR1C1 : " & Selection.FormulaR1C1
MsgBox strResult
End Sub
Kita buat formula di worksheet lalu kita format dengan currency, Ini hasilnya
B1 akan diubah menjadi notasi R1C1 menjadi R[-1]C karena baris naik keatas (-1) dan kolom tetap (0/blank)
Font Property dan Interior Property
Font property akan menghasilkan Font Object yang juga memiliki Property dan methods, begitu juga Interior PropertyProperty dari Object Font antara lain adalah Bold yang bisa mengubah huruf menjadi Bold/non-Bold
Property Interior juga akan menghasilkan Interior Object yang antara alain memiliki property Color (mengubah background dari range)
Misalnya :
Sub Change_Bold_Blue()
'mengubah menjadi Bold
Range("A1:A3").Font.Bold = True
'mengubah background menjadi biru
'fungsi RGB untuk mencari warna biru
Range("A1:A3").Interior.Color = RGB(0, 0, 255)
End Sub
Tidak ada komentar:
Posting Komentar