
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
Beberapa kode Macro VBA yang harus dimasukkan ke dalam UserForm ini antara lain:
- 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
- Baris kode untuk menampilkan Tips di sebuah Label
Sub DisplayCurrentTip() If Tips.Count > 0 Then Label1.Caption = Tips.Item(CurrentTip) End If End Sub
- 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
- 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
- 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
- Baris kode terakhir adalah, tombol Next atau dalam contoh ini CommandButton1
Private Sub CommandButton1_Click() TipsKe End Sub
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
Incoming Search Terms
Kombinasi TextBox dan File Text (NotePad) untuk membuat jendela tips Mengambil informasi data dari file NotePad
Memperindah tampilan aplikasi dengan memberi jendela dialog tips untuk pengguna
Menampilkan jendela tips secara otomatis ketika file excel dijalankan
Cara mudah untuk mengimport data dari file NotePad kedalam lembar kerja Ms. Excel
Terimakasih sudah membaca
Tutorial: Membuat Sendiri Jendela Tips Aplikasi Dari File Txt
Label: TextBox - Author: excelive
Tutorial: Membuat Sendiri Jendela Tips Aplikasi Dari File Txt
Label: TextBox - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :