Selasa, 18 Oktober 2016

[belajar-excel] Digest Number 3995

10 Messages

Digest #3995
2a
Look Up Gambar by "HAIRUL ALAM"
2b
Re: Look Up Gambar [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
Fwd: Subtotal Pivot by "Heri Pamungkas ( Gmail )" dchoosen88
3b
Re: Fwd: Subtotal Pivot [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Mon Oct 17, 2016 8:33 pm (PDT) . Posted by:

"Riki" ricky45chiesa

Terimakasih Master Kid

Belum bisa, master.

Ini kode yang saya pakai :

Sub Print_Tombol()

Dim lC As Long

ULANGI:

lC = Application.InputBox("Print berapa lembar (1 sampai 99)? Cancel bila tidak jadi print", Type:=1)

If lC < 0 Or lC > 99 Then

GoTo ULANGI

ElseIf lC = 0 Then

MsgBox "Batal"

Exit Sub

End If

ActiveSheet.PrintOut lC

End Sub

Ada yang salah?

Terimakasih

Riki

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, October 14, 2016 4:28 AM
To: BeExcel
Subject: Re: [belajar-excel] Tanya Kode Macro Print dengan Jumlah Salinan (Copies)

Hai Riki,

Asumsinya ada sebuah tombol untuk melakukan print.

Tombol tersebut berisi perintah untuk menentukan area yang akan di-print.

Pasti di dalam tombol tersebut berisi baris kode yang syntax nya begini :

object_yang_akan_dicetak.printout

seperti :

sheets("invoice").range("c7:k19").printout

atau

activesheet.printout

dan sebagainya.

Sebelum baris seperti itu, diberi kode berikut :

dim lC as long

ULANGI:
lc=application.inputbox("Tentukan jumlah salinannya (1 sampai 1234). Cancel untuk membatalkan proses cetak.",type:=1)

if lc<0 or lc>1234 then

goto ulangi

elseif lc=0 then

msgbox "Batal"

exit sub

endif

'baris print disini, seperti :
sheets("invoice").range("c7:k19").printout lc

Jika akan mencegah proses print lewat menu, tambahkan baris :

application.enableevents=false

sebelum baris kode blabla.printout [blibli]

dan tambahkan juga baris kode :

application.enableevents=true

setelah baris kode blabla.printout [blibli]

kemudian buat event workbook before print, isi dengan baris kode :

cancel=true

selebihnya, silakan dikembangkan lebih lanjut.

Regards,

Kid

2016-10-13 15:04 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:

Dear Masters,

Saya mau tanya kode macro untuk perintah print, namun dengan pertanyaan jumlah Salinan terlebih dahulu sebelum eksekusi, dan hasil eksekusi sesuai dengan jumlah Salinan yang dimasukan.

Suwun Masters.

Riki Excel Newbie.

Mon Oct 17, 2016 8:53 pm (PDT) . Posted by:

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

oh iya, ini perintahnya :
activesheet.printout *copies:=*lc

Regards,
Kid

2016-10-18 9:47 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Terimakasih Master Kid
>
>
>
> Belum bisa, master.
>
> Ini kode yang saya pakai :
>
>
>
> Sub Print_Tombol()
>
> Dim lC As Long
>
> ULANGI:
>
> lC = Application.InputBox("Print berapa lembar (1 sampai 99)? Cancel
> bila tidak jadi print", Type:=1)
>
> If lC < 0 Or lC > 99 Then
>
> GoTo ULANGI
>
> ElseIf lC = 0 Then
>
> MsgBox "Batal"
>
> Exit Sub
>
> End If
>
> ActiveSheet.PrintOut lC
>
> End Sub
>
>
>
> Ada yang salah?
>
>
>
> Terimakasih
>
> Riki
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* Friday, October 14, 2016 4:28 AM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Tanya Kode Macro Print dengan Jumlah
> Salinan (Copies)
>
>
>
>
>
> Hai Riki,
>
> Asumsinya ada sebuah tombol untuk melakukan print.
>
> Tombol tersebut berisi perintah untuk menentukan area yang akan di-print.
>
> Pasti di dalam tombol tersebut berisi baris kode yang syntax nya begini :
>
> object_yang_akan_dicetak.printout
>
> seperti :
>
> sheets("invoice").range("c7:k19").printout
>
> atau
>
> activesheet.printout
>
> dan sebagainya.
>
> Sebelum baris seperti itu, diberi kode berikut :
>
> dim lC as long
>
> ULANGI:
> lc=application.inputbox("Tentukan jumlah salinannya (1 sampai 1234).
> Cancel untuk membatalkan proses cetak.",type:=1)
>
> if lc<0 or lc>1234 then
>
> goto ulangi
>
> elseif lc=0 then
>
> msgbox "Batal"
>
> exit sub
>
> endif
>
> 'baris print disini, seperti :
> sheets("invoice").range("c7:k19").printout *lc*
>
> Jika akan mencegah proses print lewat menu, tambahkan baris :
>
> application.enableevents=false
>
> sebelum baris kode blabla.printout [blibli]
>
> dan tambahkan juga baris kode :
>
> application.enableevents=true
>
> setelah baris kode blabla.printout [blibli]
>
> kemudian buat event workbook before print, isi dengan baris kode :
>
> cancel=true
>
>
>
> selebihnya, silakan dikembangkan lebih lanjut.
>
> Regards,
>
> Kid
>
>
>
>
>
>
> 2016-10-13 15:04 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Masters,
>
>
>
> Saya mau tanya kode macro untuk perintah print, namun dengan pertanyaan
> jumlah Salinan terlebih dahulu sebelum eksekusi, dan hasil eksekusi sesuai
> dengan jumlah Salinan yang dimasukan.
>
>
>
> Suwun Masters.
>
> Riki Excel Newbie.
>
>
>
>
>

Mon Oct 17, 2016 8:33 pm (PDT) . Posted by:

"HAIRUL ALAM"

Yth.Para Master
Assalamualaikum
Mohon Pencerahannya,Saya memiliki masalah Excel tentang look up gambar dengan 2 criteria vertical & horisontal lookup.. seperti data terlampir
Wassalamualaikum
Terimakasih
Hairul Alam

Mon Oct 17, 2016 9:03 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Hairul,

Sila lihat trit yang ini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/40985

dan terapkan dengan Index yang telah ditentukan nomor indeks baris dan
nomor indeks kolom yang dibutuhkan yang merujuk ke area data yang ditunjuk
(bahasa sederhananya, manfaatkan fungsi Index dengan baik, bila perlu,
pelajari dengan sungguh-sungguh lebih dahulu tentang fungsi Index)

Wassalamu'alaikum wr wb
Kid

2016-10-18 10:25 GMT+07:00 HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Yth.Para Master
>
> Assalamualaikum
>
> Mohon Pencerahannya,
> Saya memiliki masalah Excel tentang look up gambar dengan 2 criteria
> vertical & horisontal lookup.. seperti data terlampir
>
> Wassalamualaikum
>
> Terimakasih
>
> Hairul Alam
>
>
>

Mon Oct 17, 2016 9:16 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88



?????????? ?????????? ?????????? ????? ?????????????
Semangat pagi,.

Masih belum solved, ada yang bisa bantu ?!

???????????? ?????????? ?????????? ????? ?????????????

Warm Regards,

-------- Original Message --------
Subject: Subtotal Pivot
Date: Tue, 11 Oct 2016 09:26:30 +0700
From: Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>
To: belajar-excel@yahoogroups.com

--
?????????? ?????????? ?????????? ????? ?????????????
Semangat pagi,.

Mohon bantuannya,

Saya ada masalah dalam pem'Subtotalan sebagian Code pada Pivot.

Nah rencananya saya mau membuat Kolom baru berisi
4 digit awal Code (Numeric dan Alphabet),
yang nantinya akan di Subtotal.

Mungkin akan mudah bila memakai kolom bantu, masalahnya data ini
tarikan sistem dengan ribuan row dan user diharapkan tidak
terlalu banyak proses.

Mohon pencerahannya.

???????????? ?????????? ?????????? ????? ?????????????

Warm Regards,

Mon Oct 17, 2016 10:37 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Heri,

Saran dengan menggunakan kolom bantu di sisi tabel data adalah yang
termudah. Untuk data 1juta baris Excel tidak lah berat bagi fungsi Left.
Jika terasa berat, berarti ada bagian lain di worksheet tersebut yang
menggunakan formula yang lebih berat, atau di sheet lain.

Cara lainnya seperti menggunakan fitur Text To Column untuk mengekstrak
kolom tersebut berdasar delimiter tertentu dan diletakkan di kolom lain.
Cara lainnya lagi adalah memanfaatkan fitur Get External Data untuk
menyusun dataset sumber pivot table yang baru. Jadi, pivot table memiliki
data source hasil koneksi data ke file Excel tersebut. Tentu saja akan
dibutuhkan proses save workbook dan refresh all.

Wassalamu'alaikum wr wb
Kid

2016-10-18 11:11 GMT+07:00 'Heri Pamungkas ( Gmail )' ghery.dharma@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Masih belum solved, ada yang bisa bantu ?!
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>
> -------- Original Message --------
> Subject: Subtotal Pivot
> Date: Tue, 11 Oct 2016 09:26:30 +0700
> From: Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>
> <ghery.dharma@gmail.com>
> To: belajar-excel@yahoogroups.com
>
>
>
> --
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Mohon bantuannya,
>
> Saya ada masalah dalam pem'Subtotalan sebagian Code pada Pivot.
>
> Nah rencananya saya mau membuat Kolom baru berisi
> 4 digit awal Code (Numeric dan Alphabet),
> yang nantinya akan di Subtotal.
>
> Mungkin akan mudah bila memakai kolom bantu, masalahnya data ini
> tarikan sistem dengan ribuan row dan user diharapkan tidak
> terlalu banyak proses.
>
> Mohon pencerahannya.
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>
>
>

Mon Oct 17, 2016 11:57 pm (PDT) . Posted by:

"Salim Jenggot"

Selamat siang para Master Excel,

Mohon bantuannya, bagaimanakah cara menghilangkan karakter titik (.) yang
berada di akhir penomoran dgn len yg tidak tentu jumlahnya.
Contoh seperti file terlampir.

atas bantuannya diucapkan terima kasih.

Salam hormat,
Salim Jenggot

Tue Oct 18, 2016 12:05 am (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

Assalamualaikum wr.wb 
dgn substitute om.=substitute(A1,".","")A1 adalah data sumber yg pgn dirubah"." Adalah tanda yg ingin diganti"" penggantian dgn tanda kosong 
Mngkin sudah sesuai.
Wassalamu'alaikum wr.wb

Dikirim dari Yahoo Mail di Android

Pada Sel, 18 Okt 2016 pada 13:52, Salim Jenggot salim.jenggot@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:  

Selamat siang para Master Excel,
Mohon bantuannya, bagaimanakah cara menghilangkan karakter titik (.) yang berada di akhir penomoran dgn len yg tidak tentu jumlahnya.Contoh seperti file terlampir.
atas bantuannya diucapkan terima kasih.
Salam hormat,Salim Jenggot

Tue Oct 18, 2016 12:19 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba....=LEFT(B4;LEN(B4)-1) lalu copy ke bawah.

Salam,HK

From: "Salim Jenggot salim.jenggot@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 18 October 2016, 13:52
Subject: [belajar-excel] Menghilangkan karakter titik di akhir penomoran yg jml karakternya tidak tentu [1 Attachment]

  Selamat siang para Master Excel,
Mohon bantuannya, bagaimanakah cara menghilangkan karakter titik (.) yang berada di akhir penomoran dgn len yg tidak tentu jumlahnya.Contoh seperti file terlampir.
atas bantuannya diucapkan terima kasih.
Salam hormat,Salim Jenggot #yiv0452448958 #yiv0452448958 -- #yiv0452448958ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0452448958 #yiv0452448958ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0452448958 #yiv0452448958ygrp-mkp #yiv0452448958hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0452448958 #yiv0452448958ygrp-mkp #yiv0452448958ads {margin-bottom:10px;}#yiv0452448958 #yiv0452448958ygrp-mkp .yiv0452448958ad {padding:0 0;}#yiv0452448958 #yiv0452448958ygrp-mkp .yiv0452448958ad p {margin:0;}#yiv0452448958 #yiv0452448958ygrp-mkp .yiv0452448958ad a {color:#0000ff;text-decoration:none;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ygrp-lc {font-family:Arial;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ygrp-lc #yiv0452448958hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ygrp-lc .yiv0452448958ad {margin-bottom:10px;padding:0 0;}#yiv0452448958 #yiv0452448958actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0452448958 #yiv0452448958activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0452448958 #yiv0452448958activity span {font-weight:700;}#yiv0452448958 #yiv0452448958activity span:first-child {text-transform:uppercase;}#yiv0452448958 #yiv0452448958activity span a {color:#5085b6;text-decoration:none;}#yiv0452448958 #yiv0452448958activity span span {color:#ff7900;}#yiv0452448958 #yiv0452448958activity span .yiv0452448958underline {text-decoration:underline;}#yiv0452448958 .yiv0452448958attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0452448958 .yiv0452448958attach div a {text-decoration:none;}#yiv0452448958 .yiv0452448958attach img {border:none;padding-right:5px;}#yiv0452448958 .yiv0452448958attach label {display:block;margin-bottom:5px;}#yiv0452448958 .yiv0452448958attach label a {text-decoration:none;}#yiv0452448958 blockquote {margin:0 0 0 4px;}#yiv0452448958 .yiv0452448958bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0452448958 .yiv0452448958bold a {text-decoration:none;}#yiv0452448958 dd.yiv0452448958last p a {font-family:Verdana;font-weight:700;}#yiv0452448958 dd.yiv0452448958last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0452448958 dd.yiv0452448958last p span.yiv0452448958yshortcuts {margin-right:0;}#yiv0452448958 div.yiv0452448958attach-table div div a {text-decoration:none;}#yiv0452448958 div.yiv0452448958attach-table {width:400px;}#yiv0452448958 div.yiv0452448958file-title a, #yiv0452448958 div.yiv0452448958file-title a:active, #yiv0452448958 div.yiv0452448958file-title a:hover, #yiv0452448958 div.yiv0452448958file-title a:visited {text-decoration:none;}#yiv0452448958 div.yiv0452448958photo-title a, #yiv0452448958 div.yiv0452448958photo-title a:active, #yiv0452448958 div.yiv0452448958photo-title a:hover, #yiv0452448958 div.yiv0452448958photo-title a:visited {text-decoration:none;}#yiv0452448958 div#yiv0452448958ygrp-mlmsg #yiv0452448958ygrp-msg p a span.yiv0452448958yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0452448958 .yiv0452448958green {color:#628c2a;}#yiv0452448958 .yiv0452448958MsoNormal {margin:0 0 0 0;}#yiv0452448958 o {font-size:0;}#yiv0452448958 #yiv0452448958photos div {float:left;width:72px;}#yiv0452448958 #yiv0452448958photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0452448958 #yiv0452448958photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0452448958 #yiv0452448958reco-category {font-size:77%;}#yiv0452448958 #yiv0452448958reco-desc {font-size:77%;}#yiv0452448958 .yiv0452448958replbq {margin:4px;}#yiv0452448958 #yiv0452448958ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0452448958 #yiv0452448958ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0452448958 #yiv0452448958ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0452448958 #yiv0452448958ygrp-mlmsg select, #yiv0452448958 input, #yiv0452448958 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0452448958 #yiv0452448958ygrp-mlmsg pre, #yiv0452448958 code {font:115% monospace;}#yiv0452448958 #yiv0452448958ygrp-mlmsg * {line-height:1.22em;}#yiv0452448958 #yiv0452448958ygrp-mlmsg #yiv0452448958logo {padding-bottom:10px;}#yiv0452448958 #yiv0452448958ygrp-msg p a {font-family:Verdana;}#yiv0452448958 #yiv0452448958ygrp-msg p#yiv0452448958attach-count span {color:#1E66AE;font-weight:700;}#yiv0452448958 #yiv0452448958ygrp-reco #yiv0452448958reco-head {color:#ff7900;font-weight:700;}#yiv0452448958 #yiv0452448958ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ov li a {font-size:130%;text-decoration:none;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0452448958 #yiv0452448958ygrp-sponsor #yiv0452448958ov ul {margin:0;padding:0 0 0 8px;}#yiv0452448958 #yiv0452448958ygrp-text {font-family:Georgia;}#yiv0452448958 #yiv0452448958ygrp-text p {margin:0 0 1em 0;}#yiv0452448958 #yiv0452448958ygrp-text tt {font-size:120%;}#yiv0452448958 #yiv0452448958ygrp-vital ul li:last-child {border-right:none !important;}#yiv0452448958

Tue Oct 18, 2016 12:21 am (PDT) . Posted by:

"Susilo -"

Dear Salim

intinya soal adalah menghilangkan titik (1 karakter) di belakang kan.
Saya hanya menghitung keseluruhan karakter kemudian saya kurangi 1

=LEFT(B16,LEN(B16)-1)

Silakan dicoba

Terima kasih
Susilo

Pada 18 Oktober 2016 13.52, Salim Jenggot salim.jenggot@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:

>
>
> Selamat siang para Master Excel,
>
> Mohon bantuannya, bagaimanakah cara menghilangkan karakter titik (.) yang
> berada di akhir penomoran dgn len yg tidak tentu jumlahnya.
> Contoh seperti file terlampir.
>
> atas bantuannya diucapkan terima kasih.
>
> Salam hormat,
> Salim Jenggot
>
>
>
============================================================
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