excelive - kumpulan artikel dan tutorial excel: InputBox

New Posts

Post Top Ad

Your Ad Spot
Tampilkan postingan dengan label InputBox. Tampilkan semua postingan
Tampilkan postingan dengan label InputBox. Tampilkan semua postingan

Berhitung dengan InputBox dan Custom Function

26.8.17 0
berhitung

Syarat utama yang diminta oleh Microsoft Excel dalam memulai sebuah hitungan (baca:mengolah angka) adalah harus mengawalinya dengan sebuah simbol sama dengan (=) untuk setiap masukan. Maka secara otomatis ia akan dibaca sebagai sebuah fungsi yang akan diolah sesuai dengan apa yang ditulis oleh pengguna.

Sebagai contoh, ketika pengguna memasukkan sebuah nilai seperti =5*2 maka Microsoft Excel akan langsung mengolah angka-angka tersebut dan akan menghasilkan nilai 10, karena simbol * yang digunakan diantara angka-angka tersebut difungsikan sebagai perkalian. Hal ini pun sama berlakunya ketika seorang pengguna hendak menuliskan sebuah formula, seperti =SUM, =AVERAGE, dan lain sebagainya. Formula-formula tersebut akan berfungsi sebagaimana mestinya jika diawali dengan karakter sama dengan.

Formula Microsoft Excel memang sudah tersedia dan pengguna hanya tinggal memakainya saja sesuai dengan kaidah penulisan yang berlaku. Sementara jika ingin membuat sebuah Formula sendiri (Custom Function) maka seorang pengguna harus menentukan terlebih dahulu beberapa parameter yang dibutuhkan, yang mana hal ini bisa dilakukan dengan menggunakan Macro VBA.

Pembahasan mengenai Custom Function lain sudah pernah dibahas disini, silahkan kunjungi untuk memahami struktur dan cara membuatnya.

Untuk tutorial kali ini kita akan mencoba menggabungkan Custom Function dan InputBox untuk mengolah angka sederhana seperti contoh diatas, dan seperti yang sudah Anda ketahui, baik Custom Function dan InputBox sama-sama harus dibuat menggunakan Macro VBA. Jadi, silahkan Anda aktifkan terlebih dahulu jendela Microsoft Visual Basic Editor dengan cara menekan tombol Alt + F11 di keyboard Anda.

Setelah jendela VBE terbuka, tambahkan sebuah Module baru dan ketikkan baris kode berikut:
Function Hitung()
On Error Resume Next
Dim X As Double
Dim Y As Double

X = InputBox("Masukkan angka pertama", "Masukkan Nomor")
Y = InputBox("Masukkan angka kedua", "Masukkan Nomor")
Hitung = X * Y
End Function

Hitung merupakan sebuah nama dari Formula baru kita, dan usahakan nama dari formula ini tidak sama dengan nama-nama formula yang sudah ada di Microsoft Excel.
download

Penggunaan Formula baru ini cukup sederhana, yakni Anda tinggal mengetikkan =Hitung() di sebuah sel kemudian akhiri dengan tombol Enter untuk langsung menampilkan beberapa jendela InputBox, serta harus menggunakan nilai berupa angka agar operasi ini berhasil.
hitung dengan inputbox

Sekarang Anda sudah berhasil mempelajari bagaimana cara membuat hitungan sederhana dengan menggunakan Custom Function yang dikombinasikan dengan InputBox. Semoga belajar Macro VBA excel bersama excelive untuk edisi ini ada manfaatnya.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, see u next time.

Read More ...

Membuka File Excel Dari Jendela InputBox

15.8.17 0
Membuka File Menggunakan InputBox

Tutorial ini bisa dikatakan memiliki struktur yang hampir sama dengan tutorial Menghapus File Melalui Jendela InputBox. Hanya saja terdapat beberapa tambahan baris kode yang digunakan untuk mengeksekusi dokumen atau file Microsoft Excel yang akan dieksekusi.

Mungkin ada baiknya Anda buka dulu tutorial ini agar lebih paham konsep menggunakan InputBox.

Kembali ke pokok pembahasan.
Tutorial ini akan memfokuskan pada fungsi dari jendela InputBox itu sendiri, yakni sebagai tempat untuk memasukkan sebuah nilai yang kemudian akan dieksekusi oleh pengguna ketika menekan tombol OK maupun Cancel.

Secara umum konsep dari tutorial ini menggunakan 2 (dua) buah InputBox, dimana InputBox yang pertama berfungsi untuk menentukan lokasi atau drive tempat dimana dokumen Microsoft Excel simpan. Untuk jendela InputBox kedua, digunakan untuk menentukan nama file yang terdapat di drive yang sudah ditentukan melalui jendela InputBox yang pertama.

Langsung saja masukkan kode berikut disebuah Module dan coba jalankan dengan cara menekan tombol F5 dikeyboard Anda untuk mengetahui sukses atau tidaknya dalam membuka sebuah dokumen Microsoft Excel melalui jendela InputBox.
Sub Bukaaaaa()
On Error Resume Next
lokasi = InputBox("Tentukan lokasi drive tempat Anda menyimpan file excel", _
                 "Drive")
drv = Dir(lokasi & ":", 5)

