Bagaimana cara split file sesuai jumlah dan nama worksheet?
Nah, pada kesempatan kali ini Excel-ID akan membahas sebuah tutorial Ms. Excel Advanced berbasis VBA. Proses ini dilakukan ketika anda malas mengcopy worksheet kedalam file gres dan disimpan sesuai jumlah sheet yang ada pada file tersebut.
Membuat nama file gres sesuai dengan nama worksheet biasanya dilakukan dengan cara manual yaitu mengcopy worksheet tersebut kemudian move and copy kemudian simpan dengan nama file gres memakai sajian File. Kali ini akan berbeda alasannya yakni saya disini memakai code VBA untuk menciptakan semuanya otomatis dengan hanya tinggal satu kali klik saja nama file sudah dapat dibentuk pada lokasi penyimpanan yang sama dengan file yang akan di split tersebut.
Baca:
Cara Cek Nama Worksheet pada Drive apakah Sudah Ada atau Belum
Split worksheet ke dalam beberapa nama file gres memang diharapkan ketika Anda akan menciptakan sebuah aplikasi berbasis VBA dan ingin mempermudah pada user dalam memakai aplikasi yang Anda buat tersebut.
Baca:
Belajar VBA itu Mudah
Langkah yang harus dilakukan pertama kali yakni Anda menciptakan sebuah module gres dan cara menciptakan module tentunya cukup gampang tinggal Anda masuk ke VBA editor dengan menekan tombol pada keyboard ALT+F11 maka Excel akan pribadi menuju ke VBA editor disana Anda tinggal tambahkan satu buah module dengan cara klik sajian Insert kemudian Module dan kini saatnya Anda menciptakan coding dengan mekanisme SplitWorkbook
Kira-kira menyerupai gambar diatas, kemudian Anda silakan klik OK untuk menlanjutkannya. Nah kini silakan uji coba coding yang telah Anda buat tersebut dengan cara klik pada tombol Button1 dan apa yang terjadi
Perhatikan nama worksheet ada Data1, Data2, dan Data3 nanti sesudah Anda klik tombol Button1 maka excel akan otomatis menciptakan nama file sesuai dengan nama worksheet yang ditunjukan oleh anak panah tersebut dan alhasil yakni menyerupai gambar nomor 1 diatas.
Demikian, agar bermanfaat
Simak:
Cara Copy Worksheet kedalam Workbook Baru Melalui UserForm
Nah, pada kesempatan kali ini Excel-ID akan membahas sebuah tutorial Ms. Excel Advanced berbasis VBA. Proses ini dilakukan ketika anda malas mengcopy worksheet kedalam file gres dan disimpan sesuai jumlah sheet yang ada pada file tersebut.
Membuat nama file gres sesuai dengan nama worksheet biasanya dilakukan dengan cara manual yaitu mengcopy worksheet tersebut kemudian move and copy kemudian simpan dengan nama file gres memakai sajian File. Kali ini akan berbeda alasannya yakni saya disini memakai code VBA untuk menciptakan semuanya otomatis dengan hanya tinggal satu kali klik saja nama file sudah dapat dibentuk pada lokasi penyimpanan yang sama dengan file yang akan di split tersebut.
Baca:
Cara Cek Nama Worksheet pada Drive apakah Sudah Ada atau Belum
Split worksheet ke dalam beberapa nama file gres memang diharapkan ketika Anda akan menciptakan sebuah aplikasi berbasis VBA dan ingin mempermudah pada user dalam memakai aplikasi yang Anda buat tersebut.
Bagaimana cara split worksheet kedalam beberapa nama file baru?
Langkah yang dilakukan tidaklah terlalu sulit namun Anda tentunya harus sudah memahami logika algoritma dari bahasa pemrograman VBA tersebut, nah silakan Anda dapat baca-baca bagaimana mencar ilmu VBA bagi pemula pada link dibawah iniBaca:
Belajar VBA itu Mudah
Langkah yang harus dilakukan pertama kali yakni Anda menciptakan sebuah module gres dan cara menciptakan module tentunya cukup gampang tinggal Anda masuk ke VBA editor dengan menekan tombol pada keyboard ALT+F11 maka Excel akan pribadi menuju ke VBA editor disana Anda tinggal tambahkan satu buah module dengan cara klik sajian Insert kemudian Module dan kini saatnya Anda menciptakan coding dengan mekanisme SplitWorkbook
Sub SplitFile()Jika sudah simpulan silakan Anda tambahkan satu buah tombol pada worksheet yang berfungsi untuk memanggil module diatas dengan cara klik sajian Depelover kemudian pilih Insert dan pilih Button silakan drag pada lembar kerja sesuai ukuran yang diinginkan kemudian panggil
Dim MyPath As String
Dim NamaWorksheet As Worksheet
Dim FileBaru As Workbook
Dim SheetBaru As Worksheet
MyPath = ThisWorkbook.Path
For Each NamaWorksheet In ThisWorkbook.Sheets
NamaWorksheet.Copy
Set FileBaru = ActiveWorkbook
With FileBaru
With .Sheets(1)
With .Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
End With
.SaveAs Filename:=MyPath & "\" & NamaWorksheet.Name & ".xlsx"
.Close savechanges:=True
End With
Next NamaWorksheet
End Sub
Kira-kira menyerupai gambar diatas, kemudian Anda silakan klik OK untuk menlanjutkannya. Nah kini silakan uji coba coding yang telah Anda buat tersebut dengan cara klik pada tombol Button1 dan apa yang terjadi
Perhatikan nama worksheet ada Data1, Data2, dan Data3 nanti sesudah Anda klik tombol Button1 maka excel akan otomatis menciptakan nama file sesuai dengan nama worksheet yang ditunjukan oleh anak panah tersebut dan alhasil yakni menyerupai gambar nomor 1 diatas.
Demikian, agar bermanfaat
Simak:
Cara Copy Worksheet kedalam Workbook Baru Melalui UserForm