ibu Himmah
silakan dicoba script berikut
Option Explicit
' -------------------------- '
' Code by Miss Jan Raisin '
' untuk millis Belajar Excel '
' 14 November 2012 '
' -------------------------- '
' nama prosedur
Sub MoveCopyVisible()
' deklarasikan variable untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' dekalrasikan sebuah konstanta untuk menyimpan alamat_file
' tipe data adalah String karena alamat_file berupa text atau string
' ganti alamat_file sesuai dengan keinginan
Const sPath As String = "E:\"
' dekalrasikan sebuah konstanta untuk menyimpan nama_file
' tipe data adalah String karena nama_file berupa text atau string
' ganti nama_file sesuai dengan keinginan
Const sWbName As String = "FileB"
' terhadap workbook yang aktif (misal adalah FileA), kita akan membuat
workbook baru dengan nama yang berbeda
' karena itu digunakan perintah ActiveWorkbook.SaveAs
' lokasi dan nama file yang baru diambil berdasarkan konstanta
alamat_file & nama_file & ekstensi_file
' alamat_file adalah sPath
' nama_file adalah sWbName
' ekstensi_file adalah "." & "xlsm"
' kenapa ekstensinya harus xlsm ?
' karena seluruh script yang tertulis ini akan pindah ke dalam file
yang baru (fileB)
' akibat dari perintah .SaveAs
' walaupun awalnya di tulis di dalam file yang lama (fileA)
ActiveWorkbook.SaveAs Filename:=sPath & sWbName & "." & "xlsm",
CreateBackup:=False
' setelah terbentuk sebuah file yang baru dengan nama yang baru
' kita akan melakukan pengujian tehadap seluruh worksheet yang terdapat
dalam file tersebut
' jika status worksheet adalah veryhidden maka akan diubah menjadi
visible
' untuk itu akan dilakuak loop terhadap seluruh worksheet
' gunakan perintah For Each - Next
For Each ws In Worksheets
' dari sini kita akan melakukan pengujian terhadap status worksheet
' jika statusnya adalah very hidden, maka
If ws.Visible = xlSheetVeryHidden Then
' tampilkan worksheet tersebut dengan perintah
nama_objeknya.Visible = xlSheetVisible
ws.Visible = xlSheetVisible
' ini adalah penutup dari pengujian terhadap seluruh worksheet
End If
' lanjutkan untuk worksheet berikutnya
Next ws
' ini adalah penutup dari prosedur
End Sub
script-nya sebetulnya pendek karena berjalan di dalam file itu sendiri,
yang panjang hanya dongeng menjelang libur panjangnya xixixixi :D
Best Regard,
Jan Raisin
Pada 13 November 2012 16:59, him mah <[email protected]> menulis:
> **
>
>
> Mohon bantuannya
>
> saya punya file excel dengan nama fileA terdiri dari beberapa sheet
> dengan nama "A","B","C","D", dan "E" status sheet tersebut
> xlSheetVeryHidden
>
> saya ingin melakukan move copy ke file excel baru untuk sheet tersebut
> dan file baru tersebut dinamai fileB,
>
> untuk di fileA sheet sheet tersebut statusnya biar xlSheetVeryHidden
> sedangkan di di fileB sheet tersebut statusnya menjadi xlSheetVisible
>
> kira-kira VBA nya seperti apa
>
> terima kasih
>
>