If drv <> "" Or IsError(drv) Then
   On Error GoTo x
   fl = InputBox("Masukkan nama file yang ingin Anda buka", _
                 "File Name")
   If Len(fl) > 0 Then
      'ganti ekstensi .xlsx dengan .xls untuk file excel dibawah versi 2007
      Workbooks.Open (lokasi & ":\" & fl & ".xlsx")
      SThisbookName = ThisWorkbook.Name
      Windows(SThisbookName).Activate
      MsgBox "Dokumen " & fl & " berhasil dibuka"
   End If
   Exit Sub
x:
   MsgBox "Maaf, Data tidak ditemukan"
Else
MsgBox "Drive yang Anda masukkan tdk tersedia"
End If
End Sub
Anda bisa mendapatkan hasil akhir dari tutorial ini melalui tautan berikut.
download



Kita sudah belajar Macro VBA Excel tentang bagaimana cara membuka sebuah dokumen Microsoft Excel melalui jendela InputBox. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, adiós.
Read More ...

Menghapus File Menggunakan InputBox

31.7.17 0
Menghapus File Menggunakan InputBox

Macro VBA yang memiliki kemampuan yang cukup baik dalam mengotomatisasi sebuah pekerjaan yang berulang-ulang di dalam sebuah lembar kerja Microsoft Excel, seperti mengurutkan data, memasukkan sebuah nilai ke dalam ListBox, serta yang lainnya yang masih dalam lingkup lembar kerja, ternyata juga bisa digunakan untuk mengotomatisasi sebuah pekerjaan diluar lembar kerja Microsoft Excel.

Contoh sederhana melakukan pekerjaan yang berada diluar lingkup lembar kerja Microsoft Excel seperti yang akan dibahas dalam tutorial kali ini adalah Menghapus sebuah file yang tersimpan dalam sebuah drive. Meskipun tutorial sejenis pernah di bahas di website ini (cek link berikut), akan tetapi pada tutorial kali ini menggunakan pendekatan lainnya yakni melalui jendela InputBox untuk menentukan lokasi atau sebuah drive kemudian menentukan nama file yang akan dihapus.

Untuk melakukan hal tersebut di atas dapat dilakukan tanpa harus membuka jendela Windows Explorer untuk mencari dan menghapus file yang dimaksud, melainkan dapat dilakukan melalui InputBox Macro VBA Excel. Caranya ?

Dalam tutorial ini, tombol yang saya gunakan untuk mengeksekusi kode Macro saya letakkan di dalam lembar kerja yang tugasnya untuk mempermudah saja. Untuk cara membuatnya, silahkan Anda lihat pada bagian membuat control di lembar kerja di tutorial Mengisi ListBox Dengan Data Spesifik Dari Sebuah Lembar Kerja.

Selanjutnya adalah buka jendela Microsoft Visual Basic Editor (VBE) dengan cara menekan tombol pintas Ctrl+F11 di keyboard Anda. Kemudian silahkan buat sebuah module baru, mulai ketikkan baris kode berikut didalamnya :

Sub HapusFileLagi()
On Error Resume Next
lihat = InputBox("Tentukan lokasi drive tempat file yang akan dihapus", _
                 "Drive")
dr = Dir(lihat & ":", 5)

If dr <> "" Or IsError(dr) Then
   [a1] = lihat & ":\"
   On Error GoTo x
   fl = InputBox("Masukkan nama file yang akan Anda hapus lengkap dengan ekstensinya", _
                 "File Name")
   If Len(fl) > 0 Then
      Select Case MsgBox("Hapus file" & fl, vbCritical + vbYesNo)
      Case vbYes
          Kill [a1] & fl
      End Select
   End If
   Exit Sub
   x:
   MsgBox "Maaf, Data tdk ada" & vbCr & _
          "atau penulisan file tidak disertai dengan extensi"
Else
MsgBox "Drive yang Anda masukkan tdk tersedia"
End If
End Sub

Dari panjangnya baris kode diatas, dapat Anda lihat bahwa disana terdapat 2 buah nilai InputBox yang mana InputBox pertama (Lihat) berfungsi untuk menentukan lokasi drive tempat dimana file yang dimaksud berada, sementara InputBox kedua (fl) adalah nama file lengkap beserta ekstensi file yang akan di hapus.

Cara kerja dari kode di atas secara singkat dapat dijelaskan bahwa jendela InputBox yang pertama mengharuskan user untuk menentukan lokasi drive yang dimaksud, dengan catatan :
Jika nama Drive (drive letter) tersedia dikomputer user, maka langsung akan mengeksekusi baris ke-7 (If dr <> "" Or IsError(dr) Then ....) dan akan menyimpan nilai dari nama drive yang Anda tulis di sel A1, selanjutnya akan menampilkan jendela InputBox lagi untuk menentukan nama file yang akan dihapus.

Jika nama file tidak ada atau penulisan tidak lengkap, seperti ejaan salah atau tidak mencantumkan ekstensi file, maka kode akan dihentikan dan langsung menuju baris kode ke-20 (MsgBox "Maaf, Data tdk ada"....).

Langkah terakhir adalah memasang module yang sudah dibuat diatas ke dalam control CommandButton yang sudah dibuat dilembar kerja. Kode VBA nya????
Call HapusFileLagi
Demo kode yang sudah lengkap
Menghapus file menggunakan InputBox
download

Sekarang Anda sudah berhasil mempelajari bagaimana caranya menggunakan InputBox untuk menghapus sebuah file. Selamat mencoba!!. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya, adiós.
Read More ...

Post Top Ad

Your Ad Spot