Berbagi Pengalaman dan Pengetahuan Berkaitan Dengan Materi Informatika

Konsultasi Project dan Skripsi

Adsense Tips

Kriptografi

Post Page Advertisement [Top]

Bagaimana menentukan tipe data secara otomatis pada excel? gunakan source code berikut ini untuk membuat fungsi baru menggunakan visual basic for application (VBA)



Function CellType(pRange As Range)
'Updateby20140625
Application.Volatile
Set pRange = pRange.Range("A1")
Select Case True
    Case VBA.IsEmpty(pRange): CellType = "Blank"
    Case Application.IsText(pRange): CellType = "Text"
    Case Application.IsLogical(pRange): CellType = "Logical"
    Case Application.IsErr(pRange): CellType = "Error"
    Case VBA.IsDate(pRange): CellType = "Date"
    Case VBA.InStr(1, pRange.Text, ":") <> 0: CellType = "Time"
    Case VBA.IsNumeric(pRange): CellType = "Value"
End Select
End Function



Ini videonya di Youtube


No comments:

Post a Comment

Terima Kasih Telah Berkunjung, Silakan Berkomentar...
Kritik dan Saran Teman-Teman Sangat Memotivasi Saya (^_^)

Bottom Ad [Post Page]

| Designed by Colorlib