Hai sobat Excel-ID gimana kabarnya biar sehat, Lama tidak posting kembali mengenai VBA atau Macro Excel. Mungkin alasannya yaitu beberapa hari terakhir ini saya butuh liburan dengan keluarga karenanya update menjadi terabaikan. Namun jangan khawatir kini saatnya kembali untuk mengembangkan informasi, tutorial, tips serta trik Ms. Excel kembali.
Pada kesempatan kali ini saya akan membahas bagaimana seh caranya menciptakan userform yang sanggup memanggil atau membuka file Ms. Excel sekaligus sanggup juga menutupnya kembali hanya memakai kontrol penuh UserForm.
Materi ini akan membahas bagaimana memanggil Open Dialog dan menampilkan ekstension Ms. Excel kemudian Anda juga akan diajarkan bagaimana script membuka file dan bagaimana juga menutupnya hanya dengan kontrol penuh melalui UserForm tanpa masuk kedalam worksheet.
Simak:
Cara Membuat UserForm secara Dasar
Perhatikan gambar berikut ini saya telah menciptakan sebuah userform sederhana yang ditambahkan dengan objek Textbox kemudian 2 buah CommandButton untuk kontrol buka file dan tutup file nya. Baiklah untuk menciptakan userform dan menyisipkan objek commandbutton maupun textbox sudah pernah saya bahas pada artikel atau goresan pena saya sebelumnya silakan cari kembali untuk mempelajarinya.
Pada kesempatan kali ini saya akan membahas bagaimana seh caranya menciptakan userform yang sanggup memanggil atau membuka file Ms. Excel sekaligus sanggup juga menutupnya kembali hanya memakai kontrol penuh UserForm.
Materi ini akan membahas bagaimana memanggil Open Dialog dan menampilkan ekstension Ms. Excel kemudian Anda juga akan diajarkan bagaimana script membuka file dan bagaimana juga menutupnya hanya dengan kontrol penuh melalui UserForm tanpa masuk kedalam worksheet.
Simak:
Cara Membuat UserForm secara Dasar
Perhatikan gambar berikut ini saya telah menciptakan sebuah userform sederhana yang ditambahkan dengan objek Textbox kemudian 2 buah CommandButton untuk kontrol buka file dan tutup file nya. Baiklah untuk menciptakan userform dan menyisipkan objek commandbutton maupun textbox sudah pernah saya bahas pada artikel atau goresan pena saya sebelumnya silakan cari kembali untuk mempelajarinya.
Pada form diatas terlihat alamat atau lebih kerennya kita kenal dengan Path (alamat lokasi penyimpanan file" hal ini akan muncul otomatis sesudah tombol "Buka File" ditekan alasannya yaitu fungsi dari tombol file ini akan mencari dan membuka file excel kemudian jikalau sudah terbuka maka akan tampil alamat (path) filenya.
Baca:
Pengenalan Dasar Membuat UserForm
Yang pertama harus dilakukan sesudah Anda menciptakan USerForm menyerupai diatas yaitu menciptakan coding untuk menampilkan obrolan open dan silakan ketikan codingnya berikut ini
Dan coding diatas secara lengkapp sanggup dilihat pada printscreen gambar dibawah ini
Oke, sesudah itu selesai deh dan silakan coba jalankan coding yang Anda ketikkan jikalau benar maka tidak akan terjadi error debuging dan selesai. Selamat mencoba biar berhasil apabila ada kesulitan silakan tuliskan komentar dibawah ya.
Baca:
Pengenalan Dasar Membuat UserForm
Langkah-Langkah Membuat (Coding) Buka dan Tutup File
Yang pertama harus dilakukan sesudah Anda menciptakan USerForm menyerupai diatas yaitu menciptakan coding untuk menampilkan obrolan open dan silakan ketikan codingnya berikut ini
Sub AmbilFile()langkah berikutnya silakan buat coding untuk CommandButton1 dan sebelumnya Anda juga sanggup mengganti Captionnya melalui properties dengan nama "Buka FIle" sesudah itu kita buat coding untuk memanggil mekanisme AmbilFile()
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSx), *.XLSx", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Workbooks.Open filename:=fNameAndPath
TextBox1.Value = fNameAndPath
End Sub
Private Sub CommandButton1_Click()Langkah berikutnya kita menciptakan coding untuk menutup file yang sesuai dengan path yang nantinya alamat pathnya dimunculkan pada textbox1 dan berikut yaitu codingnya
Call AmbilFile
End Sub
Sub TutupWorkbook()Coding diatas akan menutup workbook dan tentunya tidak begitu saja ditutup alasannya yaitu terkadang orang salah klik tombol maka coding diatas ditambahkan sehingga sebelum menutup workbook ditampilkan terlebih dahulu konfirmasi pesan apabila diklik OK maka akan diclose dan disimpan namun apabila tidak maka akan keluar dan userform akan ditutup.
On Error Resume Next
Dim fNameAndPath As Variant
Dim Jawab As Integer
Set wb = Workbooks.Open(TextBox1.Value)
Jawab = MsgBox("Apakah Anda akan Menyimpan File?", vbYesNo + vbQuestion, "Konfirmasi")
If Jawab = vbYes Then
wb.Close SaveChanges:=True
TextBox1.Value = ""
Else
Exit Sub
Unload Me
End If
End Sub
Dan coding diatas secara lengkapp sanggup dilihat pada printscreen gambar dibawah ini
Oke, sesudah itu selesai deh dan silakan coba jalankan coding yang Anda ketikkan jikalau benar maka tidak akan terjadi error debuging dan selesai. Selamat mencoba biar berhasil apabila ada kesulitan silakan tuliskan komentar dibawah ya.
End Sub Coding diatas akan menutup workbook dan tentunya tidak begitu saja ditutup alasannya yaitu terkadang orang salah klik tombol maka coding diatas ditambahkan sehingga sebelum menutup workbook ditampilkan terlebih dahulu konfirmasi pesan apabila diklik OK maka akan diclose dan disimpan namun apabila tidak maka akan keluar dan userform akan ditutup.
Dan coding diatas secara lengkapp sanggup dilihat pada printscreen gambar dibawah ini
Oke, sesudah itu selesai deh dan silakan coba jalankan coding yang Anda ketikkan jikalau benar maka tidak akan terjadi error debuging dan selesai. Selamat mencoba biar berhasil apabila ada kesulitan silakan tuliskan komentar dibawah ya.
Dan coding diatas secara lengkapp sanggup dilihat pada printscreen gambar dibawah ini
Oke, sesudah itu selesai deh dan silakan coba jalankan coding yang Anda ketikkan jikalau benar maka tidak akan terjadi error debuging dan selesai. Selamat mencoba biar berhasil apabila ada kesulitan silakan tuliskan komentar dibawah ya.
Related Posts
- Sortir Data Pada Listbox Dengan Combobox Pada Userform Hai sobat Excel-ID, gimana kabarnya? biar tetap dalam keadaan sehat dan masih tetap semangat untuk berguru excel. Pada goresan pena kali ini say ...
- Cara Membuat/Split File Sesuai Nama Sheet Berbasis Vba (Macro)Bagaimana cara split file sesuai jumlah dan nama worksheet? Nah, pada kesempatan kali ini Excel-ID akan membahas sebuah tutorial Ms. Excel Advanced b ...
- 32 Jenis Isyarat Vba (Macro) Excel Yang Perlu Diketahui Hai, sobat Excel-ID jikalau Anda sedang mencar ilmu VBA (Macro) Excel tentunya perlu donk acuan untuk menambah wawasan dan pengetahui mengenai codi ...
- Cara Menciptakan Combobox Datanya Dari Range Worksheet LainCombobox ialah data dimana data yang dientrikan berupa data pilihan jadi user tidak dapat mengetikan data pada Combobox tersebut. Data yang dimaksud ...
- Cara Menciptakan File .Txt Dengan Macro VbaHallo sahabat Excel-ID usang tidak posting artikel wacana Excel, jadi sebelum aku memulai untuk menulis artikel ini aku mohon maaf sebab kesibukan di ...
- Beberapa Cara Mengaktifkan Range Dengan Coding Vba (Macro Excel)Coding VBA sangat berperan penting untuk membantu kita dalam menciptakan sebuah keputusan yang membutuhkan pengolahan data memakai Ms. Excel tentunya ...
