Pages

Ads 468x60px

Menu Atas

advertise with us
Place your ads here
Pasang Iklan disini

Menampilkan Jam Digital Di Form

Jam digital
Untuk memanjakan pengguna aplikasi yang berbasis Excel atau sekedar memperindah sebuah tampilan Form, mungkin cara ini bisa Anda jadikan sebagai salah satu alternatifnya - yakni dengan menampilkan sebuah jam digital (seperti yang terlihat di system tray sistem operasi Windows).

Seperti biasanya, aktifkan terlebih dahulu jendela Microsoft Visual Basic - kemudian buat sebuah UserForm (UserForm1) dan sebuah Label (Label1). Dan langkah selanjutnya adalah memasukkan kode berikut :
Option Explicit
Dim Berhenti As Boolean

Private Sub UserForm_Activate()
Do Until Berhenti
    Label1 = FormatDateTime(Time, vbShortTime)
    DoEvents
Loop
End Sub
Private Sub UserForm_Terminate()
Berhenti = True
End Sub

Pilihan untuk mengubah format jam digital :
vbShortTime : tampilan jam tanpa detik (ex, 17:25)
vbLongTime : tampilan jam dengan detik (ex, 17:25:31)
Download file di sini

Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 29.12.12 | 20.39
Judul : Menampilkan jam digital di Form
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

TextBox Hanya Dapat Diisi Dengan Angka (Fixed)

Tutorial kali ini merupakan perbaikan dari tutorial sebelumnya atau mungkin bisa juga dijadikan sebagai alternatif dalam menjadikan TextBox hanya dapat diisi dengan angka saja.

Konsepnya dari tutorial ini adalah pengguna hanya dapat mengentry nilai dari 0 sampai dengan 9, dengan menggunakan kode sederhana dalam sebuah prosedur KeyPress untuk TextBox
Untuk dapat melakukannya, saya berasumsi dalam UserForm Anda terdapat sebuah TetBox dengan nama TextBox1.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
   Case Asc("0") To Asc("9")
   Case Else
     KeyAscii = 0
End Select
End Sub
Kode diatas akan memaksa pengguna untuk mengentry angka atau karakter mulai dari 0 sampai dengan 9

Jika ingin menyertakan simbol mata uang dalam textbox secara otomatis, maka tambahkan kode berikut
Private Sub TextBox1_Change()
   TextBox1 = Format(TextBox1, "Rp #,###")
End Sub
Artinya, setiap kali pengguna mengentry sebuah angka maka akan secara otomatis menampilkan sebuah simbol mata uang (Rp) didepannya.
Download file di sini


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 27.12.12 | 10:17
Judul : TextBox hanya dapat diisi dengan angka (Fixed)
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Are Your Backlinks Not Helping You Get Better Rankings? Here is How to Boost Them...

Submit your content Every Day to 25 social bookmarking ites, all on unique C class IPs... FREE.
If you want your pages to rank well in the search engines, you need to build backlinks, but in a smart and efficient way. This implies building backlinks to your money pages (Tier 1), but also to your existing backlinks (Tier 2), to boost them and pass on some link juice. Well, there is a link building service that allows you to do both with great ease.

This service is a proven link building solution that has already helped thousands, to not only build backlinks to their pages, but also boost their existing backlinks. Building  backlinks can be a time-consuming, boring process. You can outsource the process to an  agency and pay a lot of money, or you can do it yourself...

The service I'm talking about is SocialMonkee, which offers a quick and easy way to build backlinks to any page, whether it's your own page or a page that links to your page. Submitting a URL to SocialMonkee takes less than a few minutes, and it only takes a few seconds if you use the Firefox or Chrome Plugin (provided to you at no cost).

Whether or not you already build backlinks to your pages, SocialMonkee is a must-have. If you're new to link building, SocialMonkee is a great place to start as it's very easy to use and does a great job. If you already build backlinks but don't see the benefits, here is your chance to boost them and make them pass on some powerful link juice to your pages.

The system even integrates popular content spinning and link indexing tools so you can submit URLs even faster and get the most out of your backlinks. The network keeps growing, with new sites added every week, so sign up now and submit your URLs within the next few minutes to boost your rankings and get the traffic your pages deserve.

http://www.socialmonkee.com/index.php?af=28501

Isi ListBox Sesuai Dengan Data Dalam Sheet

ListBox memiliki fungsi yang hampir sama dengan ComboBox, hanya saja jika comboBox merupakan gabungan antara ListBox dengan TextBox, Sementara ListBox dapat menampilkan beberapa nilai sekaligus dan pengguna dapat memilih beberapa nilai atau data yang ditampilkan dalam Listbox tersebut.

Untuk Mengisi data atau nilai dalam ListBox, dapat dilakukan dengan berbagai cara. Namun jika ingin mengisi data dalam ListBox agar sesuai dengan data yang tertulis dalam sebuah sel atau range, mungkin cara berikut bisa menjadi salah satu alternatif.

