Sabtu, 20 Februari 2016

[belajar-excel] Digest Number 3764

11 Messages

Digest #3764
1a
Re: Bahasa asing by "lkm jktind" lkmjkt
1b
Re: Bahasa asing by "Mr. Kid" nmkid.family@ymail.com
1c
Re: Bahasa asing by "lkm jktind" lkmjkt
2a
Application.Onkey by "hendrik karnadi" hendrikkarnadi
2b
Re: Application.Onkey by "Mr. Kid" nmkid.family@ymail.com
2c
Re: Application.Onkey by "Hendrik Karnadi" hendrikkarnadi
2d
Re: Application.Onkey by "Mr. Kid" nmkid.family@ymail.com
5
Copy data berulang dengan Macro by "Lukman Hakim" mr.lukman81
6a
Re: Menempatkan Shape dengan Macro [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Fri Feb 19, 2016 2:16 am (PST) . Posted by:

"lkm jktind" lkmjkt

Pak Kid.

error disini .

Dim fso As Object, f As Object, lR As Long
lR = 1 'header penulisan di baris 1 Excel
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.getfolder("D:\folderku\subfolderku").Files
lR = lR + 1 'baris Excel lokasi penulisan
Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
f.Path 'file fullname
Sheets("nama sheet lokasi penulisan").Cells(lR, 2).Value =
f.Name 'filename
Sheets("nama sheet lokasi penulisan").Cells(lR, 3).Value =
Left(f.Path, Len(f.Path) - Len(f.Name)) 'folder i.e.
D:\folderku\subfolder
Sheets("nama sheet lokasi penulisan").Cells(lR, 4).Value =
f.extension 'ekstensi file (tanpa diawali karakter titik)
Next f
diatas aslinya.

kalau di ganti menjadi :
For Each f In fso.getfolder("D:\data\dataku").Files

errownya pindah / menjadi disisni :
Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
f.Path 'file fullname

contoh filenya terlampir di email sebenlumnya (termasuk data untuk
contohnya

salam

Lukman

2016-02-19 14:22 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Fungsi Dir akan mengubah string ke utf-8 (english text).
> Kalau filesystemobject menyediakan data apa adanya.
>
>
>
> 2016-02-19 12:19 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Pak Kid
>>
>> Benar pak .
>> Proses membuat daftar file dalam suatu folder tertentu ya...
>> dan bila perlu bisa menggantikan nama file
>>
>> seandainya : Macro excel itu bisa di setting : Unicode (masalahnya
>> mungkin disini)
>>
>> Program bapak sudah saya save di module : Mr_kid
>>
>> terlampir : file excel ---> di folder dataku
>> sedangkan : file datanya ------> ada di folder dataku\data.
>>
>> Selatamat siang
>>
>> Salam
>>
>>
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> 2016-02-18 22:06 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Hai Lukman,
>>>
>>> Proses membuat daftar file dalam suatu folder tertentu ya....
>>> Untuk nama-nama file yang menggunakan unicode charset, lebih baik
>>> menggunakan filesystemobject.
>>>
>>> dim fso as object, f as object, lR as long
>>> lr=1 'header penulisan di baris 1 Excel
>>> set fso=createobject("Scripting.FileSystemObject")
>>> for each f in fso.getfolder("D:\folderku\subfolderku").files
>>> lr=lr+1 'baris Excel lokasi penulisan
>>> sheets("nama sheet lokasi penulisan").cells( lr , 1 ).value =
>>> f.path 'file fullname
>>> sheets("nama sheet lokasi penulisan").cells( lr , 2 ).value =
>>> f.name 'filename
>>> sheets("nama sheet lokasi penulisan").cells( lr , 3 ).value =
>>> left( f.path , len(f.path) - len( f.name) ) 'folder i.e.
>>> D:\folderku\subfolder
>>> sheets("nama sheet lokasi penulisan").cells( lr , 4 ).value =
>>> f.extension 'ekstensi file (tanpa diawali karakter titik)
>>> next f
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2016-02-18 12:01 GMT+07:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Mohon bantuannya.
>>>>
>>>> Seharusnya : 2002年的第一场雪 - 刀郎.mp4
>>>> Hasil di excel : 2002?????? - ??.mp4
>>>>
>>>> Kalau di file text : encodingnya yg harus di rubah.
>>>>
>>>>
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>>
>>>
>>
>
>

Fri Feb 19, 2016 2:27 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Ya disesuaikan dengan keadaan setempat to ya...
Foldernya di set sesuai dengan folder milik Anda.
Sheetnya juga.

2016-02-19 17:16 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pak Kid.
>
> error disini .
>
> Dim fso As Object, f As Object, lR As Long
> lR = 1 'header penulisan di baris 1 Excel
> Set fso = CreateObject("Scripting.FileSystemObject")
> For Each f In fso.getfolder("D:\folderku\subfolderku").Files
> lR = lR + 1 'baris Excel lokasi penulisan
> Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
> f.Path 'file fullname
> Sheets("nama sheet lokasi penulisan").Cells(lR, 2).Value =
> f.Name 'filename
> Sheets("nama sheet lokasi penulisan").Cells(lR, 3).Value =
> Left(f.Path, Len(f.Path) - Len(f.Name)) 'folder i.e.
> D:\folderku\subfolder
> Sheets("nama sheet lokasi penulisan").Cells(lR, 4).Value =
> f.extension 'ekstensi file (tanpa diawali karakter titik)
> Next f
> diatas aslinya.
>
> kalau di ganti menjadi :
> For Each f In fso.getfolder("D:\data\dataku").Files
>
> errownya pindah / menjadi disisni :
> Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
> f.Path 'file fullname
>
> contoh filenya terlampir di email sebenlumnya (termasuk data untuk
> contohnya
>
>
> salam
>
>
> Lukman
>
>
>
>
>
>
>
> 2016-02-19 14:22 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Fungsi Dir akan mengubah string ke utf-8 (english text).
>> Kalau filesystemobject menyediakan data apa adanya.
>>
>>
>>
>> 2016-02-19 12:19 GMT+07:00 lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Pak Kid
>>>
>>> Benar pak .
>>> Proses membuat daftar file dalam suatu folder tertentu ya...
>>> dan bila perlu bisa menggantikan nama file
>>>
>>> seandainya : Macro excel itu bisa di setting : Unicode (masalahnya
>>> mungkin disini)
>>>
>>> Program bapak sudah saya save di module : Mr_kid
>>>
>>> terlampir : file excel ---> di folder dataku
>>> sedangkan : file datanya ------> ada di folder dataku\data.
>>>
>>> Selatamat siang
>>>
>>> Salam
>>>
>>>
>>>
>>> Lukman
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2016-02-18 22:06 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Hai Lukman,
>>>>
>>>> Proses membuat daftar file dalam suatu folder tertentu ya....
>>>> Untuk nama-nama file yang menggunakan unicode charset, lebih baik
>>>> menggunakan filesystemobject.
>>>>
>>>> dim fso as object, f as object, lR as long
>>>> lr=1 'header penulisan di baris 1 Excel
>>>> set fso=createobject("Scripting.FileSystemObject")
>>>> for each f in fso.getfolder("D:\folderku\subfolderku").files
>>>> lr=lr+1 'baris Excel lokasi penulisan
>>>> sheets("nama sheet lokasi penulisan").cells( lr , 1 ).value =
>>>> f.path 'file fullname
>>>> sheets("nama sheet lokasi penulisan").cells( lr , 2 ).value =
>>>> f.name 'filename
>>>> sheets("nama sheet lokasi penulisan").cells( lr , 3 ).value =
>>>> left( f.path , len(f.path) - len( f.name) ) 'folder i.e.
>>>> D:\folderku\subfolder
>>>> sheets("nama sheet lokasi penulisan").cells( lr , 4 ).value =
>>>> f.extension 'ekstensi file (tanpa diawali karakter titik)
>>>> next f
>>>>
>>>> Wassalam,
>>>> Kid
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2016-02-18 12:01 GMT+07:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Mohon bantuannya.
>>>>>
>>>>> Seharusnya : 2002年的第一场雪 - 刀郎.mp4
>>>>> Hasil di excel : 2002?????? - ??.mp4
>>>>>
>>>>> Kalau di file text : encodingnya yg harus di rubah.
>>>>>
>>>>>
>>>>>
>>>>> Salam
>>>>>
>>>>> Lukman
>>>>>
>>>>>
>>>>
>>>
>>
>
>

Fri Feb 19, 2016 9:24 pm (PST) . Posted by:

"lkm jktind" lkmjkt

Pak Kid

Terima kasih

sudah bisa.

tinggal renama -- yg mesti di permak.

Salam

Lukman

2016-02-19 17:27 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Ya disesuaikan dengan keadaan setempat to ya...
> Foldernya di set sesuai dengan folder milik Anda.
> Sheetnya juga.
>
>
> 2016-02-19 17:16 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Pak Kid.
>>
>> error disini .
>>
>> Dim fso As Object, f As Object, lR As Long
>> lR = 1 'header penulisan di baris 1 Excel
>> Set fso = CreateObject("Scripting.FileSystemObject")
>> For Each f In fso.getfolder("D:\folderku\subfolderku").Files
>> lR = lR + 1 'baris Excel lokasi penulisan
>> Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
>> f.Path 'file fullname
>> Sheets("nama sheet lokasi penulisan").Cells(lR, 2).Value =
>> f.Name 'filename
>> Sheets("nama sheet lokasi penulisan").Cells(lR, 3).Value =
>> Left(f.Path, Len(f.Path) - Len(f.Name)) 'folder i.e.
>> D:\folderku\subfolder
>> Sheets("nama sheet lokasi penulisan").Cells(lR, 4).Value =
>> f.extension 'ekstensi file (tanpa diawali karakter titik)
>> Next f
>> diatas aslinya.
>>
>> kalau di ganti menjadi :
>> For Each f In fso.getfolder("D:\data\dataku").Files
>>
>> errownya pindah / menjadi disisni :
>> Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
>> f.Path 'file fullname
>>
>> contoh filenya terlampir di email sebenlumnya (termasuk data untuk
>> contohnya
>>
>>
>> salam
>>
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>> 2016-02-19 14:22 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Fungsi Dir akan mengubah string ke utf-8 (english text).
>>> Kalau filesystemobject menyediakan data apa adanya.
>>>
>>>
>>>
>>> 2016-02-19 12:19 GMT+07:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Pak Kid
>>>>
>>>> Benar pak .
>>>> Proses membuat daftar file dalam suatu folder tertentu ya...
>>>> dan bila perlu bisa menggantikan nama file
>>>>
>>>> seandainya : Macro excel itu bisa di setting : Unicode (masalahnya
>>>> mungkin disini)
>>>>
>>>> Program bapak sudah saya save di module : Mr_kid
>>>>
>>>> terlampir : file excel ---> di folder dataku
>>>> sedangkan : file datanya ------> ada di folder dataku\data.
>>>>
>>>> Selatamat siang
>>>>
>>>> Salam
>>>>
>>>>
>>>>
>>>> Lukman
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2016-02-18 22:06 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Hai Lukman,
>>>>>
>>>>> Proses membuat daftar file dalam suatu folder tertentu ya....
>>>>> Untuk nama-nama file yang menggunakan unicode charset, lebih baik
>>>>> menggunakan filesystemobject.
>>>>>
>>>>> dim fso as object, f as object, lR as long
>>>>> lr=1 'header penulisan di baris 1 Excel
>>>>> set fso=createobject("Scripting.FileSystemObject")
>>>>> for each f in fso.getfolder("D:\folderku\subfolderku").files
>>>>> lr=lr+1 'baris Excel lokasi penulisan
>>>>> sheets("nama sheet lokasi penulisan").cells( lr , 1 ).value =
>>>>> f.path 'file fullname
>>>>> sheets("nama sheet lokasi penulisan").cells( lr , 2 ).value =
>>>>> f.name 'filename
>>>>> sheets("nama sheet lokasi penulisan").cells( lr , 3 ).value =
>>>>> left( f.path , len(f.path) - len( f.name) ) 'folder i.e.
>>>>> D:\folderku\subfolder
>>>>> sheets("nama sheet lokasi penulisan").cells( lr , 4 ).value =
>>>>> f.extension 'ekstensi file (tanpa diawali karakter titik)
>>>>> next f
>>>>>
>>>>> Wassalam,
>>>>> Kid
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2016-02-18 12:01 GMT+07:00 lkm jktind lkmjktind@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Mohon bantuannya.
>>>>>>
>>>>>> Seharusnya : 2002年的第一场雪 - 刀郎.mp4
>>>>>> Hasil di excel : 2002?????? - ??.mp4
>>>>>>
>>>>>> Kalau di file text : encodingnya yg harus di rubah.
>>>>>>
>>>>>>
>>>>>>
>>>>>> Salam
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Fri Feb 19, 2016 3:00 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Be-Exceler,Saya sedang mencoba menggunakan VBA...."Application.OnKey" yang menurut panduan penulisannya adalah sbb :Application.OnKey(Key As String,[Procedur])
Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook lain (bersifat public)  setelah menekan tombol Enter.Saya tulis seperti ini:Application.OnKey "{Enter}", "{Coba}"

Namun prosedur Coba tidak dijalankan...
Pertanyaan saya:Bagaimana penulisannya agar prosedur Coba bisa dijalankan ?
Terima kasih.
Salam,HK

Fri Feb 19, 2016 4:08 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pak HK,

Begini :
1. Workbook X menjalankan prosedur TANPA input parameter di workbook X
Application.OnKey "keynya disini" ,
"nama_prosedur_di_workbook_yang_sama"
2. Workbook X menjalankan prosedur DENGAN input parameter di workbook X
(
misal prosedur yang dijalankan memiiki 2 input parameter,
parameter 1 meminta nilai bertipe text atau datetime
parameter 2 meminta nilai bertipe numerik atau boolean
)
Application.OnKey "keynya disini" ,
"'nama_prosedur_di_workbook_yang_sama
""Param1"" , Param2'"
>> param1 adalah nilai text atau datetime yang ditulis sebagai text
berformat YYYY-MM-DD
>> param2 adalah nilai numerik atau boolean

3. Workbook X menjalankan prosedur TANPA input parameter di workbook A yang
terbuka di instansi Excel yang sama
*** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin
dilakukan
Application.OnKey "keynya disini" , "'nama workbook.ekstensinya'!
nama_prosedur_di_workbook_A"

4. Workbook X menjalankan prosedur DENGAN input parameter di workbook A
yang terbuka di instansi Excel yang sama
*** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin
dilakukan
Application.OnKey "keynya disini" , "'nama
workbook.ekstensinya'!'nama_prosedur_di_workbook_A
""Param1"" , Param2'"

Untuk nomor 3 dan 4, jika workbook A belum terbuka, penulisan workbooknya
harus lengkap (file fullname alias ada path-nya).

Regards,
Kid

2016-02-19 18:00 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Be-Exceler,
> Saya sedang mencoba menggunakan VBA...."Application.OnKey" yang menurut
> panduan penulisannya adalah sbb :
> Application.OnKey(*Key As String*,[Procedur])
>
> Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook
> lain (bersifat public) setelah menekan tombol Enter.
> Saya tulis seperti ini:
> Application.OnKey "{Enter}", "{Coba}"
>
> Namun prosedur Coba tidak dijalankan...
>
> Pertanyaan saya:
> Bagaimana penulisannya agar prosedur Coba bisa dijalankan ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>

Fri Feb 19, 2016 8:44 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Terima kasih Mr. Kid atas masukannya.

Ceritanya saya ingin membuat beberapa prosedur dan "memasukkannya" sebagai AddIns untuk membantu teman2 yang kesulitan pake macro.

Sebagai sample saya ingin mem buat dua prodedur:
1. Menggunakan event Workbook_Open untuk mengucapkan salam...
Private Sub Workbook Open ()
MsgBox "Hello" & VbCrLf & _
"How are  you today?", 64, "GREETINGS"
Suara

2. Saya tulis prosedur Suara di Module1...(untuk mengeluarkan suara yang ditulis pada sel aktif file yang dibuka)
Sub Suara()
Application.ActiveCell.Speak
End Sub

Saya punya satu file bernama "Contoh" yang di sel aktifnya ada tulisan.."Hello, how are you today?".

Inginnya, pada saat file Contoh dibuka keluar msgbox butir1 (sdh ok) dan pada saat User menekan tombol "OK" keluar suara "Hello, how are you today" (error).

Yang terjadi (ketika User membuka file Contoh dan menekan tombol "Ok"), keluar message
Run time error 91:
Object Variable or With block variable not set
(Warna kuning ada pada prosedur Suara).

Namun jika prosedur Suara saya jalankan tersendiri pada saat file Contoh sdh tampak (terbuka) dan sel pointer berada pada sel aktif maka akan keluar suara
"Hello, how are you today".

Demikian ceritanya Mr. Kid.
Mohon petunjuk bagaimana caranya supaya prosedur1 dan 2 bisa ngelink (prosedur 2 langsung dieksekusi pada saat User menekan tombol "OK"

Terima kasih.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:20/02/2016 7:07 AM (GMT+07:00) </div><div>To: BeExcel <belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] Application.Onkey </div><div>
</div>Pak HK,

Begini :
1. Workbook X menjalankan prosedur TANPA input parameter di workbook X
Application.OnKey "keynya disini" , "nama_prosedur_di_workbook_yang_sama"
2. Workbook X menjalankan prosedur DENGAN input parameter di workbook X
(
misal prosedur yang dijalankan memiiki 2 input parameter,
parameter 1 meminta nilai bertipe text atau datetime
parameter 2 meminta nilai bertipe numerik atau boolean
)
Application.OnKey "keynya disini" , "'nama_prosedur_di_workbook_yang_sama ""Param1"" , Param2'"
>> param1 adalah nilai text atau datetime yang ditulis sebagai text berformat YYYY-MM-DD
>> param2 adalah nilai numerik atau boolean

3. Workbook X menjalankan prosedur TANPA input parameter di workbook A yang terbuka di instansi Excel yang sama
*** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin dilakukan
Application.OnKey "keynya disini" , "'nama workbook.ekstensinya'!nama_prosedur_di_workbook_A"

4. Workbook X menjalankan prosedur DENGAN input parameter di workbook A yang terbuka di instansi Excel yang sama
*** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin dilakukan
Application.OnKey "keynya disini" , "'nama workbook.ekstensinya'!'nama_prosedur_di_workbook_A ""Param1"" , Param2'"

Untuk nomor 3 dan 4, jika workbook A belum terbuka, penulisan workbooknya harus lengkap (file fullname alias ada path-nya).

Regards,
Kid

2016-02-19 18:00 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Be-Exceler,
Saya sedang mencoba menggunakan VBA...."Application.OnKey" yang menurut panduan penulisannya adalah sbb :
Application.OnKey(Key As String,[Procedur])

Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook lain (bersifat public) setelah menekan tombol Enter.
Saya tulis seperti ini:
Application.OnKey "{Enter}", "{Coba}"

Namun prosedur Coba tidak dijalankan...

Pertanyaan saya:
Bagaimana penulisannya agar prosedur Coba bisa dijalankan ?

Terima kasih.

Salam,
HK

Sat Feb 20, 2016 2:14 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Terus terang, saya ndak mudeng maksudnya...

Itu addin nya mau dibuat selalu menampilkan pesan setiap kali ada yang buka
workbook atau hanya ditampilkan 1 kali saat instansi excel tersebut
diaktifkan pertama kali ?

2016-02-20 11:44 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terima kasih Mr. Kid atas masukannya.
>
> Ceritanya saya ingin membuat beberapa prosedur dan "memasukkannya" sebagai
> AddIns untuk membantu teman2 yang kesulitan pake macro.
>
> Sebagai sample saya ingin mem buat dua prodedur:
> 1. Menggunakan event Workbook_Open untuk mengucapkan salam...
> Private Sub Workbook Open ()
> MsgBox "Hello" & VbCrLf & _
> "How are you today?", 64, "GREETINGS"
> Suara
>
> 2. Saya tulis prosedur Suara di Module1...(untuk mengeluarkan suara yang
> ditulis pada sel aktif file yang dibuka)
> Sub Suara()
> Application.ActiveCell.Speak
> End Sub
>
> Saya punya satu file bernama "Contoh" yang di sel aktifnya ada
> tulisan.."Hello, how are you today?".
>
> Inginnya, pada saat file Contoh dibuka keluar msgbox butir1 (sdh ok) dan
> pada saat User menekan tombol "OK" keluar suara "Hello, how are you today"
> (error).
>
> Yang terjadi (ketika User membuka file Contoh dan menekan tombol "Ok"),
> keluar message
> Run time error 91:
> Object Variable or With block variable not set
> (Warna kuning ada pada prosedur Suara).
>
> Namun jika prosedur Suara saya jalankan tersendiri pada saat file Contoh
> sdh tampak (terbuka) dan sel pointer berada pada sel aktif maka akan keluar
> suara
> "Hello, how are you today".
>
> Demikian ceritanya Mr. Kid.
> Mohon petunjuk bagaimana caranya supaya prosedur1 dan 2 bisa ngelink
> (prosedur 2 langsung dieksekusi pada saat User menekan tombol "OK"
>
> Terima kasih.
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
> -------- Original message --------
> From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]"
> Date:20/02/2016 7:07 AM (GMT+07:00)
> To: BeExcel
> Subject: Re: [belajar-excel] Application.Onkey
>
>
>
> Pak HK,
>
> Begini :
> 1. Workbook X menjalankan prosedur TANPA input parameter di workbook X
> Application.OnKey "keynya disini" ,
> "nama_prosedur_di_workbook_yang_sama"
> 2. Workbook X menjalankan prosedur DENGAN input parameter di workbook X
> (
> misal prosedur yang dijalankan memiiki 2 input parameter,
> parameter 1 meminta nilai bertipe text atau datetime
> parameter 2 meminta nilai bertipe numerik atau boolean
> )
> Application.OnKey "keynya disini" , "'nama_prosedur_di_workbook_yang_sama
> ""Param1"" , Param2'"
> >> param1 adalah nilai text atau datetime yang ditulis sebagai text
> berformat YYYY-MM-DD
> >> param2 adalah nilai numerik atau boolean
>
> 3. Workbook X menjalankan prosedur TANPA input parameter di workbook A
> yang terbuka di instansi Excel yang sama
> *** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin
> dilakukan
> Application.OnKey "keynya disini" , "'nama workbook.ekstensinya'!
> nama_prosedur_di_workbook_A"
>
> 4. Workbook X menjalankan prosedur DENGAN input parameter di workbook A
> yang terbuka di instansi Excel yang sama
> *** kalau terbuka di instansi Excel yang berbeda, maka tidak mungkin
> dilakukan
> Application.OnKey "keynya disini" , "'nama workbook.ekstensinya
> '!'nama_prosedur_di_workbook_A ""Param1"" , Param2'"
>
> Untuk nomor 3 dan 4, jika workbook A belum terbuka, penulisan workbooknya
> harus lengkap (file fullname alias ada path-nya).
>
>
> Regards,
> Kid
>
>
>
>
> 2016-02-19 18:00 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Be-Exceler,
>> Saya sedang mencoba menggunakan VBA...."Application.OnKey" yang menurut
>> panduan penulisannya adalah sbb :
>> Application.OnKey(*Key As String*,[Procedur])
>>
>> Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook
>> lain (bersifat public) setelah menekan tombol Enter.
>> Saya tulis seperti ini:
>> Application.OnKey "{Enter}", "{Coba}"
>>
>> Namun prosedur Coba tidak dijalankan...
>>
>> Pertanyaan saya:
>> Bagaimana penulisannya agar prosedur Coba bisa dijalankan ?
>>
>> Terima kasih.
>>
>> Salam,
>> HK
>>
>>
>
>

Fri Feb 19, 2016 4:21 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Dear Mustakim,

Biasanya setiap pertanyaan di forum ini di berikan berupa contoh dan keingin dari user yg empunya pertanyaan.
Jika anda memang awaw akan excel,cobalah bertanya satu2 dr apa yg tidak anda mengerti,setiap pertanyaan anda pasti akan dijawab dlm forum ini.Di forum ini adalah tempat bagi mereka yg ingin benar2 mau belajar excel.
Cobalah belajar step by step, lama2 anda akan mengerti.
Kembali ke permasalahan yg anda hadapi, sebenarnya apa yg anda inginkan..?

TerimaKasih.

Sent from Yahoo Mail on Android

Fri Feb 19, 2016 11:02 pm (PST) . Posted by:

"Dody Irawan"

Assalamualaikum sahabat-sahabat master excel.

mohon pencerahan, saya buat filter dengan menggunakan vba (file terlampir)
untuk filternya cepat, tapi mengembalikan data setelah di filter proses nya
jadi lambat sekali.

Mohon pencerahan dan bantuannya.

terimakasih.
Wassalamualaikum wr. wb.

Fri Feb 19, 2016 11:30 pm (PST) . Posted by:

"Lukman Hakim" mr.lukman81

Dear Master's,

Saya ada tugas untuk mengolah data, Saya ingin meng-copy data tersebut berdasarkan tanggal (perbaris), dijadikan satu baris/kolom. tujuannya supaya kelihatan progress dari perbaikan kulaitas untuk data tsb. Contoh data terlampir.

Terimakasih atas bantuannya,

BR,

Lukman

Sat Feb 20, 2016 1:51 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam wr wb

Dicoba pakai udf yang ada disini
<https://app.box.com/s/izemxuqz8ql39j0ifbh8kholt2sd99gc> ya... di sheet
udf_ShapeLine
Silakan digunakan atau dikembangkan secara santun.

Wassalamu'alaikum wr wb
Kid

2016-02-19 10:46 GMT+07:00 Zerlinda Seismica seismica@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum wrwb
>
> Semoga para member diberi ketenangan dan keberkahan serta diberi
> keringanan untuk membantu kebaikan "memasukan&quot; kegembiraan kepada orang
> lain.. aamiin.
>
> mohon bantuannya bagaimana formula macro
> 1. membuat gambar panah sebelah kiri cel l D4 dengan panjang dan jenis
> sperti contoh 1dan posisi panahnya ditengah cell D4
> 2. membuat gambar panah sebelah kanan cel l D4 dengan panjang dan jenis
> sperti contoh2 dan posisi panahnya dibawah cell D6
> 3. membuat gambar panah sebelah kiri cel l D5 dengan panjang dan jenis
> sperti contoh3 dan posisi panahnya ditengah D8
> 4. membuat gambar panah sebelah kanan cel l D5 dengan panjang dan jenis
> sperti contoh4 dan posisi panahnya dibawah D10
>
> Semoga ini menjad jalan belar macro buat saya
>
> Wassalam
>
> Seismica
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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:

Poskan Komentar