Coba Fungsi Buatan Pengguna berikut:
Public Function txet(r As Range) As String
Dim s As String
s = Replace(r.NumberFormat, Chr(34), "")
txet = ""
If Len(s) < 3 Then Exit Function
s = Right(s, 3)
txet = s
End Function
Fungsi yang Ditentukan Pengguna (UDF) sangat mudah memasang dan gunakan:
- ALT-F11 menampilkan jendela VBE
- ALT-I
ALT-M membuka modul baru
- rekatkan barang-barang di dan tutup jendela VBE
Jika Anda menyimpan buku kerja, UDF akan disimpan bersamanya.
Jika Anda menggunakan versi Excel di kemudian 2003, Anda harus menyimpan
file sebagai .xlsm daripada .xlsx
Untuk menghapus UDF:
- buka jendela VBE seperti di atas
- hapus kode
- tutup jendela VBE
Untuk menggunakan UDF dari Excel:
=txet(A1)
Untuk mempelajari lebih lanjut tentang makro secara umum, lihat:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
dan
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
dan untuk spesifik tentang UDF, lihat:
http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx
Makro harus diaktifkan agar ini berfungsi!