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 :.........

awal 1000 psp

awal adalah yang sangat penting

pada awal pertarungan psps mesti dijaga dengan membaca 1000 psp

jadi perjuangan awal adalah mau

1. membaca 1000 psp

2. mau membuka buku bacaan bersanmbung

hal yang satu ini sering terlupakan

perlu dilatih

rise again

hem hem hem!!!
keadaan semakin menegangkan
hal yang tak diinginkan akhirnya terjadi.
wah gawat...

sabr sabar sabar

i can't give up

gagal lagi

pagi satu tiang udara tidak terpasang

bagaimana bisa menang

dengan cara apapun tidak ada jaminan kalau aku akan menang.
tapi yang pertama adalah perlu keberanian

• 1. ya berani melangkah maju menghadapi masa depan walau tidak pasti, walau terasa sakit dan perih, karena gagal ratusan kali. tetap berani untuk maju
• 2. berani menderita, terluka dan merasakan sakit dan keadaan yang tidak mengenakkan
• 3. punya keinginana yang kuat

kelemhan ku aku tdak punya keinginan yang kuat keinginanaku selalu berubah ubah

MY name evlin

aku telah banyak kalah sampai saat ini
dan aku tidak tau lagi
bagaimana caranya bisa menang
tapi aku yakin aku akan menang
berikut akan kuceritakan pengalamanku