Membuat UserForm dan ListBox
Langkah awal adalah dengan membuat sebuah UserForm serta membuat ListBox, sehingga akan tampak seperti ilustrasi berikut :
ListBox

Kode Isi ListBox
Buka kode untuk UserForm dan tempelkan kode berikut di dalamnya:
Private Sub UserForm_Initialize()
   Data = "A1:B7"
   ListBox1.ColumnCount = 2
   ListBox1.RowSource = Data
End Sub
Keterangan :
A1:B7 = Data yang ingin di tampilkan dalam ListBox
ColumnCount = Jumlah banyaknya kolom yang ditampilkan dalam ListBox

Finalizing
Pastikan bahwa terdapat data di sel A1:B7,
Untuk melihat hasil sementara, jalankan UserForm dengan menekan tombol F5 di keyboard

Hasil akhir akan tampak seperti ilustrasi berikut
Isi ListBox Sesuai Dengan Data Dalam Sheet
Download file di sini


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 17.12.12 | 21.46
Judul : Isi ListBox sesuai dengan data dalam Sheet
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Tampilan Userform Menjadi Transparan

Pada tutorial sebelumnya kita belajar cara membuat UserForm tampil di System Tray, baik secara otomatis ketika file dibuka atau di aktifkan dengan menggunakan tombol tertentu. Dan tutorial kali ini masih ada hubungannya dengan UserForm, yakni tentang cara membuat tampilan UserForm menjadi transparan.

Untuk lebih jelasnya, lihat dan bandingkan 2 gambar berikut :
Membuat UserForm Transparan
Untuk mengatur transparansi sebuah UserForm adalah dengan memasukkan nilai antara angka 0 sampai dengan 255, dimana semakin kecil angka yang dimasukkan maka objek akan semakin menghilang, dan sebaliknya semakin besar nilai yang dimasukkan maka objek akan tampil secara utuh (solid).

Untuk membuat UserForm memiliki transparasi seperti ini, maka yang harus dilakukan terlebih dahulu adalah dengan membuat UserForm itu sendiri. dan selanjutnya ...

Membuat Module dan Kode untuk Module
Klik Insert > Module untuk membuat sebuah Module baru, kemudian tempelkan kode ini di dalamnya.
Option Explicit
Private Const C_USERFORM_CLASSNAME = "ThunderDFrame"
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYEREs = &H80000
Private Const LWA_ALPHA = &H2&
Private Const C_ALPHA_FULL_TRANSPARENT As Byte = 0
Private Const C_ALPHA_FULL_OPAQUE As Byte = 100

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal crey As Byte, _
    ByVal bAlpha As Byte, _
    ByVal dwFlags As Long) As Long

Function SetFormOpacity(UF As MSForms.UserForm, Opacity As Byte) As Boolean
Dim UFHWnd As Long
Dim WinL As Long
Dim Res As Long
UFHWnd = HWndOfUserForm(UF)
Res = SetWindowLong(UFHWnd, GWL_EXSTYLE, WinL Or WS_EX_LAYERED)
Res = SetLayeredWindowAttributes(UFHWnd, 0, Opacity, LWA_ALPHA)
End Function Function HWndOfUserForm(UF As MSForms.UserForm) As Long
Dim UFHWnd As Long
Dim Cap As String

Cap = UF.Caption
UFHWnd = FindWindow(C_USERFORM_CLASSNAME, Cap)
If UFHWnd <> 0 Then
    HWndOfUserForm = UFHWnd
    Exit Function
End If
End Function

Kode untuk UserForm
Saya berasumsi dalam project VBA Anda sudah terdapat sebuah UserForm. Lihat Kode untuk UserForm tersebut (View code) kemudian tempelkan kode berikut di dalamnya.
Private Sub UserForm_Activate()
Dim T As Boolean
T = SetFormOpacity(UF:=Me, Opacity:=150)
End Sub

Penjelasan
Kode di atas akan secara otomatis dijalankan ketika UserForm di aktifkan, yakni dengan menjalankan sebuah perintah transparasi, dengan nilai transparasi 150.
Ubah sesuaikan nilai yang anda inginkan.

Untuk melihat hasil sementara dari kerjaan, tekan tombol F5 di keyboard.
Ada baiknya untuk tidak mengisi Opacity:=0, karena hal ini akan membuat UserForm benar-benar 'hilang' dan menyebabkan pengguna tidak bisa menutup UserForm
Download file di sini


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 14.12.12 | 08:55
Judul : Tampilan UserForm menjadi transparan
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

UserForm Terletak di System Tray

UserForm merupakan suatu kotak dialog yang pada umumnya digunakan untuk membangun sebuah rancangan aplikasi, dengan UserForm kita dapat menempatkan beberapa tombol, kotak isian, pilihan, daftar item, atau yang lainnya dengan tujuan untuk mempermudah pengguna lainnya

