Fungsi Membalik kalimat atau kata

Ini mungkin fungsi Iseng atau supaya orang tidak bisa membaca  … Karena kita membalik tulisan.  Caranya adalah:

1. Klik Alt+F11 untuk membuka Visual Basic Editor (VBE).
2. Dari menu Insert , pilih Module (untuk menambah sebuah module).
3. Masukkan kode-kode berikut dalam module:

Function BalikText(text) As String

	Dim PanjangText As Integer
	Dim i As Integer
	PanjangText = Len(text)
	For i = PanjangText To 1 Step -1
		BalikText = BalikText & Mid(text, i, 1)
	Next i

End Function

Silahkan coba sendiri   yaitu  =BalikText(alamat sel yang ada textnya)    … dan ketawa sendiri

Fungsi Triwulan Excel

Jika anda membuat laporan yang memiliki periode Triwulan (Quarter) maka dengan menggunakan fungsi Datepart() dalam VBA excel akan memudahkan anda untuk mengotomatiskan label/ atau judul laporan

Caranya adalah

1. Tekan Alt+F11 untuk membuka VBE.
2. Double-click Module name dalam Workbook, atau masukkan Module baru dalam Personal Macro Workbook dengan memilih Module dari menu Insert

3. Masukkan kode di bawah ini kedalam Module:

Function TriwulanKe(Masukan_Tanggal)
TriwulanKe = DatePart (“Q”, Masukan_Tanggal)
End Function

Jangan lupa untuk menyimpan dengan mengklik save atau tanda disket yang ada di Toolbar.

Untuk Mencoba module anda:

1. Pilih sel kosong dan tekan Shift+F3 untuk membuka Function dialog box.
2. Pilih Kategori User Defined , Pilih TriwulanKe, kemudian klik OK.
3. Dalam dialog box Function Arguments, masukan alamat sel yang berisi date, dan klik OK.

Kalau anda ingin mengkombinasikan dengan Kata-kata dan Angka Romawi

=”Triwulan Ke “&Roman(TriwulanKe(A27))

Rumus Triwulan