8 Messages
Digest #4267
Messages
Fri Aug 11, 2017 11:35 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Eh lupa,
kolom B difilter yang >0
2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Hai Ragustina,
>
> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
> dengan header bernama lokasi_filter)
> Di cells B2 (untuk record pertama di cells A2) diberi formula :
> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<
> 32)+(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>
> Copy ke bawah sampai data terakhir.
> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
> Caranya :
> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
> Styles -> Format as Table -> pilih salah satu style -> centang has header
> -> tekan OK
>
> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
> di-copy-ken oleh si Excel.
> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
> dibuang (delete row)
> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>
> Regards,
> Kid
>
>
>
>
> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> dear Rekan,
>>
>>
>> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di
>> excel,
>>
>>
>> Contohnya kalimat nama : Chãntýe Siahâãn
>>
>> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila ada
>> 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
>> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>>
>>
>> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>>
>>
>> terima kasih atas bantuannya
>>
>>
>>
>>
>>
>
>
kolom B difilter yang >0
2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Hai Ragustina,
>
> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
> dengan header bernama lokasi_filter)
> Di cells B2 (untuk record pertama di cells A2) diberi formula :
> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<
> 32)+(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>
> Copy ke bawah sampai data terakhir.
> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
> Caranya :
> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
> Styles -> Format as Table -> pilih salah satu style -> centang has header
> -> tekan OK
>
> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
> di-copy-ken oleh si Excel.
> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
> dibuang (delete row)
> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>
> Regards,
> Kid
>
>
>
>
> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> dear Rekan,
>>
>>
>> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di
>> excel,
>>
>>
>> Contohnya kalimat nama : Chãntýe Siahâãn
>>
>> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila ada
>> 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
>> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>>
>>
>> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>>
>>
>> terima kasih atas bantuannya
>>
>>
>>
>>
>>
>
>
Fri Aug 11, 2017 11:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eh... ternyata masih ada yang kelupaan...
wakakaka...
Formulanya bukan array formula walau ada proses komputasi array
didalamnya...
hehehe...
udah ah kelupaannya...
2017-08-12 13:35 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> yah...
> lupa lagi...
>
> Formula tidak berlaku untuk karakter Unicode.
>
> Regards,
> Kid
>
> P.S. moga2 dah gak ada yang kelupaan
>
>
>
> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
>> Eh lupa,
>> kolom B difilter yang >0
>>
>> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>>
>>> Hai Ragustina,
>>>
>>> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
>>> dengan header bernama lokasi_filter)
>>> Di cells B2 (untuk record pertama di cells A2) diberi formula :
>>> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)
>>> +(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>>>
>>> Copy ke bawah sampai data terakhir.
>>> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
>>> Caranya :
>>> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
>>> Styles -> Format as Table -> pilih salah satu style -> centang has header
>>> -> tekan OK
>>>
>>> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
>>> di-copy-ken oleh si Excel.
>>> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
>>> dibuang (delete row)
>>> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
>>> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>>>
>>> Regards,
>>> Kid
>>>
>>>
>>>
>>>
>>> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> dear Rekan,
>>>>
>>>>
>>>> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di
>>>> excel,
>>>>
>>>>
>>>> Contohnya kalimat nama : Chãntýe Siahâãn
>>>>
>>>> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila
>>>> ada 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
>>>> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>>>>
>>>>
>>>> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>>>>
>>>>
>>>> terima kasih atas bantuannya
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>
wakakaka...
Formulanya bukan array formula walau ada proses komputasi array
didalamnya...
hehehe...
udah ah kelupaannya...
2017-08-12 13:35 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> yah...
> lupa lagi...
>
> Formula tidak berlaku untuk karakter Unicode.
>
> Regards,
> Kid
>
> P.S. moga2 dah gak ada yang kelupaan
>
>
>
> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
>> Eh lupa,
>> kolom B difilter yang >0
>>
>> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>>
>>> Hai Ragustina,
>>>
>>> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
>>> dengan header bernama lokasi_filter)
>>> Di cells B2 (untuk record pertama di cells A2) diberi formula :
>>> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)
>>> +(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>>>
>>> Copy ke bawah sampai data terakhir.
>>> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
>>> Caranya :
>>> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
>>> Styles -> Format as Table -> pilih salah satu style -> centang has header
>>> -> tekan OK
>>>
>>> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
>>> di-copy-ken oleh si Excel.
>>> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
>>> dibuang (delete row)
>>> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
>>> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>>>
>>> Regards,
>>> Kid
>>>
>>>
>>>
>>>
>>> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Fri Aug 11, 2017 11:40 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ragustina,
Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
dengan header bernama lokasi_filter)
Di cells B2 (untuk record pertama di cells A2) diberi formula :
=SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)+(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
Copy ke bawah sampai data terakhir.
Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
Caranya :
blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
Styles -> Format as Table -> pilih salah satu style -> centang has header
-> tekan OK
Jadi, kalau data bertambah atau berkurang, formula akan otomatis
di-copy-ken oleh si Excel.
Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
dibuang (delete row)
[ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
Regards,
Kid
2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> dear Rekan,
>
>
> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di excel,
>
>
> Contohnya kalimat nama : Chãntýe Siahâãn
>
> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila ada
> 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>
>
> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>
>
> terima kasih atas bantuannya
>
>
>
>
>
Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
dengan header bernama lokasi_filter)
Di cells B2 (untuk record pertama di cells A2) diberi formula :
=SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)+(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
Copy ke bawah sampai data terakhir.
Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
Caranya :
blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
Styles -> Format as Table -> pilih salah satu style -> centang has header
-> tekan OK
Jadi, kalau data bertambah atau berkurang, formula akan otomatis
di-copy-ken oleh si Excel.
Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
dibuang (delete row)
[ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
Regards,
Kid
2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> dear Rekan,
>
>
> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di excel,
>
>
> Contohnya kalimat nama : Chãntýe Siahâãn
>
> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila ada
> 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>
>
> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>
>
> terima kasih atas bantuannya
>
>
>
>
>
Sat Aug 12, 2017 12:04 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
yah...
lupa lagi...
Formula tidak berlaku untuk karakter Unicode.
Regards,
Kid
P.S. moga2 dah gak ada yang kelupaan
2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Eh lupa,
> kolom B difilter yang >0
>
> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
>> Hai Ragustina,
>>
>> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
>> dengan header bernama lokasi_filter)
>> Di cells B2 (untuk record pertama di cells A2) diberi formula :
>> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)
>> +(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>>
>> Copy ke bawah sampai data terakhir.
>> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
>> Caranya :
>> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
>> Styles -> Format as Table -> pilih salah satu style -> centang has header
>> -> tekan OK
>>
>> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
>> di-copy-ken oleh si Excel.
>> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
>> dibuang (delete row)
>> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
>> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> dear Rekan,
>>>
>>>
>>> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di
>>> excel,
>>>
>>>
>>> Contohnya kalimat nama : Chãntýe Siahâãn
>>>
>>> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila
>>> ada 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
>>> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>>>
>>>
>>> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>>>
>>>
>>> terima kasih atas bantuannya
>>>
>>>
>>>
>>>
>>>
>>
>>
>
lupa lagi...
Formula tidak berlaku untuk karakter Unicode.
Regards,
Kid
P.S. moga2 dah gak ada yang kelupaan
2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Eh lupa,
> kolom B difilter yang >0
>
> 2017-08-12 13:34 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
>> Hai Ragustina,
>>
>> Misal data teks di cells A2, buat sebuah kolom bantu (misal di kolom B,
>> dengan header bernama lokasi_filter)
>> Di cells B2 (untuk record pertama di cells A2) diberi formula :
>> =SUMPRODUCT((CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))<32)
>> +(CODE(MID(A2,ROW(A$1:INDEX(A:A,LEN(A2))),1))>126))
>>
>> Copy ke bawah sampai data terakhir.
>> Ada baiknya tabel ini (beserta kolom bantu) dijadikan Excel Table.
>> Caranya :
>> blok seluruh data [header dan seluruh records] -> ribbon Home -> grup
>> Styles -> Format as Table -> pilih salah satu style -> centang has header
>> -> tekan OK
>>
>> Jadi, kalau data bertambah atau berkurang, formula akan otomatis
>> di-copy-ken oleh si Excel.
>> Oh iya, pastikan kolom A tidak dibuang (delete column) dan baris 1 tidak
>> dibuang (delete row)
>> [ingat ya, delete dengan clear itu berbeda. Menekan keyboard DELETE sama
>> dengan Clear Contents (klik kanan cells -> pilih Clear Contents)]
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>> 2017-08-12 6:12 GMT+07:00 ragustina98@yahoo.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> dear Rekan,
>>>
>>>
>>> mohon pencerahan, jika mau shortir karakter unik itu bagaimana ya di
>>> excel,
>>>
>>>
>>> Contohnya kalimat nama : Chãntýe Siahâãn
>>>
>>> Jika hanya ada 10 nama mungkin masih mudah mencarinya, tetapi apabila
>>> ada 17rb data dengan terdapat beberapa nama yang menggunakan karakter unik
>>> tersebut akan memakan waktu lama untuk mencarinya satu per satu.
>>>
>>>
>>> mohon bantuan caranya bagaimana bisa shortir lebih efektif dan cepat
>>>
>>>
>>> terima kasih atas bantuannya
>>>
>>>
>>>
>>>
>>>
>>
>>
>
Fri Aug 11, 2017 11:47 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
Regards,
Kid
2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(ByVal
> Target As Range)**.* Jadi kalau isian "jenis fluida" di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil", kemudian kita
> ganti nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
Regards,
Kid
2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Be-Exceller,
>
>
>
> Bagaimana code VBA dengan menggunakan *Private Sub Worksheet_Change(
> Target As Range)**.* Jadi kalau isian "jenis fluida" di ganti maka
> nilainya kembali ke nilai sebelumnya kalau salah input.
>
>
>
> Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil", kemudian kita
> ganti nilainya dengan nilai "Coolant"
> merubah nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru
> (Coolant). Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai
> sebelumnya (Oil).
>
>
>
> Untuk lebih jelasnya, bisa dilihat di file terlampir.
>
>
>
> Thank you
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
> .
>
> [image: Image removed by sender.]
> [image: Image removed by sender.]
>
>
>
Sat Aug 12, 2017 3:17 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ariya,
Coba begini :
dim rng as range, cht as chart 'deklarasi variabel rng dan cht
application.displayalerts=false 'turn off alerts
set rng=sheets("nama sheet range yang mau dijadikan
image").range("b3:e10") 'set area range yang akan dijadikan image
set cht=charts.add 'buat chart sheet
with cht 'pada chart sheet baru
with .chartarea 'set dimensi chart sheet tanpa border
.width=rng.width+10
.height=rng.width+10
.border.linestyle=xllinestylenone
end with 'selesai kerja di area chart
rng.copypicture xlscreen,xlpicture 'xlscreen supaya bisa lebih
besar ruangnya, xlpicture supaya lebih baik kalau di-rezise
.paste 'paste ke dalam chart sheet
.export "D:\myRange.jpg","jpg" 'export chart sheet seukuran si
range terpilih jadi image file berformat jpg dengan nama myRange.jpg di
root folder drive D
.delete 'buang chart sheet
end with 'selesai kerja dengan chart sheet
application.cutcopymode=false 'buang clipboard (entah ada efeknya atau
gak, moga2 ada efeknya, walaupun pesimis)
application.displayalerts=true 'turn on alerts
msgbox "File gambar : D:\myRange.jpg",vbinformation,"Range image saved"
'finish msgbox
Untuk clear clipboard yang ada efeknya, biasanya pakai winapi function
bernama EmptyClipboard.
Kalau yang lengkap, pakai OpenClipboard, EmptyClipboard, lalu
CloseClipboard.
Yang perlu diingat, kalau pakai office 64bit perlu declare ptrsafe.
Kemudian semua inputan variabel hWnd (pointer handle object) pakai tipe
LongPtr.
Kalau function-nya sendiri, memberi nilai balikan (return) bertipe Long di
32 bit maupun 64 bit.
Regards,
Kid
On Wed, Aug 9, 2017 at 2:06 PM, Ariya Suryanto asuryanto@alfa-retail.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Master
>
> Master2 sekalian saya minta tolong;
> bagaimana cara membuat macro untuk menyimpan sebuah table ( katakanlah
> di Range B3:E10 ) di dalam excel ke dalam sebuah gambar (jpg)
> dan di simpan di dalam folder tempat woorkbook berada:
> Terimakasih sebelum dan sesudahnya
>
> Regards
> Ariya
>
> This e-mail and any attachment are confidential and intended solely for
> the use of the individual to whom it is addressed. If you are not the
> intended recipient, please telephone or email the sender and delete this
> message and any attachment from your system. Unauthorized publication, use,
> dissemination, forwarding, printing or copying of this e-mail and its
> associated attachments is stricly prohibited.
>
>
Coba begini :
dim rng as range, cht as chart 'deklarasi variabel rng dan cht
application.displayalerts=false 'turn off alerts
set rng=sheets("nama sheet range yang mau dijadikan
image").range("b3:e10") 'set area range yang akan dijadikan image
set cht=charts.add 'buat chart sheet
with cht 'pada chart sheet baru
with .chartarea 'set dimensi chart sheet tanpa border
.width=rng.width+10
.height=rng.width+10
.border.linestyle=xllinestylenone
end with 'selesai kerja di area chart
rng.copypicture xlscreen,xlpicture 'xlscreen supaya bisa lebih
besar ruangnya, xlpicture supaya lebih baik kalau di-rezise
.paste 'paste ke dalam chart sheet
.export "D:\myRange.jpg","jpg" 'export chart sheet seukuran si
range terpilih jadi image file berformat jpg dengan nama myRange.jpg di
root folder drive D
.delete 'buang chart sheet
end with 'selesai kerja dengan chart sheet
application.cutcopymode=false 'buang clipboard (entah ada efeknya atau
gak, moga2 ada efeknya, walaupun pesimis)
application.displayalerts=true 'turn on alerts
msgbox "File gambar : D:\myRange.jpg",vbinformation,"Range image saved"
'finish msgbox
Untuk clear clipboard yang ada efeknya, biasanya pakai winapi function
bernama EmptyClipboard.
Kalau yang lengkap, pakai OpenClipboard, EmptyClipboard, lalu
CloseClipboard.
Yang perlu diingat, kalau pakai office 64bit perlu declare ptrsafe.
Kemudian semua inputan variabel hWnd (pointer handle object) pakai tipe
LongPtr.
Kalau function-nya sendiri, memberi nilai balikan (return) bertipe Long di
32 bit maupun 64 bit.
Regards,
Kid
On Wed, Aug 9, 2017 at 2:06 PM, Ariya Suryanto asuryanto@alfa-retail.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Master
>
> Master2 sekalian saya minta tolong;
> bagaimana cara membuat macro untuk menyimpan sebuah table ( katakanlah
> di Range B3:E10 ) di dalam excel ke dalam sebuah gambar (jpg)
> dan di simpan di dalam folder tempat woorkbook berada:
> Terimakasih sebelum dan sesudahnya
>
> Regards
> Ariya
>
> This e-mail and any attachment are confidential and intended solely for
> the use of the individual to whom it is addressed. If you are not the
> intended recipient, please telephone or email the sender and delete this
> message and any attachment from your system. Unauthorized publication, use,
> dissemination, forwarding, printing or copying of this e-mail and its
> associated attachments is stricly prohibited.
>
>
Sat Aug 12, 2017 3:19 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yang ini cuma ikutan tentang script mas Nang :
Hapus baris 5 sampai 6 dan 8 sampai 11, tapi yang kolom B sampai D, kolom
F, dan kolom K:P di active sheet
Intersect( range("5:6,8:11") , range("b:d,f:f,k:p") ).clearcontents
Regards,
Kid
2017-08-04 6:49 GMT+07:00 nangagus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Fajar
>
> Untuk email selanjutnya pada pertanyaan baru (threat baru) jangan mereply
> treat lama.
>
> Mungkinkah seperti ini:
>
> Sub hapus()
> Dim y As Integer
> y = ActiveCell.Row 'mencari nomor baris cell yang aktif dimasukkan dalam
> variabel y
> Range("C" & y & ":F" & y).ClearContents 'menghapus cell Cy:Fy
> End Sub
>
>
> Salam
>
> NangAgus
>
> On 8/3/2017 5:43 PM, Fajar Fatahillah fajar.fatahillah@yahoo.com
> [belajar-excel] wrote:
>
>
> Dear Master excel,
>
> saya punya kode berikut ( download lebih tepatnya).. hehee
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Cells.Count > 1 Then Exit Sub
> If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
> With Target(1, 0)
> .Value = Date
> .EntireColumn.AutoFit
> End With
> End If
> End Sub
>
> maksud kode tersebut kurang lebih, kalau ada input data atau value di cell
> C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
> yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris dari
> B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2 masih
> tetap ada dan tidak ikut kedelete ..
>
> Mohon pencerahannya para master semua
>
> Best Regards,
> Fajar Fatahillah
>
>
>
>
>
>
>
Hapus baris 5 sampai 6 dan 8 sampai 11, tapi yang kolom B sampai D, kolom
F, dan kolom K:P di active sheet
Intersect( range("5:6,8:11") , range("b:d,f:f,k:p") ).clearcontents
Regards,
Kid
2017-08-04 6:49 GMT+07:00 nangagus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Fajar
>
> Untuk email selanjutnya pada pertanyaan baru (threat baru) jangan mereply
> treat lama.
>
> Mungkinkah seperti ini:
>
> Sub hapus()
> Dim y As Integer
> y = ActiveCell.Row 'mencari nomor baris cell yang aktif dimasukkan dalam
> variabel y
> Range("C" & y & ":F" & y).ClearContents 'menghapus cell Cy:Fy
> End Sub
>
>
> Salam
>
> NangAgus
>
> On 8/3/2017 5:43 PM, Fajar Fatahillah fajar.fatahillah@yahoo.com
> [belajar-excel] wrote:
>
>
> Dear Master excel,
>
> saya punya kode berikut ( download lebih tepatnya).. hehee
>
> Private Sub Worksheet_Change(
> If Target.Cells.
> If Not Intersect(Target, Range("
> With Target(1, 0)
> .Value = Date
> .EntireColumn.
> End With
> End If
> End Sub
>
> maksud kode tersebut kurang lebih, kalau ada input data atau value di cell
> C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
> yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris dari
> B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2 masih
> tetap ada dan tidak ikut kedelete ..
>
> Mohon pencerahannya para master semua
>
> Best Regards,
> Fajar Fatahillah
>
>
>
>
>
>
>
Sat Aug 12, 2017 3:22 am (PDT) . Posted by:
"Oetoech Ajoeb"
Terima Kasih Master semua,
saya coba dulu ....,
saya coba dulu ....,
============================================================
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