Ketika sebuah UserForm ditampilkan, maka pengguna tidak dapat mengakses lembar kerja atau sel yang ada di dalamnya (kecuali pengaturan tampilan UserForm diatur menjadi modeless) dan sel tersebut dapat kembali di akses ketika UserForm disembunyikan atau di tutup.

Namun untuk beberapa hal, barangkali kita menginginkan agar UserForm dapat disembunyikan atau disimpan ke System Tray saat pengguna mengklik tombol tertentu. Tutorial ini berisi tentang cara bagaimana agar UserForm dapat tersimpan atau terletak di System Tray, Hasil akhir dari tutorial ini akan tampak seperti berikut :


Membuat UserForm
Buatlah sebuah UserForm (UserForm1)dengan dua buah tombol masing-masing dengan nama CommanButton1 dan CommandButton2, seperti terlihat dalam ilustrasi berikut
Membuat UserForm System Tray Windows
Menambahkan Module
Untuk menambahkan sebuah Module, Klik menu Insert » Module
Selanjutnya tempelkan kode berikut didalamnya
Option Explicit
Declare Function SetForegroundWindow Lib "User32" (ByVal hwnd As Long) As Long
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" ( _
  ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal _
  lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam _
  As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd _
  As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName _
  As String, ByVal lpWindowName As String) As Long
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst _
  As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBL = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_ACTIVATEAPP = &H1C
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64
Public Const GWL_WNDPROC = (-4)

Type NOTIFYICONDATA
 cbSize As Long
 hwnd As Long
 uID As Long
 uFlags As Long
 uCallbackMessage As Long
 hIcon As Long
 szTip As String * MAX_TOOLTIP
End Type

Public nfIconData As NOTIFYICONDATA

Private FHandle As Long
Private WndProc As Long
Private Hooking As Boolean

Public Sub Hook(Lwnd As Long)
 If Hooking = False Then
  FHandle = Lwnd
  WndProc = SetWindowLong(Lwnd, GWL_WNDPROC, AddressOf WindowProc)
  Hooking = True
 End If
End Sub

Public Sub Unhook()
 If Hooking = True Then
  SetWindowLong FHandle, GWL_WNDPROC, WndProc
  Hooking = False
 End If
End Sub

Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam _
  As Long, ByVal lParam As Long) As Long
 If Hooking Then
  If lParam = WM_LBUTTONDBL Then
   UserForm1.Show 1
   WindowProc = True
   Exit Function
  End If
  WindowProc = CallWindowProc(WndProc, hw, uMsg, wParam, lParam)
 End If
End Function

Public Sub RemoveIconFromTray()
 Shell_NotifyIcon NIM_DELETE, nfIconData
End Sub

Public Sub AddIconToTray(MeHwnd As Long, MeIcon As Long, MeIconHandle As Long, _
  Tip As String)
 With nfIconData
  .hwnd = MeHwnd
  .uID = MeIcon
  .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  .uCallbackMessage = WM_RBUTTONUP
  .hIcon = MeIconHandle
  .szTip = Tip & Chr$(0)
  .cbSize = Len(nfIconData)
 End With
 Shell_NotifyIcon NIM_ADD, nfIconData
End Sub

