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
- Membatasi Jumlah Huruf Pada Cell Dengan Vba (Not Validation)Hai, sobat EXCEL-ID pada kesempatan kali ini aku akan menulis bagaimana caranya membatasi jumlah abjad maksimum yang bisa dimasukan atau diketikkan o ...
- Cara Mengambil Tanggal Otomatis Dari Tanggal Bulan Tahun Memakai Macro VbaAda banyak cara untuk menuntaskan dilema Excel, dan cara ini ada yang memakai rumus tetapi juga ada yang memakai VBA atau dengan coding Macro Excel. ...
- Cara Manampilkan Alamat Url Pada Hyperlink | Vba ExcelHallo, beberapa waktu yang kemudian ada sebuah pertanyaan dan mohon maaf aku tidak sebutkan dari siapa namun mudah-mudahan artikel ini dapat menjawab ...
- Code Untuk Edit Data Cell Memakai Vba (Macro)Hallo sahabat Excel-ID apakah masih suasana liburan? Ya bagi yang masih liburan selamat berlibur saja dan bagi yang masih sibuk untuk merekap laporan ...
- Cara Menyembunyikan Dan Memunculkan Worksheet Melalui Code VbaHallo sahabat Excel-ID bahagia sekali saya masih dapat menulis artkel pada hari ini dan kali ini saya akan menciptakan sebuah teladan bagaimana cara ...
- Cara Perlindungan Otomatis Kalau Terdapat Rumus Pada Ms. ExcelBeberapa alasan yang dilakukan oleh pengguna Excel saat ingin memproteksi atau mengamankan rumus contohnya tidak ingin bahwa rumus tersebut dirubah o ...
