10 Messages
Digest #2875
Messages
Mon Apr 14, 2014 6:19 am (PDT) . Posted by:
"dedy rauf"
setuju, tolong kbaari infonya lebih lanjut ya 0856 554 664 80
2014-04-10 7:30 GMT+07:00 ijay <dieries1304@gmail.com>:
>
>
> Siap setuju sekali. Apakah agendanya ada mengakomodir bagi pemula "VBA
> dari nol"...trims
> ijay
> ------------------------------
> *From: * belajar-excel-owner@yahoogroups.com
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *08 Apr 2014 10:01:47 -0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] Kopdar 2 Yuk
>
>
>
> Assalamu'alaikum Wr. Wb.
>
> Dear BeExceller,
>
> Kopdar 1 telah dilaksanakan tahun lalu. Moderator berencana mengadakan
> acara kopdar 2. Tema kopdar kali ini adalah Belajar Macro. Sebuah tema yang
> sangat sederhana bagi yang sudah mahir atau yang telah terbiasa dengan
> Excel VBA, tetapi relatif jarang digunakan oleh pengguna Excel ditempat
> kerjanya karena sering dicap sebagai sesuatu yang rumit.
>
> Akhir-akhir ini, di milis berseliweran topik tentang VBA. Saking seringnya
> berseliweran, bisa jadi membuat BeExceller yang masih belum mengenalnya ada
> yang menjadi enggan untuk mempelajarinya dan ada yang malah menjadi
> bersemangat untuk mempelajarinya. Hal ini menjadi salah satu latar belakang
> diadakannya kopdar 2, sebagai sarana untuk mengenalkan dasar-dasar tentang
> Excel VBA (Macro).
>
> Target utama dalam kopdar 2 ini tetaplah untuk mempererat silaturahmi
> antar BeExceller. Jadi, janganlah dikarenakan tema kopdar yang telah
> dikuasai maka menjadi enggan untuk saling mengenal antar BeExceller.
> Silaturahmi yang baik akan membuka banyak pintu rahmat Allah.
>
> Insya Allah acara akan diadakan pada :
> hari, tanggal : Minggu, 11 Mei 2014
> waktu : 08:00 - 16:00
> kapasitas : 30 sampai 50 orang tergantung ruang yang didapatkan.
> lokasi : sedang dalam pencarian dengan area sekitar jalan Pemuda, Salemba,
> atau Suprapto dan tidak menutup kemungkinan di area lain yang mudah diakses
> oleh BeExceller yang ada di Jabodetabek maupun yang dari luar kota.
> donasi : sedang dihitung oleh tim panitia dan Alhamdulillah sisa acara
> kopdar 1 bisa menjadi modal awal untuk penyelenggaraan kopdar 2 kali ini.
>
> Dukungan BeExceller seluruhnya akan bermanfaat dalam usaha mewujudkan
> acara kopdar 2 ini. Tim panitia kopdar masih butuh tenaga relawan dari
> BeExceller. Silakan hubungi Pak Aliff atau Pak Opick untuk yang bersedia
> membantu tim panitia. Masukan dari seluruh BeExceller tentang lokasi dan
> informasi ruang yang bisa dipinjam atau disewa untuk acara kopdar 2 kali
> ini sangatlah diharapkan.
>
> Informasi lebih lanjut tentang detil kopdar 2 akan disampaikan lebih detil
> oleh moderator dan tim panitia.
>
> Wassalamu'alaikum Wr. Wb.
> Moderator Belajar-Excel
>
>
>
2014-04-10 7:30 GMT+07:00 ijay <dieries1304@gmail.com>:
>
>
> Siap setuju sekali. Apakah agendanya ada mengakomodir bagi pemula "VBA
> dari nol"...trims
> ijay
> ------------------------------
> *From: * belajar-excel-owner@yahoogroups.com
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *08 Apr 2014 10:01:47 -0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] Kopdar 2 Yuk
>
>
>
> Assalamu'
>
> Dear BeExceller,
>
> Kopdar 1 telah dilaksanakan tahun lalu. Moderator berencana mengadakan
> acara kopdar 2. Tema kopdar kali ini adalah Belajar Macro. Sebuah tema yang
> sangat sederhana bagi yang sudah mahir atau yang telah terbiasa dengan
> Excel VBA, tetapi relatif jarang digunakan oleh pengguna Excel ditempat
> kerjanya karena sering dicap sebagai sesuatu yang rumit.
>
> Akhir-akhir ini, di milis berseliweran topik tentang VBA. Saking seringnya
> berseliweran, bisa jadi membuat BeExceller yang masih belum mengenalnya ada
> yang menjadi enggan untuk mempelajarinya dan ada yang malah menjadi
> bersemangat untuk mempelajarinya. Hal ini menjadi salah satu latar belakang
> diadakannya kopdar 2, sebagai sarana untuk mengenalkan dasar-dasar tentang
> Excel VBA (Macro).
>
> Target utama dalam kopdar 2 ini tetaplah untuk mempererat silaturahmi
> antar BeExceller. Jadi, janganlah dikarenakan tema kopdar yang telah
> dikuasai maka menjadi enggan untuk saling mengenal antar BeExceller.
> Silaturahmi yang baik akan membuka banyak pintu rahmat Allah.
>
> Insya Allah acara akan diadakan pada :
> hari, tanggal : Minggu, 11 Mei 2014
> waktu : 08:00 - 16:00
> kapasitas : 30 sampai 50 orang tergantung ruang yang didapatkan.
> lokasi : sedang dalam pencarian dengan area sekitar jalan Pemuda, Salemba,
> atau Suprapto dan tidak menutup kemungkinan di area lain yang mudah diakses
> oleh BeExceller yang ada di Jabodetabek maupun yang dari luar kota.
> donasi : sedang dihitung oleh tim panitia dan Alhamdulillah sisa acara
> kopdar 1 bisa menjadi modal awal untuk penyelenggaraan kopdar 2 kali ini.
>
> Dukungan BeExceller seluruhnya akan bermanfaat dalam usaha mewujudkan
> acara kopdar 2 ini. Tim panitia kopdar masih butuh tenaga relawan dari
> BeExceller. Silakan hubungi Pak Aliff atau Pak Opick untuk yang bersedia
> membantu tim panitia. Masukan dari seluruh BeExceller tentang lokasi dan
> informasi ruang yang bisa dipinjam atau disewa untuk acara kopdar 2 kali
> ini sangatlah diharapkan.
>
> Informasi lebih lanjut tentang detil kopdar 2 akan disampaikan lebih detil
> oleh moderator dan tim panitia.
>
> Wassalamu'
> Moderator Belajar-Excel
>
>
>
Mon Apr 14, 2014 6:43 pm (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
hahaha,
Terima kasih miss atas teka-tekinya.
Saya sercing sercing dulu ya cara mengartikan clue dari miss...
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 14/04/2014 16:38, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> Pak Heri,
>
> coba langkah-langkah seperti berikut ini:
>
> 1. deklarasikan sebuah variabel bertipe single untuk menyimpan waktu
> mulai >> 1 baris script
> 2. cara mengambil waktu mulai atau selesai adalah menggunakan script
> Timer
> 3. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
> variabel yang sudah disiapkan menggunakan script pada nomer 2 di
> atas >> 1 baris script
> 4. satu baris setelah script yang ada, lakukan pengurangan antara
> waktu selesai (lagi-lagi menggunakan script nomer 2 di atas)
> dengan waktu mulai, proses ini bisa langsung digabungkan dengan
> script untuk menampilkan message box >> 1 baris script
>
> semoga penjelasannya bisa dipahami, Jan gak menyertakan script ya..
> soalnya kan cuma 3 baris yang dibutuhkan xixixi ^_^
>
> Wassalamu'alaikum wr. wb.,
>
> -Miss Jan Raisin-
>
>
>
> Pada 14 April 2014 11.45, Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>
>
> --
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Hehehe,
> Saya sedang coba-coba main VB nih.
>
> Saya bikin script sederhana bunyinya begini :
>
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> Sheets("
>
>
> Pertanyannya, Bagaimana caranya agar saya bisa tahu
> Berapa waktu kalkulasi script diatas dengan MsgBox ?!
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
Mon Apr 14, 2014 7:34 pm (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Hehehe,
Miss Jan dan Kawan2 Be-Excell yang budiman,
Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
" 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
variabel yang sudah disiapkan menggunakan script pada nomer 2
di atas>> 1 baris script. "
Ini Script yang coba saya buat :
Private Sub Unhide_Sheet()
' Unhide_Sheet Macro
Dim Test As Single
Test = (Timer)
Sheets("ILev").Visible = True
Sheets("mDBeg").Visible = True
Sheets("mDH-1").Visible = True
Sheets("mDH").Visible = True
Sheets("Ostd").Visible = True
MsgBox (Timer) - Test, , "Coba-Coba"
End Sub
Tapi "0" hasilnya, Sepertinya sih pada :
" (Timer) " menghasilkan value yang sama dengan " Test = (Timer)"
Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0".
Hiks Hiks,...
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 14/04/2014 16:38, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> Pak Heri,
>
> coba langkah-langkah seperti berikut ini:
>
> 1. deklarasikan sebuah variabel bertipe single untuk menyimpan waktu
> mulai >> 1 baris script
> 2. cara mengambil waktu mulai atau selesai adalah menggunakan script
> Timer
> 3. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
> variabel yang sudah disiapkan menggunakan script pada nomer 2 di
> atas >> 1 baris script
> 4. satu baris setelah script yang ada, lakukan pengurangan antara
> waktu selesai (lagi-lagi menggunakan script nomer 2 di atas)
> dengan waktu mulai, proses ini bisa langsung digabungkan dengan
> script untuk menampilkan message box >> 1 baris script
>
> semoga penjelasannya bisa dipahami, Jan gak menyertakan script ya..
> soalnya kan cuma 3 baris yang dibutuhkan xixixi ^_^
>
> Wassalamu'alaikum wr. wb.,
>
> -Miss Jan Raisin-
>
>
>
> Pada 14 April 2014 11.45, Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>
>
> --
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Hehehe,
> Saya sedang coba-coba main VB nih.
>
> Saya bikin script sederhana bunyinya begini :
>
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> Sheets("
>
>
> Pertanyannya, Bagaimana caranya agar saya bisa tahu
> Berapa waktu kalkulasi script diatas dengan MsgBox ?!
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
Mon Apr 14, 2014 9:50 pm (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
pak Heri,
di komputer Jan scriptnya sudah berjalan dengan baik kok..
ini hasilnya..
[image: Gambar sisip 1]
Mungkin spek komputernya lebih bagus dari komputer Jan [?][?][?] hiks..
jadinya lebih cepet prosesnya
Tukeran dong komputernya.. [image: Gambar sisip 2][image: Gambar sisip
2][image:
Gambar sisip 2]
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail )
<ghery.dharma@gmail.com>menulis:
>
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Hehehe,
>
> Miss Jan dan Kawan2 Be-Excell yang budiman,
> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>
> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
> variabel yang sudah disiapkan menggunakan script pada nomer 2
> di atas>> 1 baris script. "
>
> Ini Script yang coba saya buat :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox (Timer) - Test, , "Coba-Coba"
> End Sub
>
>
> Tapi "0" hasilnya, Sepertinya sih pada :
>
> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer) "
> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0".
>
>
> Hiks Hiks,...
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>
pak Heri,
di komputer Jan scriptnya sudah berjalan dengan baik kok..
ini hasilnya..
[image: Gambar sisip 1]
Mungkin spek komputernya lebih bagus dari komputer Jan [?][?][?] hiks..
jadinya lebih cepet prosesnya
Tukeran dong komputernya.. [image: Gambar sisip 2][image: Gambar sisip
2][image:
Gambar sisip 2]
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail )
<ghery.dharma@gmail.com>menulis:
>
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Hehehe,
>
> Miss Jan dan Kawan2 Be-Excell yang budiman,
> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>
> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
> variabel yang sudah disiapkan menggunakan script pada nomer 2
> di atas>> 1 baris script. "
>
> Ini Script yang coba saya buat :
>
> Private Sub Unhide_Sheet(
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> MsgBox (Timer) - Test, , "Coba-Coba&quo
> End Sub
>
>
> Tapi "0" hasilnya, Sepertinya sih pada :
>
> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer) "
> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0"
>
>
> Hiks Hiks,...
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>
Mon Apr 14, 2014 11:03 pm (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Alhamdulillah,
hehehehe, Senengnya seperti pertama kali bisa malam pertama.
" Lho...
Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell
Bagaimana cara memformat hasil tersebut menjadi Format :
"00:00:00 000"
Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 15/04/2014 11:49, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> pak Heri,
>
> di komputer Jan scriptnya sudah berjalan dengan baik kok..
> ini hasilnya..
> Gambar sisip 1
>
> Mungkin spek komputernya lebih bagus dari komputer Jan hiks..
> jadinya lebih cepet prosesnya
>
> Tukeran dong komputernya.. Gambar sisip 2Gambar sisip 2Gambar sisip 2
>
> Wassalam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Hehehe,
>
> Miss Jan dan Kawan2 Be-Excell yang budiman,
> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>
> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
> variabel yang sudah disiapkan menggunakan script pada nomer 2
> di atas>> 1 baris script. "
>
> Ini Script yang coba saya buat :
>
> Private Sub Unhide_Sheet(
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> Sheets("
> MsgBox (Timer) - Test, , "Coba-Coba&quo
> End Sub
>
>
> Tapi "0" hasilnya, Sepertinya sih pada :
>
> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer)"
> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0"
>
>
> Hiks Hiks,...
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>
>
Tue Apr 15, 2014 1:57 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
hmmmmmmm,..
Tadi jalan-jalan nemu pake "Format"
Ternyata mirip-mirip kaya Format Cell.
Setelah diketik jadinya :
Private Sub Unhide_Sheet()
' Unhide_Sheet Macro
Dim Test As Single
Test = (Timer)
Sheets("ILev").Visible = True
Sheets("mDBeg").Visible = True
Sheets("mDH-1").Visible = True
Sheets("mDH").Visible = True
Sheets("Ostd").Visible = True
MsgBox Format((Timer) - Test,"00:00:00"), , "Coba-Coba"
End Sub
Tapi untuk koma detik waktu saya rubah menggunakan "00:00:00,0"
Kenapa malah jadi ngaco ya ?!
Hiks Hiks ....T.T
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 15/04/2014 13:03, Heri Pamungkas ( Gmail ) wrote:
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> hehehehe, Senengnya seperti pertama kali bisa malam pertama.
> " Lho...
>
> Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell
>
> Bagaimana cara memformat hasil tersebut menjadi Format :
>
> "00:00:00 000"
> Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
> On 15/04/2014 11:49, Jan Raisin wrote:
>> Wa'alaikumsalam wr. wb.,
>>
>> pak Heri,
>>
>> di komputer Jan scriptnya sudah berjalan dengan baik kok..
>> ini hasilnya..
>> Gambar sisip 1
>>
>> Mungkin spek komputernya lebih bagus dari komputer Jan hiks..
>> jadinya lebih cepet prosesnya
>>
>> Tukeran dong komputernya.. Gambar sisip 2Gambar sisip 2Gambar sisip 2
>>
>> Wassalam,
>>
>>
>> -Miss Jan Raisin-
>>
>>
>> Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail )
>> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Hehehe,
>>
>> Miss Jan dan Kawan2 Be-Excell yang budiman,
>> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>>
>> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
>> variabel yang sudah disiapkan menggunakan script pada nomer 2
>> di atas>> 1 baris script. "
>>
>> Ini Script yang coba saya buat :
>>
>> Private Sub Unhide_Sheet(
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("
>> Sheets("
>> Sheets("
>> Sheets("
>> Sheets("
>> MsgBox (Timer) - Test, , "Coba-Coba&quo
>> End Sub
>>
>>
>> Tapi "0" hasilnya, Sepertinya sih pada :
>>
>> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer)"
>> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0"
>>
>>
>> Hiks Hiks,...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>>
>>
>
Tue Apr 15, 2014 2:36 am (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
Pak Heri,
sebagai dasarnya adalah seperti ini, Timer - Test akan menghasilkan suatu
nilai tertentu yang menunjukkan nilai detik, anggap saja sebagai AA
lalu pak Heri ingin menampilkan sampai dengan jam dan menitnya plus
ditambah sampai per 100 detiknya
maka yang harus dilakukan pertama kali adalah merubah nilai AA yang detik
tersebut menjadi jam,
oleh karena itu harus dibagi dengan jumlah detik dalam 1 hari penuh..
bagian_pertama:
kalo 1 hari semalam di tempat Jan biasanya 24 jam (kalo ada mas Aji di
samping Jan keliatannya lebih cepat lagi deh [image: Gambar sisip 1][image:
Gambar sisip 1][image: Gambar sisip 1]
terus 1 jam ada 60 menit dan 1 menit terdiri dari 60 detik
Nah.. kira-kira nilai AA tersebut harus dibagi berapa hayoo ?
Kalo sudah ketemu baru dimasukkan dalam format hh:mm:ss
bagian_kedua:
Yang di atas adalah cara sampai memunculkan nilai per detik, lalu untuk
memunculkan nilai per 100 detik bagaimana hayoo?
caranya adalah mengambil 2 digit di sebelah kanan nilai AA tadi, tau kan
fungsinya? xixixi ^_^
lalu diformat menjadi #0.00
clue tambahan: Formatnya dilakukan di dalam fungsi pengambil digit di
sebalah kanan ya..
Nah.. kalo sudah kan tinggal digabung saja dengan tanda ampersand (bener
gak sih nulisnya?)
yang ini Jan kasih tau scriptnya deh..
bagian_pertama & "." & bagian_kedua
eh.. ternyata di pertanyaan sebelumnya inginnya dimunculkan 3 digit ya?
lalu ada spasi antara detik dengan per sekian detiknya..
kalo gitu ambil nilai sebelah kanannya juga harus 3 digit ya.. lalu
formatnya bagian keduanya pun juga diubah menjadi #0.000
script gabungnya menjadi:
bagian_pertama & " " & bagian_kedua
untuk cek benar atau tidaknya..
misal A1 diisi dengan nilai Test >> waktu mulai
A2 diisi dengan nilai Timer >> waktu selesai
A3 diisi dengan nilai A2 dikurangi A1
kalo nilai di A3 dengan di msgbox sama.. maka tandanya sudah berada di
sekript yang tepat ^_^
Mudah-mudahan teka-teki di atas gak bikin bingung pak Heri ^_^
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2014 15.57, Heri Pamungkas ( Gmail )
<ghery.dharma@gmail.com>menulis:
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> hmmmmmmm,..
>
> Tadi jalan-jalan nemu pake "Format"
> Ternyata mirip-mirip kaya Format Cell.
> Setelah diketik jadinya :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer) - Test,"00:00:00"), , "Coba-Coba"
> End Sub
>
> Tapi untuk koma detik waktu saya rubah menggunakan "00:00:00,0"
> Kenapa malah jadi ngaco ya ?!
>
>
> Hiks Hiks ....T.T
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 15/04/2014 13:03, Heri Pamungkas ( Gmail ) wrote:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> hehehehe, Senengnya seperti pertama kali bisa malam pertama.
> " Lho...
>
> Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell
>
> Bagaimana cara memformat hasil tersebut menjadi Format :
>
> "00:00:00 000"
> Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 15/04/2014 11:49, Jan Raisin wrote:
>
>
> Wa'alaikumsalam wr. wb.,
>
> pak Heri,
>
> di komputer Jan scriptnya sudah berjalan dengan baik kok..
> ini hasilnya..
> [image: Gambar sisip 1]
>
> Mungkin spek komputernya lebih bagus dari komputer Jan [?][?][?] hiks..
> jadinya lebih cepet prosesnya
>
> Tukeran dong komputernya.. [image: Gambar sisip 2][image: Gambar sisip 2][image:
> Gambar sisip 2]
>
> Wassalam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> > menulis:
>
>>
>>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Hehehe,
>>
>> Miss Jan dan Kawan2 Be-Excell yang budiman,
>> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>>
>> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
>> variabel yang sudah disiapkan menggunakan script pada nomer 2
>> di atas>> 1 baris script. "
>>
>> Ini Script yang coba saya buat :
>>
>> Private Sub Unhide_Sheet()
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("ILev").Visible = True
>> Sheets("mDBeg").Visible = True
>> Sheets("mDH-1").Visible = True
>> Sheets("mDH").Visible = True
>> Sheets("Ostd").Visible = True
>> MsgBox (Timer) - Test, , "Coba-Coba"
>> End Sub
>>
>>
>> Tapi "0" hasilnya, Sepertinya sih pada :
>>
>> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer) "
>> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0".
>>
>>
>> Hiks Hiks,...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>>
>
>
>
Pak Heri,
sebagai dasarnya adalah seperti ini, Timer - Test akan menghasilkan suatu
nilai tertentu yang menunjukkan nilai detik, anggap saja sebagai AA
lalu pak Heri ingin menampilkan sampai dengan jam dan menitnya plus
ditambah sampai per 100 detiknya
maka yang harus dilakukan pertama kali adalah merubah nilai AA yang detik
tersebut menjadi jam,
oleh karena itu harus dibagi dengan jumlah detik dalam 1 hari penuh..
bagian_pertama:
kalo 1 hari semalam di tempat Jan biasanya 24 jam (kalo ada mas Aji di
samping Jan keliatannya lebih cepat lagi deh [image: Gambar sisip 1][image:
Gambar sisip 1][image: Gambar sisip 1]
terus 1 jam ada 60 menit dan 1 menit terdiri dari 60 detik
Nah.. kira-kira nilai AA tersebut harus dibagi berapa hayoo ?
Kalo sudah ketemu baru dimasukkan dalam format hh:mm:ss
bagian_kedua:
Yang di atas adalah cara sampai memunculkan nilai per detik, lalu untuk
memunculkan nilai per 100 detik bagaimana hayoo?
caranya adalah mengambil 2 digit di sebelah kanan nilai AA tadi, tau kan
fungsinya? xixixi ^_^
lalu diformat menjadi #0.00
clue tambahan: Formatnya dilakukan di dalam fungsi pengambil digit di
sebalah kanan ya..
Nah.. kalo sudah kan tinggal digabung saja dengan tanda ampersand (bener
gak sih nulisnya?)
yang ini Jan kasih tau scriptnya deh..
bagian_pertama & "." & bagian_kedua
eh.. ternyata di pertanyaan sebelumnya inginnya dimunculkan 3 digit ya?
lalu ada spasi antara detik dengan per sekian detiknya..
kalo gitu ambil nilai sebelah kanannya juga harus 3 digit ya.. lalu
formatnya bagian keduanya pun juga diubah menjadi #0.000
script gabungnya menjadi:
bagian_pertama & " " & bagian_kedua
untuk cek benar atau tidaknya..
misal A1 diisi dengan nilai Test >> waktu mulai
A2 diisi dengan nilai Timer >> waktu selesai
A3 diisi dengan nilai A2 dikurangi A1
kalo nilai di A3 dengan di msgbox sama.. maka tandanya sudah berada di
sekript yang tepat ^_^
Mudah-mudahan teka-teki di atas gak bikin bingung pak Heri ^_^
Wassalam,
-Miss Jan Raisin-
Pada 15 April 2014 15.57, Heri Pamungkas ( Gmail )
<ghery.dharma@gmail.com>menulis:
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> hmmmmmmm,..
>
> Tadi jalan-jalan nemu pake "Format"
> Ternyata mirip-mirip kaya Format Cell.
> Setelah diketik jadinya :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer) - Test,"00:00:00"), , "Coba-Coba"
> End Sub
>
> Tapi untuk koma detik waktu saya rubah menggunakan "00:00:00,0"
> Kenapa malah jadi ngaco ya ?!
>
>
> Hiks Hiks ....T.T
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 15/04/2014 13:03, Heri Pamungkas ( Gmail ) wrote:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> hehehehe, Senengnya seperti pertama kali bisa malam pertama.
> " Lho...
>
> Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell
>
> Bagaimana cara memformat hasil tersebut menjadi Format :
>
> "00:00:00 000"
> Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 15/04/2014 11:49, Jan Raisin wrote:
>
>
> Wa'alaikumsalam wr. wb.,
>
> pak Heri,
>
> di komputer Jan scriptnya sudah berjalan dengan baik kok..
> ini hasilnya..
> [image: Gambar sisip 1]
>
> Mungkin spek komputernya lebih bagus dari komputer Jan [?][?][?] hiks..
> jadinya lebih cepet prosesnya
>
> Tukeran dong komputernya.. [image: Gambar sisip 2][image: Gambar sisip 2][image:
> Gambar sisip 2]
>
> Wassalam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> > menulis:
>
>>
>>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Hehehe,
>>
>> Miss Jan dan Kawan2 Be-Excell yang budiman,
>> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>>
>> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
>> variabel yang sudah disiapkan menggunakan script pada nomer 2
>> di atas>> 1 baris script. "
>>
>> Ini Script yang coba saya buat :
>>
>> Private Sub Unhide_Sheet(
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("
>> Sheets("
>> Sheets("
>> Sheets("
>> Sheets("
>> MsgBox (Timer) - Test, , "Coba-Coba&quo
>> End Sub
>>
>>
>> Tapi "0" hasilnya, Sepertinya sih pada :
>>
>> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer) "
>> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0"
>>
>>
>> Hiks Hiks,...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>>
>
>
>
Tue Apr 15, 2014 3:09 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Miss dan Teman2 Be-Exceller yang Budiman,..
Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
Beginilah hasil penalaran saya yang terlihat aneh :
Private Sub Unhide_Sheet()
' Unhide_Sheet Macro
Dim Test As Single
Test = (Timer)
Sheets("ILev").Visible = True
Sheets("mDBeg").Visible = True
Sheets("mDH-1").Visible = True
Sheets("mDH").Visible = True
Sheets("Ostd").Visible = True
MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba"
End Sub
Deng denggggggg..... Problemnya.
Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
Atau ada ketikan saya yang salah ya ?!
Atau sebenarnya Waktu yang berjalan Mundur ?!..
#hmmmm,... masang tampang Mikir...
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 15/04/2014 16:36, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> Pak Heri,
> sebagai dasarnya adalah seperti ini, Timer - Test akan menghasilkan
> suatu nilai tertentu yang menunjukkan nilai detik, anggap saja sebagai AA
> lalu pak Heri ingin menampilkan sampai dengan jam dan menitnya plus
> ditambah sampai per 100 detiknya
> maka yang harus dilakukan pertama kali adalah merubah nilai AA yang
> detik tersebut menjadi jam,
> oleh karena itu harus dibagi dengan jumlah detik dalam 1 hari penuh..
>
> bagian_pertama:
> kalo 1 hari semalam di tempat Jan biasanya 24 jam (kalo ada mas Aji di
> samping Jan keliatannya lebih cepat lagi deh Gambar sisip 1Gambar
> sisip 1Gambar sisip 1
> terus 1 jam ada 60 menit dan 1 menit terdiri dari 60 detik
> Nah.. kira-kira nilai AA tersebut harus dibagi berapa hayoo ?
> Kalo sudah ketemu baru dimasukkan dalam format hh:mm:ss
>
> bagian_kedua:
> Yang di atas adalah cara sampai memunculkan nilai per detik, lalu
> untuk memunculkan nilai per 100 detik bagaimana hayoo?
> caranya adalah mengambil 2 digit di sebelah kanan nilai AA tadi, tau
> kan fungsinya? xixixi ^_^
> lalu diformat menjadi #0.00
> clue tambahan: Formatnya dilakukan di dalam fungsi pengambil digit di
> sebalah kanan ya..
>
> Nah.. kalo sudah kan tinggal digabung saja dengan tanda ampersand
> (bener gak sih nulisnya?)
> yang ini Jan kasih tau scriptnya deh..
>
> bagian_pertama & "." &bagian_kedua
>
> eh.. ternyata di pertanyaan sebelumnya inginnya dimunculkan 3 digit
> ya? lalu ada spasi antara detik dengan per sekian detiknya..
> kalo gitu ambil nilai sebelah kanannya juga harus 3 digit ya.. lalu
> formatnya bagian keduanya pun juga diubah menjadi #0.000
> script gabungnya menjadi:
> bagian_pertama & " " & bagian_kedua
>
> untuk cek benar atau tidaknya..
> misal A1 diisi dengan nilai Test >> waktu mulai
> A2 diisi dengan nilai Timer >> waktu selesai
> A3 diisi dengan nilai A2 dikurangi A1
> kalo nilai di A3 dengan di msgbox sama.. maka tandanya sudah berada di
> sekript yang tepat ^_^
>
> Mudah-mudahan teka-teki di atas gak bikin bingung pak Heri ^_^
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 15 April 2014 15.57, Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> hmmmmmmm,..
>
> Tadi jalan-jalan nemu pake "Format"
> Ternyata mirip-mirip kaya Format Cell.
> Setelah diketik jadinya :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer) - Test,"00:00:00"), , "Coba-Coba"
> End Sub
>
> Tapi untuk koma detik waktu saya rubah menggunakan "00:00:00,0"
> Kenapa malah jadi ngaco ya ?!
>
>
> Hiks Hiks ....T.T
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 15/04/2014 13:03, Heri Pamungkas ( Gmail ) wrote:
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Alhamdulillah,
>>
>> hehehehe, Senengnya seperti pertama kali bisa malam pertama.
>> " Lho...
>>
>> Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell
>>
>> Bagaimana cara memformat hasil tersebut menjadi Format :
>>
>> "00:00:00 000"
>> Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>> On 15/04/2014 11:49, Jan Raisin wrote:
>>> Wa'alaikumsalam wr. wb.,
>>>
>>> pak Heri,
>>>
>>> di komputer Jan scriptnya sudah berjalan dengan baik kok..
>>> ini hasilnya..
>>> Gambar sisip 1
>>>
>>> Mungkin spek komputernya lebih bagus dari komputer Jan hiks..
>>> jadinya lebih cepet prosesnya
>>>
>>> Tukeran dong komputernya.. Gambar sisip 2Gambar sisip 2Gambar
>>> sisip 2
>>>
>>> Wassalam,
>>>
>>>
>>> -Miss Jan Raisin-
>>>
>>>
>>> Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail )
>>> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>>>
>>>
>>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>> Semangat pagi,.
>>>
>>> Hehehe,
>>>
>>> Miss Jan dan Kawan2 Be-Excell yang budiman,
>>> Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?!
>>>
>>> " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam
>>> variabel yang sudah disiapkan menggunakan script pada nomer 2
>>> di atas>> 1 baris script. "
>>>
>>> Ini Script yang coba saya buat :
>>>
>>> Private Sub Unhide_Sheet(
>>> ' Unhide_Sheet Macro
>>> Dim Test As Single
>>> Test = (Timer)
>>> Sheets("
>>> Sheets("
>>> Sheets("
>>> Sheets("
>>> Sheets("
>>> MsgBox (Timer) - Test, , "Coba-Coba&quo
>>> End Sub
>>>
>>>
>>> Tapi "0" hasilnya, Sepertinya sih pada :
>>>
>>> " (Timer) " menghasilkan value yang sama dengan " Test = (Timer)"
>>> Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0"
>>>
>>>
>>> Hiks Hiks,...
>>>
>>>
>>>
>>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>>
>>> Warm Regards,
>>>
>>>
>>>
>>
>
>
>
Tue Apr 15, 2014 1:52 am (PDT) . Posted by:
"Haris Rifai" haris.rifai
Dear Master Excel.
Public sub Buka_File()
Dim wbkApp As Workbook, wbkTarget As Workbook
Set wbkApp = ThisWorkbook
Set wbkTarget = Workbooks.Open("f:\baru\DATABASE.xlsm", 2)
wbkTarget.Sheets("Database").Activate
end sub
Prosedur diatas adalah perintah untuk membuka/mengaktivkan suatu file macro excel.
Bagaimana jika file yang ingin dibuka berada di PC yang berbeda. Misalnya kita bekerja dalan sebuah jaringan LAN.
PC-01 sebagai tempat prosedur pemanggil, sedangkan file yang dibuka berada di PC-02.
Apa yang mesti ditambahkan dalam prosedur tersebut, atau bagaimana prosedur yang mesti dibuat untuk menjalankan yang saya maksudkan tersebut.
Mohon pencerahan para master sekalian.
Terimaksih.
Haris.
Public sub Buka_File()
Dim wbkApp As Workbook, wbkTarget As Workbook
Set wbkApp = ThisWorkbook
Set wbkTarget = Workbooks.Open(
wbkTarget.Sheets(
end sub
Prosedur diatas adalah perintah untuk membuka/mengaktivka
Bagaimana jika file yang ingin dibuka berada di PC yang berbeda. Misalnya kita bekerja dalan sebuah jaringan LAN.
PC-01 sebagai tempat prosedur pemanggil, sedangkan file yang dibuka berada di PC-02.
Apa yang mesti ditambahkan dalam prosedur tersebut, atau bagaimana prosedur yang mesti dibuat untuk menjalankan yang saya maksudkan tersebut.
Mohon pencerahan para master sekalian.
Terimaksih.
Haris.
Tue Apr 15, 2014 2:03 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Berikut yang coba saya jalankan di komputer saya
dan berhasil :
Public Sub Buka_File()
Dim wbkApp As Workbook, wbkTarget As Workbook
Set wbkApp = ThisWorkbook
Set wbkTarget = Workbooks.Open(
wbkTarget.Sheets(
End Sub
Atau mungkin bisa diganti IP ?!
Semoga bisa membantu.
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 15/04/2014 15:46, Haris Rifai wrote:
> Dear Master Excel.
> Public sub Buka_File()
> Dim wbkApp As Workbook, wbkTarget As Workbook
> Set wbkApp = ThisWorkbook
> Set wbkTarget = Workbooks.Open(
> wbkTarget.Sheets(
> end sub
> Prosedur diatas adalah perintah untuk membuka/mengaktivka
> macro excel.
> Bagaimana jika file yang ingin dibuka berada di PC yang berbeda.
> Misalnya kita bekerja dalan sebuah jaringan LAN.
> PC-01 sebagai tempat prosedur pemanggil, sedangkan file yang dibuka
> berada di PC-02.
> Apa yang mesti ditambahkan dalam prosedur tersebut, atau bagaimana
> prosedur yang mesti dibuat untuk menjalankan yang saya maksudkan tersebut.
> Mohon pencerahan para master sekalian.
> Terimaksih.
> Haris.
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar