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

2 thoughts on “Fungsi Membalik kalimat atau kata

Leave a Reply

Your email address will not be published. Required fields are marked *