Hampir setiap aplikasi memiliki sebuah jendela Tips yang berfungsi untuk mempermudah pengguna dalam mengoperasikan aplikasi bersangkutan. Pada umumnya, jendela tips berisi sebuah saran atau bantuan yang berupa teks yang bertujuan untuk mengajak atau memberikan arahan kepada pengguna aplikasi dalam bertindak atau mengambil keputusan.

Sebenarnya untuk membuat desain Jendela Tips ini sendiri terbilang sangatlah mudah, karena biasanya terdiri dari Label atau TextBox serta sebuah tombol yang diletakkan dalam sebuah UserForm. Akan tetapi, mengenai baris kodenya, bisa dibilang agak sedikit kompleks karena ada data yang berasal dari file lain yang harus disematkan dalam sebuah label atau TextBox.

Salah satu cara mudah untuk membuat tulisan atau saran yang terdapat dalam jendela Tips ini adalah dengan menggunakan aplikasi pengolah kata sederhana seperti Notepad++, dan menyimpannya dengan format Txt.

Tutorial kali ini berisi tentang bagaimana membuat sebuah jendela tips yang mana data tips berasal dari sebuah file txt, sementara untuk desain jendela ini yang dibutuhkan adalah objek-objek antara lain:

• Userform
• TextBox
• CommandButton

Sebelum melanjutkan tutorial ini, pastikan Anda sudah mendesain jendela tips dari objek-objek yang sudah saya sebutkan di atas.

Beberapa kode Macro VBA yang harus dimasukkan ke dalam UserForm ini antara lain:

1. Kode untuk mendeklarasikan sebuah file txt, dalam tutorial ini nama filenya adalah FileTips.Txt
   

   Option Explicit
   Dim Tips As New Collection
   Const NamaFile = "FileTips.TXT"
   Dim CurrentTip As Long

2. Baris kode untuk menampilkan Tips di sebuah Label
   

   Sub DisplayCurrentTip()
   If Tips.Count > 0 Then
   Label1.Caption = Tips.Item(CurrentTip)
   End If
   End Sub

3. Fungsi Kustom untuk membaca file txt yang akan di sematkan ke dalam Label
   

   Function BacaTips(Lokasi As String) As Boolean
   Dim NextTip As String
   Dim FileX As Integer
   
   FileX = FreeFile
   
   If Lokasi = "" Then
   BacaTips = False
   Exit Function
   End If
   
   If Dir(Lokasi) = "" Then
   BacaTips = False
   Exit Function
   End If
   
   Open Lokasi For Input As FileX
   While Not EOF(FileX)
   Line Input #FileX, NextTip
   Tips.Add NextTip
   Wend
   Close FileX
   
   Call DoNextTip
   BacaTips = True
   End Function

4. Kode untuk mengatur mode pembacaan tips
   

   Sub TipsKe()
   CurrentTip = CurrentTip + 1
   If Tips.Count < CurrentTip Then         
   CurrentTip = 1     
   End If     
   DisplayCurrentTip End Sub

   Jika ingin membaca tips secara acak gunakan kode berikut:
   

   Sub TipsKe()
   CurrentTip = Int((Tips.Count * Rnd) + 1)
   DisplayCurrentTip
   End Sub

5. Kode untuk menampilkan informasi kepada pengguna
   

   Private Sub UserForm_Initialize()
   If BacaTips(ThisWorkbook.Path & "\" & NamaFile) = False Then
   Label1.Caption = "File " & NamaFile & " tidak bisa ditemukan? " & vbCrLf & vbCrLf & _
   "Silahkan buat file .txt dengan nama " & NamaFile & " menggunakan Notepad, " & _
   "kemudian simpan dalam 1 folder dengan file (aplikasi) ini. "
   End If
   End Sub

6. Baris kode terakhir adalah, tombol Next atau dalam contoh ini CommandButton1
   

   Private Sub CommandButton1_Click()
   TipsKe
   End Sub

Silahkan buka jendela Tips ini dengan menekan tombol pintas F5 yang ada dikeyboard Anda atau klik ikon di menubar.
Jika jendela ini menampilkan informasi bahwa tidak ada file FileTips.txt, itu artinya Anda belum membuat sebuah file dengan nama ini atau file tidak ditempatkan dalam satu folder dengan file atau aplikasi ini. Hasil akhir dari Jendela tips

Finish....
Sekarang anda sudah berhasil mengetahui bagaimana caranya membuat sendiri jendela tips sebuah aplikasi yang dibangun dari sebuah file teks (notepad). Semoga tutorial ini ada guna dan manfaatnya untuk anda.
Silahkan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainyya bersama excelive.com

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :