Buat program aktifkan folder kerja

Apa yang saya sampaikan disini saya dapat dengan trik trik tertentu dan otodidak sehingga segala masukan untuk membuat menjadi lebih baik sangat diperlukan.

Latar pemikiran :

1. Setiap awal bulan saya bikin laporan saya copy folder bulan lalu ke bulan sekarang. begitu selanjutnya



2. jadi setiap pindah bulan mesti setting lagi rumusnya macro yang membaca folder untuk dikerjakan



3. ternyata bisa diakali....e hehe eh......

Alur pemikiran :

1. buat satu file excel dalam folder yang akan diaktifkan untuk pengaktifan folder



2. bikin macro yang bisa mengganti semua setting rumus makro. Baik interface di desktop ataupun interface di smart GUI autohotkey



3. file excel tersebut setelah dibuka cuma muncul layar dan tinggal klik dan otomatis menutup file juga.

Cara pengerjaan :

1. buka file new excel worksheet, dengan nama "aktifkan folder kerja"

• hilangkan ruler, sheet tabs, dengan menu tool ---option----view



• hilangkan grid , dengan format pattern warna putih semua sheet



• sisipkan baris dan kolom yang tidak diperlukan dengan hide

1. ...............................



2. insert auto shapes gambar kotak dan diberi keterangan“Klik tombol ini :Aktifkan folder ini untuk proses kerja”lalu auto shapes tadi diassign macro



3. rumus macro seperti tertulis dibawah ini
   Sub lemparalamatfile()
   Sheets("alamat file").Select
   ChDir _
   (Range("a11"))
   Range("A1").Select
   Selection.Copy
   Workbooks.Open "tempat folder.XLS"
   Sheets("address").Select
   Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   ActiveWorkbook.Save
   ActiveWindow.Close
   Sheets("klik").Select
   MsgBox "OK aktifkan folder kerja sukses"
   ActiveWorkbook.Save
   ActiveWindow.Close
   End Sub



4. Pada file "aktifkan folder kerja" bikin sheet alamat file, dan



5. pada cell a1 masukkan rumus =LEFT(CELL("filename",B1),SEARCH("[",CELL("filename",B1))-2) >>>>hasil rumus nanti adalah folder tempat file kerja yang akan diaktifkan



6. Pada cell a11 masukkan alamat folder tempat proses induk atau tempat folder interface semua program contohnya : "D:\my dokument\1 auto hotkey hasil\smart gui"



7. Pada folder tempat proses induk (D:\my dokument\1 auto hotkey hasil\smart gui) bikin file excel "tempat folder.xls"



8. pada file tempat folder .xls bikin sheet "address"



9. di sheet "address" pada cell a2 bikin rumus ="Run, "&A1&"\(1) nna ubah dulu nama tempat filenya terbaru.xls" >>>> hal ini adala h sebagai referensi pada program autohotkey.



10. pada file tempat folder xls bikin macro yaitu :

Sub bukascriptprogramproses()
Sheets("address").Select
Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("A3").Select
Selection.Copy

ChDir _
(Range("a15"))
Workbooks.Open "z1 program antar muka aji.XLS"
End Sub
Sub renameSER()
'csr
Sheets("gantinama").Select

FileCopy (Range("a16")), (Range("g16"))
End Sub
Sub renamemin()
'cst
Sheets("gantinama").Select

FileCopy (Range("g16")), (Range("a16"))
End Sub

11. pada file tempat folder xls bikin shortcurt untuk tiap makro yaitu dengan menu Tool-macro -macro (atau tekan alt f8) pilih option :
untuk macro bukascriptprogramproses bikin shortcut CTRL+SHIFT+P
untuk macro renameSER bikin shortcut CTRL+SHIFT+T
untuk macro renamemin bikin shortcut CTRL+SHIFT+R

12. keterangan dari macro diatas :.........