3 New Messages
Digest #1780
Messages
Fri Sep 14, 2012 4:21 am (PDT) . Posted by:
"Md Switra" mswitra
Terima Kasih Mbak Siti
Semoga segala amal ibadahnya di terima oleh Tuhan Yang Maha Esa.
Dikirim dari Yahoo! Mail pada Android
Semoga segala amal ibadahnya di terima oleh Tuhan Yang Maha Esa.
Dikirim dari Yahoo! Mail pada Android
Fri Sep 14, 2012 5:50 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Jika application ontime membuat masalah ketika aplikasi sudah semakin
dilengkapi, coba dengan doevents dalam do loop.
Sub Exit_()
Dim w As Workbook
dim dtBatas as date
Unload frmTask
For Each w In Application.Workbooks
w.Save
Next w
ThisWorkbook.Application.Visible = False
dtbatas=now+timevalue("00:00:01")
do
doevents
loop until now>dtbatas
Application.Quit
End Sub
Wassalam,
Kid.
2012/9/14 Hilman <hilman_email@yahoo.com >
> **
>
>
> Pake trik dikit mau gak???
> Kalo mau coba trik berikut ini...
> Ketika exit window di klik, routine Exit_ di ekesekusi. Namun di dalam
> routine nya tidak ada perintah application.quit, tetapi ditunda dikit
> dengan application.ontime
>
> semoga berkenan....
>
>
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.Workbooks
> w.Save
> Next w
>
> ThisWorkbook.Application.Visible = False
> Application.OnTime Now + TimeValue("00:00:1"), "Exit_2"
> End Sub
>
> Sub Exit_2()
> Application.Quit
> End Sub
>
>
> ------------------------------
> *From:* Longinus Along <longinus.along@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, September 13, 2012 7:24 PM
> *Subject:* [belajar-excel] MenuMaker_UFrmAPI, (dengan teksberjalan)
>
>
> Dear All Master,
>
> Mohon pencerahannya,,,,untuk file yang terlamnpir pada email ini, terdapat
> 2 buah file yaitu 1.MenuMaker_UFrmAPI, (tanpa teksberjalan)
> 2.MenuMaker_UFrmAPI, (dengan teksberjalan)
> kedua menu tersebut sama-sama saya sisipkan submenu File===>Exit===>Ke
> Windows
> di sub menu KE WINDOWS ada macro :
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.Workbooks
> w.Save
> Next w
> Application.Quit
> End Sub
>
> masalahnya adalah pada userform MenuMaker_UFrmAPI, (dengan teksberjalan),
> ketika saya klik sub menu KE WINDOWS tidak bisa keluar dari excel
> (Crash/hang). klu tanpa teks berjalan tidak ada masalah. saya sudah coba
> dengan berbagai cara tetap tidak bisa. Mohon bantuan dari master,
> terimakasih.
>
> salam,
> Longinus
>
>
>
>
dilengkapi, coba dengan doevents dalam do loop.
Sub Exit_()
Dim w As Workbook
dim dtBatas as date
Unload frmTask
For Each w In Application.
w.Save
Next w
ThisWorkbook.
dtbatas=now+
do
doevents
loop until now>dtbatas
Application.
End Sub
Wassalam,
Kid.
2012/9/14 Hilman <hilman_email@
> **
>
>
> Pake trik dikit mau gak???
> Kalo mau coba trik berikut ini...
> Ketika exit window di klik, routine Exit_ di ekesekusi. Namun di dalam
> routine nya tidak ada perintah application.
> dengan application.
>
> semoga berkenan....
>
>
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.
> w.Save
> Next w
>
> ThisWorkbook.
> Application.
> End Sub
>
> Sub Exit_2()
> Application.
> End Sub
>
>
> ------------
> *From:* Longinus Along <longinus.along@
> *To:* "belajar-excel@
> *Sent:* Thursday, September 13, 2012 7:24 PM
> *Subject:* [belajar-excel] MenuMaker_UFrmAPI, (dengan teksberjalan)
>
>
> Dear All Master,
>
> Mohon pencerahannya,
> 2 buah file yaitu 1.MenuMaker_
> 2.MenuMaker_
> kedua menu tersebut sama-sama saya sisipkan submenu File===>Exit=
> Windows
> di sub menu KE WINDOWS ada macro :
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.
> w.Save
> Next w
> Application.
> End Sub
>
> masalahnya adalah pada userform MenuMaker_UFrmAPI, (dengan teksberjalan)
> ketika saya klik sub menu KE WINDOWS tidak bisa keluar dari excel
> (Crash/hang)
> dengan berbagai cara tetap tidak bisa. Mohon bantuan dari master,
> terimakasih.
>
> salam,
> Longinus
>
>
>
>
Fri Sep 14, 2012 6:10 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Assalamualaikum Wr. Wb.
Hai Wahyu,
1. Alhamdulillah kabarnya baik.
2. Karena contoh data berisi angka semuanya dan asumsinya nomor telpon
belum sampai lebih dari 15 digit, coba :
(misal data nomor telpon di cell G3)
pada cell hasil :
=62&--g3
3. Concatenate dengan delimiter.
>> misal berbasis raw data (data di baris 3), dimana nama di cell F3 dan
nomor telpon di G3
cell hasil :
=f3&";62"&--g3
>> misal berbasis hasil nomor 2 :
(anggap saja cell hasil ada di baris 20 dengan kolom F adalah nama dan
kolom G adalah hasil nomor telpon yang sudah diawali 62)
cell hasil :
*=f20&";"&g20*
Selain menggunakan operator ampersand (karakter &), bisa juga menggunakan
fungsi Concatenate, seperti contoh berikut :
(formula yang *dibiru* tapi dengan fungsi concatenate)
=Concatenate( *f20 *, *";" *, *g20* )
Wassalamualaikum Wr. Wb.
Kid.
2012/9/14 Wahyu Kresna <wahyukresnar@yahoo.com >
> **
>
>
> Selamat Siang Master BeExcelller,
> Bagaimana kabarnya?
>
> Saya mempunyai dua pertanyaan, pertanyaan yang pertama begini, kebetulan
> saya sedang berurusan dengan nama dan data kontak telepon, pada data kontak
> telepon itu seharusnya nomor telepon harus diawali dengan angka "62" namun
> data yang ada selalu di awali dengan angka "0", selama ini saya manual
> untuk menggantinya, adakah cara yang lebih baik?
>
> misal: 081931223333 ---> seharusnya 6281931223333
>
> kemudian pertanyaan kedua saya, bagaimana menggabungkan kolom nama dan
> nomor telepon dengan delimiter ";"?
> misal NamaKresna dengan nomor telepon 6281931223333 awalnya berbeda
> kolom, kemudian digabung menjadi satu menjadi
> NamaKresna;6281931223333 ? bisakah seperti itu?
>
> terlampir file contoh yang saya maksudkan.
> terimakasih...
>
> --
> Regards,
>
> Wahyu Kresna El Haidar
> +62 819317 06660
>
>
>
Hai Wahyu,
1. Alhamdulillah kabarnya baik.
2. Karena contoh data berisi angka semuanya dan asumsinya nomor telpon
belum sampai lebih dari 15 digit, coba :
(misal data nomor telpon di cell G3)
pada cell hasil :
=62&--g3
3. Concatenate dengan delimiter.
>> misal berbasis raw data (data di baris 3), dimana nama di cell F3 dan
nomor telpon di G3
cell hasil :
=f3&";62"&--
>> misal berbasis hasil nomor 2 :
(anggap saja cell hasil ada di baris 20 dengan kolom F adalah nama dan
kolom G adalah hasil nomor telpon yang sudah diawali 62)
cell hasil :
*=f20&";"&g20*
Selain menggunakan operator ampersand (karakter &), bisa juga menggunakan
fungsi Concatenate, seperti contoh berikut :
(formula yang *dibiru* tapi dengan fungsi concatenate)
=Concatenate( *f20 *, *";" *, *g20* )
Wassalamualaikum Wr. Wb.
Kid.
2012/9/14 Wahyu Kresna <wahyukresnar@
> **
>
>
> Selamat Siang Master BeExcelller,
> Bagaimana kabarnya?
>
> Saya mempunyai dua pertanyaan, pertanyaan yang pertama begini, kebetulan
> saya sedang berurusan dengan nama dan data kontak telepon, pada data kontak
> telepon itu seharusnya nomor telepon harus diawali dengan angka "62" namun
> data yang ada selalu di awali dengan angka "0", selama ini saya manual
> untuk menggantinya, adakah cara yang lebih baik?
>
> misal: 081931223333 ---> seharusnya 6281931223333
>
> kemudian pertanyaan kedua saya, bagaimana menggabungkan kolom nama dan
> nomor telepon dengan delimiter ";"?
> misal NamaKresna dengan nomor telepon 6281931223333 awalnya berbeda
> kolom, kemudian digabung menjadi satu menjadi
> NamaKresna;62819312
>
> terlampir file contoh yang saya maksudkan.
> terimakasih.
>
> --
> Regards,
>
> Wahyu Kresna El Haidar
> +62 819317 06660
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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