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
- 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 Memilih Atau Mencari Baris Terakhir Yang Ada Datanya Pada Kolom Dengan VbaMencari baris terakhir pada sebuah kolom tentunya akan dilakukan kalau Anda akan menciptakan sebuah aplikasi entry data memakai VBA pada Ms. Excel da ...
- Cara Menghapus Hyperlink Pada Ms.Excel Melalui VbaHyperlink ialah hubungan antara satu bab dengan bab lain, di Ms. Excel hyperlink banyak dipakai untuk menghubungkan data supaya kita lebih gampang me ...
- 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 Menentukan Worksheet Melalui Combobox Yang Ada Pada UserformSelamat beraktifitas pada sobat Excel-ID, semoga hari ini masih tetap sehat dan lancar selalu. Pada kesempatan kali ini saya akan aneka macam pengala ...
- Cara Menciptakan Upercase (Huruf Besar Semua) Otomatis Dengan VbaHi Excel-ID, bagaimana mencar ilmu VBA nya semoga lancar dan tidak ada kendala, namun jikalau kalian ada persoalan silakan tuliskan komentar sesuai d ...
