11 Messages
Digest #3764
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
>>>>
>>>>
>>>
>>
>
>
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>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
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
>>>>>
>>>>>
>>>>
>>>
>>
>
>
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>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
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
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
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>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
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
Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook lain (bersifat public) setelah menekan tombol Enter.Saya tulis seperti ini:Application.
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
>
>
>
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...."
> panduan penulisannya adalah sbb :
> Application.
>
> Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook
> lain (bersifat public) setelah menekan tombol Enter.
> Saya tulis seperti ini:
> Application.
>
> 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
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.
Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook lain (bersifat public) setelah menekan tombol Enter.
Saya tulis seperti ini:
Application.
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
>>
>>
>
>
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...."
>> panduan penulisannya adalah sbb :
>> Application.
>>
>> Saya ingin menjalankan Prosedur bernama Coba yang ada di Workbook
>> lain (bersifat public) setelah menekan tombol Enter.
>> Saya tulis seperti ini:
>> Application.
>>
>> 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
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.
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
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" 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
>
>
>
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&quo
> 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
---------------------------------------------------------------------
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:
Posting Komentar