Function FindWindowd(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 FindWindowd = FindWindow(lpClassName, lpWindowName)
End Function

Function ExtractIcond(ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal _
  nIconIndex As Long) As Long
 ExtractIcond = ExtractIcon(hInst, lpszExeFileName, nIconIndex)
End Function

Kode Dalam UserForm
Setelah membuat dan mengisi kode dalam Module, maka langkah selanjutnya adalah menempelkan kode berikut di dalam UserForm1.
Option Explicit
Private Sub CommandButton1_Click()
 Dim Me_hWnd As Long, Me_Icon As Long, Me_Icon_Handle As Long, IconPath As String
 Me_hWnd = FindWindowd("ThunderDFrame", UserForm1.Caption)
 IconPath = Application.Path & Application.PathSeparator & "excel.exe"
 Me_Icon_Handle = ExtractIcond(0, IconPath, 0)
 Hook Me_hWnd
 AddIconToTray Me_hWnd, 0, Me_Icon_Handle, "Double Click to re-open userform"
 Me.Hide
End Sub

Private Sub CommandButton2_Click()
 Application.Visible = True
 Unload Me
End Sub

Private Sub UserForm_Activate()
 RemoveIconFromTray
 Unhook
End Sub

Private Sub UserForm_Initialize()
 CommandButton1.Caption = "Minimize to tray"
 CommandButton2.Caption = "Close this form"
 Application.Visible = False
End Sub

Test UserForm System Tray
Untuk mencoba hasil akhir dari kerjaan, jalankan UserForm dengan cara tekan tombol F5 di keyboard anda. Atau anda dapat menggunakan kode untuk menjalankan UserForm ini secara otomatis saat file dibuka.
Catatan
Ketika Anda menjalankan UserForm ini, apabila terdapat sebuah atau beberapa dokumen Excel yang terbuka - maka akan secara otomatis dokumen tersebut di sembunyikan, dan hanya akan menampilkan UserForm ini.
Hasil akhir dari materi tutorial ini dapat anda download gratis di sini
belajar excel
Tutorial Excel Lainnya :

Membuat Form Login Sederhana

Dalam setiap aplikasi seringkali kita menjumpai sebuah form atau jendela yang mengharuskan pengguna untuk memasukkan sebuah kata kunci atau password agar dapat menikmati layanan dari aplikasi tersebut, sehingga hal ini memungkinkan sebuah aplikasi hanya bisa dijalankan oleh pengguna yang tahu password-nya saja.

Membuat Form Login seperti penjelasan di atas dapat dilakukan dengan mudah dan sederhana, dan berikut ini rumahexcel akan menyuguhkan langkah-langkah untuk membuatnya.

Form login yang akan buat akan tampak seperti ilustrasi berikut
form Login Excel

Pastikan Anda sudah mengaktifkan jendela Microsoft Visual Basic sebelum merancang dan memasukkan kode-kode untuk Form Login ini.

Menyiapkan Desain Form Login
  1. Membuat UserForm
    Klik menu Insert dan pilih UserForm
  2. Dalam rancangan Untuk UserForm buatlah beberapa bagian seperti dalam gambar berikut:
    rancangan userform login
  3. Menambahkan dan mengatur Gambar
    Pilih Image dan atur nilai atau parameter yang terdapat di jendela properties seperti berikut : - BorderStyle = 0 - fmBorderStyleNone (membuat gambar tanpa bingkai)
    - Picture ... = Ambil gambar yang ingin dijadikan sebagai aksesoris.
  4. Membuat Judul dan sub judul Pilih Label1 kemudian di jendela properties, ketikkan data di kotak Caption sesuai dengan yang anda inginkan.
    ulangi untuk membuat Sub judul
  5. Kotak password
    Pilih kotak password (TextBox1) kemudian cari sebuah kata PasswordChar yang terdapat di jendela properties. Isi dengan sebuah karakter yang anda ingin munculkan ketika sebuah password diketik, contoh anda bisa memasukkan karakter (*, #, atau lainnya). kosongi nilai PasswordChar jika anda ingin menampilkan ketikan sesuai dengan aslinya di kotak password.
  6. Tombol Masuk dan Keluar
    dua tombol ini dibuat dengan menggunakan CommandButton dan masing-masing bernama (Name) CommandButton1 dan CommandButton2, jika ingin mengganti masing-masing teks untuk tombol ini, lakukan dengan cara klik tombol kemudian di jendela properties, rubah Caption sesuai dengan yang anda inginkan.
Sampai langkah ini desain form login selesai dilakukan, selanjutnya adalah memasukkan kode agar form ini bisa berjalan sebagaimana mestinya.

Kode Form Login Sederhana
Untuk memasukkan kode berikut, klik kanan UserForm1 yang terdapat di jendela Project-VBA Project dan kemudian pilih View Code
atau
pilih UserForm1 yang terdapat di jendela Project-VBA Project, kemudian tekan F7 di keyboard anda.
Private Sub CommandButton1_Click() If TextBox1 = "admin" Then
   Unload UserForm1
   Else
   MsgBox "Maaf, password yang anda masukkan tidak valid"
End If
End Sub
Private Sub CommandButton2_Click()
Application.ActiveWorkbook.Close savechanges = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

Keterangan kode
CommandButton1
Kode yang digunakan untuk tombol masuk atau login
dimana kata kuncinya adalah "admin" (tanpa tanda petik), sehingga jika pengguna mengetikkan kata kunci atau password dengan benar maka akan menjalankan kode atau perintah Unload UserForm1, yang artinya akan menutup Jendela Form Login ini. Dan jika salah, maka akan menampilkan kode MsgBox yang berupa kotak pesan dengan informasi di dalamnya.

CommandButton2
kode yang digunakan untuk keluar atau menutup file dengan perintah tidak menyimpan perubahan isi file.

Private Sub USerForm_QueryClose...
Kode ini berisi sebuah perintah untuk mengantisipasi pengguna menutup jendela Form dengan cara klik tombol (X) yang terdapat di pojok kanan atas, dengan kata lain tombol Close UserForm di non aktifkan.

Anda dapat mengkombinasikan kode ini dengan kode-kode yang lainnya antara lain yang terdapat dalam tutorial berikut :
- Membuat Macro VBA Berjalan otomatis saat file dibuka
- Memaksa Pengguna mengaktifkan Macro Security atau pengaturan untuk macro, atau
- Menyembunyikan tampilan utama jendela Excel (tingkat lanjut)

Finalizing
Langkah terakhir tentu saja adalah dengan menyimpan hasil kerjaan, dan ingat.... simpan dengan tipe file Excel Macro-Workbook Enabled

Materi dari tutorial ini dapat anda download gratis di sini.


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 11.12.12 | 09:23
Judul : Membuat form login sederhana
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Analisa Sel Berdasarkan Format Tulisan

Change Case
Format Tulisan yang dimaksud di sini adalah format tulisan menggunakan huruf besar atau yang biasa kita sebut dengan istilah 'Huruf Kapital', format tulisan menggunakan huruf kecil, atau gabungan dari keduanya. Cara kerja dari formula berikut cukup sederhana yakni, menganalisa sebuah sel yang berisi teks kemudian mendefinisikannya. Dengan catatan bahwa isi dari sel tersebut tidak berisi angka melainkan murni sebuah teks

Anggaplah kita ingin menganalisa isi teks yang terdapat di sel A1; maka Anda dapat menggunakan formula berikut dan letakkan disel B1
=IF(A1>"";IF(EXACT(UPPER(A1);A1);"Kapital";IF(EXACT(LOWER(A1);A1);"Kecil";"Gabungan"));"")

Formula di atas mengecek dan melihat apakah terdapat data (berupa teks) di sel A1; jika ada, maka formula tersebut akan menganalisa isi atau format tulisan yang digunakan. Dan Formula di atas akan menghasilkan nilai kosong jika tidak ada isi yang terdapat disel A1, atau sel A1 berisi angka.



Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 10.12.12 | 12:14
Judul : Analisa sel berdasarkan format tulisan
Kategori : Formula
belajar excel
Tutorial Excel Lainnya :

TextBox Hanya Dapat Diisi Dengan Angka

TextBox VBA Excel
Sesuai dengan namanya, TextBox merupakan sebuah kotak yang dapat di isi dengan teks baik berupa huruf, angka, maupun karakter lainnya. Meskipun Jika kotak ini diisi dengan angka - maka angka-angka tersebut akan tersimpan sebagai teks.

Akan tetapi ada suatu kondisi dimana Textbox harus diisi dengan angka, seperti saat kita memasukkan data nomor telepon, data nomor Induk Siswa atau yang lainnya. Artinya, textbox tersebut hanya dapat diisi dengan data numerik. dan Jika pengguna memasukkan data selain angka maka akan menampilkan sebuah pesan error

Kode TextBox Numeric
Saya berasumsi Anda sudah mempunyai sebuah TextBox dengan nama TextBox1, baik terletak dalam UserForm maupun terletak dalam Sheet.
klik ganda TextBox1 tersebut untuk langsung menuju Jendela Kode VBA, dan Paste kode berikut didalamnya
Private Sub TextBox1_Change()
On Error GoTo A
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub

A: TextBox1 = ""
End Sub
Penjelasan :
On Error... = Jika terjadi kesalahan ketik, perintah langsung menuju ke A:
Format(.... = Memaksa TextBox1 diisi angka dengan pemisah angka ribuan
A: Textbox. = Hasil jika terjadi kesalahan ketik, yakni dengan menghapus isi TextBox1



Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 09.12.12 | 07.30
Judul : TextBox hanya dapat diisi dengan angka
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Isi ComboBox Sesuai Data Dalam Sheet

Untuk membuat pengguna agar lebih mudah dalam mengentry data atau untuk membatasi isi atau item sesuai dengan yang telah kita sediakan, dapat menggunakan fasilitas daftar Drop-down yang umumnya biasa dibuat menggunakan bantuan Data Validation. kemudian pada pilihan Settings >> pilih Allow : dan dari daftar pilihan yang ada, pilih List.

Cara diatas hanya dapat diberlakukan untuk sel dalam workbook, bagaimana jika ingin membuat Daftar Drop-Down menggunakan ComboBox yang terdapat dalam UserForm akan tetapi isinya berdasarkan data yang terdapat dalam range yang sudah kita tentukan ?

ComboBox Excel VBA
Untuk membuatnya terlebih dahulu ketikkan data-data pada sebuah Sheet (ambil contoh Sheet1) mulai sel A1 sampai dengan sel A5, kemudian siapkan sebuah UserForm yang didalamnya terdapat ComboBox dengan nama ComboBox1.

Langkah selanjutnya yaitu paste kode berikut dalam UserForm :
Private Sub UserForm_Initialize()
For Nomor = 1 To 7
    Datanya = Range("a" & Nomor)
    ComboBox1.AddItem Datanya
Next Nomor
End Sub

Jalankan Macro userform ini dengan menekan tombol F5 di keyboard anda.
Download file di sini

Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 08.12.12 | 07.30
Judul : Isi ComboBox sesuai dengan data dalam Excel
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Memisahkan Tempat dan Tanggal Lahir

Dalam sebuah database seringkali kita menemui sebuah nilai yang menunjukkan tempat dan tanggal lahir. yang pada umumnya terdapat tempat kemudian dipisahkan dengan tanda koma dan dilanjutkan dengan tanggal lahirnya, contoh; Jakarta, 11 Januari 2009.

Untuk beberapa keperluan, mungkin kita hanya menginginkan data berupa tanggal lahirnya saja atau tempat lahirnya saja - dan jika databse hanya terdiri dari beberapa data saja mungkin bisa dengan diketik ulang, akan tetapi jika data tersebut berjumlah puluhan atau mungkin ratusan - apakah mau mengetik ulang ???

Berikut ini sebuah formula yang sangat sederhana yang dapat digunakan untuk memisahkan data tempat dan tanggal lahir. Sebagai ilustrasi lihat gambar berikut :
Tempat Tanggal Lahir

Memisahkan Tempat Lahir
=LEFT(A1;FIND(",";A1)-1)

Memisahkan Tanggal Lahir
=MID(A1;FIND(",";A1)+2;LEN(A1))
atau
=RIGHT(A1;LEN(A1)-FIND(",";A1)-1)

Penjelasan :
=LEFT, =MID, atau =Right : digunakan untuk pembacaan teks
=FIND(","... : mencari teks (,) dalam sel yang dipilih
=LEN(A1... : menghitung banyaknya karakter dalam sel


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 07.12.12 | 07.30
Judul : Memisahkan tempat dan tanggal lahir
Kategori : Formula
belajar excel
Tutorial Excel Lainnya :

Memaksa Pengguna Mengaktifkan Macro Security Excel

Tombol On Off
Ada saat dimana anda mungkin menginginkan pengguna file excel yang anda buat untuk mengaktifkan Macro agar file bisa dijalankan sebagaimana mestinya. Dengan kata lain, sebuah file yang didalamnya terdapat kode Macro - mengharuskan pengaturan Macro Security menjadi aktif, karena jika tidak maka file tersebut sudah pasti tidak dapat bekerja sesuai keinginan.

Pada dasarnya dalam Aplikasi Microsoft Office Excel tidak ada sebuah kode untuk mengaktifkan Macro secara otomatis, namun Anda dapat memaksa pengguna untuk mengaktifkan Macro 'secara otomatis' saat sebuah file excel terbuka.

Cara kerja konsep
Ketika Macro Dalam Keadaan MATI (disable)
» Menyembunyikan Sheet utama yang berisi file
» Menampilkan Sheet informasi agar pengguna mengaktifkan macro

Ketika Macro Dalam Keadaan NYALA (enable)
» Menampilkan kembali sheet utama
» Menyembunyikan sheet informasi macro

Penting :
» Sebelum memasang kode pastikan MACRO Security dalam keadaan aktif
» Sheet tambahan tidak berada di awal atau di akhir.
» Yang paling penting adalah Berdoa agar kode berhasil……

Mempersiapkan Lembar Kerja
Saya berasumsi bahwa dalam lembar kerja excel anda terdapat 3 buah sheet, dengan masing-masing nama sheet antara lain; Sheet1, Sheet2, dan Sheet3.

Sheet1 dan Sheet3 adalah sheet utama yang berisi data excel anda, sedangkan
Sheet2 adalah Sheet informasi yang Anda dapat mengisinya dengan sebuah informasi agar pengguna mengaktifkan Macro Security.
Memasang Kode VBA
Aktifkan dulu Microsoft Visual Basic, kemudian buatlah sebuah Module dengan cara
klik Menu Insert » Module. dan selanjutnya copy paste kode berikut di Module yang sudah anda buat.
Public bIsClosing As Boolean
Dim wsSheet As Worksheet

Sub HideAll()
Application.ScreenUpdating = False
For Each wsSheet In ThisWorkbook.Worksheets
    If wsSheet.CodeName = "Sheet2" Then
       wsSheet.Visible = xlSheetVisible
    Else
       wsSheet.Visible = xlSheetVeryHidden
    End If
Next wsSheet
Application.ScreenUpdating = True
End Sub

Sub ShowAll()
bIsClosing = False
For Each wsSheet In ThisWorkbook.Worksheets
    If wsSheet.CodeName <> "Sheet2" Then
       wsSheet.Visible = xlSheetVisible
    End If
Next wsSheet
Sheet2.Visible = xlSheetVeryHidden
End Sub

Langkah berikutnya adalah pilih ThisWorkbook dan paste kode berikut di dalamnya
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bIsClosing = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cancel = True Or bIsClosing = False Then Exit Sub
Run "HideAll"
End Sub

Private Sub Workbook_Deactivate()
If bIsClosing = False Then Exit Sub
Run "HideAll"
End Sub

Private Sub Workbook_Open()
Run "ShowAll"
End Sub

Finalizing
Agar kode diatas dapat bekerja dengan baik, simpan file dengan type Excel Macro-Enabled Workbook.
Lihat perubahan dengan cara mengaktifkan atau menonaktifkan pengaturan Macro Excel

Informasi lain tentang artikel yang serupa dapat anda lihat di sini

Hasil akhir dari tutorial di atas dapat anda download secara gratis di sini untuk dapat anda pelajari sendiri


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 06.12.12 | 09.22
Judul : Memaksa pengguna mengaktifkan Macro Security Excel
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Macro Berjalan Otomatis Saat Membuka File Excel

Auto Macro VBA
Ada begitu banyak alasan mengapa kita menginginkan agar sebuah perintah tertentu dijalankan secara otomatis ketika kita membuka sebuah file Excel. Perintah yang dimaksud disini adalah sebuah Macro. Contoh sebuah Macro yang berjalan secara otomatis saat sebuah file dibuka antara lain; kotak pesan (message box), sebuah form Login, atau yang lainnya.

Ada dua cara atau metode untuk melakukan ini.
Sebagai contoh, kode berikut akan menjalankan sebuah Macro berupa kotak pesan yang secara otomatis muncul ketika file dibuka.

Cara 1 :
Menggunakan Module
Module Auto Macro
Kode :
Private Sub Auto_Open()
   MsgBox "Macro ini dijalankan menggunakan Module"
End Sub

Cara 2 :
Memasukkan kode melalui ThisWorkbook
ThisWorkbook Marco Otomatis
Kode :
Private Sub Workbook_Open()
   MsgBox "Macro ini dijalankan melalui ThisWorkbook"
End Sub

Langkah terakhir adalah menyimpan file dengan type Excel Macro-Enabled Workbook
Tutup file dan buka kembali untuk melihat hasil kerjaan.
Download file di sini

Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 05.12.12 | 07.30
Judul : Macro berjalan otomatis saat membuka file Excel
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Kotak Pesan Dengan Pilihan Ya dan Tidak

Kotak pesan Message box
Sebuah kotak pesan pada umumnya digunakan untuk menampilkan sepotong informasi kepada pengguna, variasi pesan yang disampaikan tergantung dari sebuah kondisi dimana kotak pesan tersebut ditampilkan.

Membuat sebuah kotak pesan dengan pilihan (Ya) atau (Tidak) dengan memberikan sebuah jawaban yang berbeda-beda dari masing-masing jawaban, tentunya akan membuat sebuah aplikasi lebih interaktif. Konsepnya seperti berikut; Jika pengguna menjawab (ya) maka kode tertentu akan dijalankan dan jika pengguna menjawab (tidak) maka kode yang yang lainnya yang dijalankan. Sederhana...

Untuk membuat pesan sederhana seperti diatas, gunakan formula dibawah ini dan letakkan dalam sebuah Module Microsoft Visual Basic :
Public Sub KotakPesan()
Dim IsiKotakPesan As String
Dim Pertanyaan As String

Pertanyaan = "Apakah rumahexcel.com membantu masalah excel Anda?"
IsiKotakPesan = MsgBox(Pertanyaan, vbYesNo, "Bagaimana Menurut Anda")

    If IsiKotakPesan = vbNo Then
        MsgBox "Semoga bisa bermanfaat!"
    Else
        MsgBox "Terimakasih!!!"
    End If

End Sub
Untuk melihat langsung hasil kotak pesan yang dibuat dengan kode diatas
tekan tombol F5 di keyboard anda.

Keterangan :
Pertanyaan
Informasi yang ditampilkan di kotak pesan

Bagaimana Menurut Anda
Judul dari kotak pesan

Semoga Bermanfaat !!!
Pesan yang ditampilkan ketika pengguna menjawab NO
Anda bisa juga memasukkan kode di dalamnya

Terimakasih !!!
Pesan yang ditampilkan ketika pengguna menjawab YES
Anda bisa juga memasukkan kode di dalamnya
Download file di sini

Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 04.12.12 | 07.30
Judul : Kotak pesan dengan pilihan Ya dan Tidak
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :

Cara Cepat Edit Template Blogspot

Tampilan desain sebuah website sangat diyakini memiliki daya tarik yang kuat bagi pengunjung. Jika website terlihat bagus baik dari segi tata warnanya, design grafisnya, dan teknik-teknik yang digunakan untuk menampilkan informasi, atau yang lainnya - maka hal ini bisa dipastikan akan membuat pengunjung terkesan, dan ingin berlama-lama nongkrong di website kita.

Perkembangan dunia desain dewasa ini sangat luar biasa bahkan untuk desain sebuah website, terlepas menggunakan bantuan software website design atau tidak. Dan mereka yang empunya website atau blog sudah pasti menghabiskan waktu berjam-jam atau mungkin bahkan berhari-hari mengutak-atik tampilan website mereka untuk mencapai sebuah 'kesempurnaan'.

Dari beberapa tampilan website atau template yang ada, ambil salah satu yang paling umum digunakan yakni blogger.
Secara umum untuk mendesain tampilan atau template blogspot tentunya adalah dengan masuk atau Log In ke account blogger, kemudian baru bisa melakukan proses pengeditan.

Jika digambarkan dalam skema proses edit template di blogspot kurang lebih seperti ilustrasi berikut :

Log In » Edit HTML » Simpan Perubahan / Pratinjau Hasil Perubahan » Lihat Hasil Perubahan

Dari skema tersebut diatas dan berdasakan pengalaman pribadi, untuk mengedit sebuah tampilan blogspot membutuhkan kejelian - karena yang diedit bukan gambar melainkan sebuah teks yang tentunya jika salah ketik meskipun hanya satu atau dua karakter akan berakibat sangat fatal. dan juga membutuhkan banyak waktu hanya untuk melihat sebuah perubahan, apalagi jika koneksi internet sangat lambat.
Menambahkan Addon Mozilla - FireBug
Sudah bukan rahasia umum jika Mozilla Firefox merupakan salah satu browser yang paling banyak diminati oleh pengguna, baik itu webmaster maupun surfer. Salah satu yang dapat di jadikan alasan adalah; browser ini memiliki banyak Addons yang memiliki banyak fungsi.

Sebelum melakukan cara ini, tambahkan dulu Addon FireBug ke dalam browser mozilla anda. klik + Add to Firefox untuk melakukan proses instalasi.
Edit template dengan FireBug

Cara Menggunakan Addon FireBug
FireBug merupakan sebuah tools yang sudah terintegrasi dengan FireFox, dan salah satu kelebihan dari addon ini adalah anda dapat dengan mudah melakukan pengeditan HTML secara langsung dalam setiap halaman web.

Mengaktifkan Firebug
Jika Addon telah berhasil ditambahkan, maka untuk mengaktifkannya anda cukup Klik Kanan area halaman website dan pilih Inspect Element With Firebug sehingga akan menampilkan sebuah jendela di bagian bawah browser seperti tampilan berikut :
Preview Firebug

Memeriksa setiap elemen pada sebuah halaman website
Untuk mempercepat pengeditan atau hanya untuk sekedar memeriksa elemen-elemen yang terdapat pada sebuah halaman website gunakan cara seperti berikut :
Memeriksa setiap elemen website
Selanjutnya anda tinggal mengarahkan mouse anda ke elemen yang ingin anda periksa. sementara informasi kode HTML dari elemen tersebut terdapat di sebelah kanan, edit untuk melihat hasilnya secara langsung


Jika semua hasil editan sudah seperti yang diinginkan, baru melakukan perubahan template secara permanen dengan cara masuk ke akun blogspot dan mengisikan data-data seperti yang terdapat di jendela FireBug.

Setidaknya, dengan adanya tools ini sedikit mempercepat proses merubah tampilan blogspot.
Anda tidak dapat mengaktifkan FireBug jika sebuah website menggunakan script Disable klik kanan, untuk dapat membuka klik kanan yang terkunci di halaman website baca tutorial ini


Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 03.12.12 | 07.30
Judul : Cara cepat edit template Blogspot
Kategori : Artikel
belajar excel
Artikel Lainnya :

Membuka Klik Kanan Website Yang Terkunci

Unlock
Salah satu alasan dari beberapa pengunjung meninggalkan website/blogspot kita mungkin adalah karena dalam website/blogspot yang mereka kunjungi terdapat sebuah script yang menonaktifkan klik kanan - sehingga mereka tidak dapat mengambil sebagian atau keseluruhan isi dari materi yang terdapat di dalamnya. Bagi pemilik website/blogspot cara seperti ini memang merupakan cara yang sangat efektif dalam menghadapi para pencuri konten atau materi, akan tetapi bagi pengunjung biasa yang hanya ingin mendapatkan materi dari website dengan tujuan digunakan untuk keperluan lain (bukan repost) - adalah sesuatu yang mungkin sedikit mengganggu bagi mereka.

Kekhawatiran akan isi konten di repost di website lain merupakan hal yang wajar bagi pemilik website/blogspot sehingga memberlakukan anti klik kanan - disisi lain pengunjung juga memiliki hak untuk mengambil sebagian atau keseluruhan isi konten, terlepas mau diposting ulang atau tidak. Sedangkan pemilik website memiliki hak mutlak ingin membagi isi konten atau tidak. Semuanya mempunyai kepentingan yang berbeda-beda, tergantung pribadi masing-masing.

Artikel berikut berisi tentang cara mengaktifkan kembali klik kanan yang terkunci pada sebuah halaman website.
dan semoga dapat digunakan dengan bijak

Menambahkan Addon Mozilla
Salah satu tools yang dapat membuka anti klik kanan adalah Web Developer

Untuk menambahkan di browser anda, caranya klik + Add to Firefox dan ikuti proses instalasinya. Kemudian restart browser untuk dapat menggunakan tools ini.

Membuka klik kanan yang terkunci
Secara otomatis setelah proses instalasi Addon berhasil dilakukan, menu Web Developer akan muncul secara otomatis di toolbar. Jika belum muncul aktifkan dengan cara
klik menu View » Toolbar » Web Developer Toolbar
Cara disable klik kanan

Untuk membuka klik kanan yang terkunci pilih menu :
Disable » Disable JavaScript » Disable All JavaScript
Disable Klik Kanan Blogspot

Sekarang coba gunakan klik kanan pada halaman yang tadinya di-disable.



Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 02.12.12 | 10.47
Judul : Membuka klik kanan website yang terkunci
Kategori : Artikel
belajar excel
Artikel Lainnya :