adyasa12

Menghapus banyak object di Excel terkadang pada satu file excel terdapat banyak duplikasi text box dan picture yang kemudian akan membuat ukuran filenya menjadi besar (padahal datanya hanya sedikit), maka untuk menghapus secara bersamaan tanpa harus Click and Delete satu persatu (text box dan picture) caranya adalah sebagai Berikut : Buka File Excel yang ukurannya besar karena banyaknya isi yang terduplikasi Select area yang akan dihapus object TextBoxes-nya Tekan  Alt+F11  untuk membuka  Microsoft Visual basic for Applications Tekan  Ctrl+G  untuk membuka immediate Window Paste kode berikut lalu tekan Enter :  1 ActiveSheet . textboxes . delete Hasilnya, TextBoxes yang jumlahnya ratusan atau mungkin ribuan tadi, akan terhapus. Kalau ingin menghapus gambar, silakan ganti kata  “textboxes”  menjadi  “pictures”

caranya hanya beberapa langkah : 1. buka file excel yang ada banyak sheet nya 2. tekan Alt + F11 (akan muncul jendela baru  - microsoft visual basic for application) 3. masuk tab Insert > Module, and pastekan macro dibawah ini pada Module Window Sub SplitWorkbook() 'Updateby20140612 Dim FileExtStr  As String Dim FileFormatNum  As Long Dim xWs  As Worksheet Dim xWb  As Workbook Dim FolderName  As String Application.ScreenUpdating =  False Set xWb = Application.ThisWorkbook DateString = Format(Now,  "yyyy-mm-dd hh-mm-ss" ) FolderName = xWb.Path &  "\" & xWb.Name & " " & DateString MkDir FolderName For Each xWs  In xWb.Worksheets      xWs.Copy      If Val(Application.Version) < 12  Then          FileExtStr =  ".xls" : FileFormatNum = -4143      Else          Select Case xWb.FileFormat              Case 51:                  FileExtStr =  ".xlsx"