Messages In This Digest (10 Messages)
- 1a.
- Re: Pencarian per-kolom From: Kid Mr.
- 1b.
- Re: Pencarian per-kolom From: Haps
- 2a.
- Re: KPK dan FPB From: Kid Mr.
- 2b.
- Re: KPK dan FPB From: Haps
- 2c.
- Re: KPK dan FPB From: Haps
- 3a.
- Re: Merge kolom bersyarat From: Haps
- 3b.
- Re: Merge kolom bersyarat From: STDEV(i)
- 3c.
- Re: Merge kolom bersyarat From: STDEV(i)
- 4a.
- Re: Sortir data denga Formula From: Haps
- 5.
- Save automatic From: Anggana, Agung
Messages
- 1a.
-
Re: Pencarian per-kolom
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Oct 26, 2011 4:34 pm (PDT)
Hi Arthur.
Coba gunakan array formula unique values untuk mendapatkan daftar unik item.
Kemudian manfaatkan fungsi SumIF untuk menjumlahkan nilai dengan satu
kriteria.
Contoh bentuk array formula unique values berdasar kriteria 3 karakter
pertama berbunyi OOT
=INDEX($A$2:$A$7,MATCH( 1,(LEFT($ A$2:$A$7, 3)="OOT") *(COUNTIF( A$13:A13, $A$2:$A$7) =0),0))
Kid.
2011/10/26 arthur sandy <arthur_freeday@yahoo.com >
> **
>
>
> Hi para excel-mania, para advance user... salam kenal...
> baru kenal sudah mau ngerepotin nih [image: :P tongue]
> begini ceritanya... [image: :-? thinking] pada file terlampir, saya ingin
> menampilkan hanya yang bernilai OOT saja,
> logikanya seperti ini, rumus akan mengecek kolom A2 apakah ada bernilai OOT
> jika iya maka tampilkan item dan nilainya pada kolom A14 dan B14, jika tidak
> rumus akan mengecek ke kolom A3 apakah bernilai OOT jika iya ditampilkan
> pada A14 dan B14 begitu seterusnya sehingga OOT akan berurut ditampilkan
> sampai rumus pencarian nilai paling bawah (tidak ada data lagi), dan kalo
> bisa jika nilai OOT ada yang sama tidak perlu ditampilkan lagi (hanya sekali
> saja).
>
> Sebenarnya hal ini tidak terlalu rumit klo mau pakai filter di LEFT 3
> karakter, lalu di sort,[image: #:-S whew!] namun saya yakin untuk
> setingkat advance user disini di group ini bisa lebih menyingkatnya (mungkin
> dengan macro)...
>
> Demikian problem saya sampaikan... mohon dibantuk yak...
>
> Thanks,
> Arthur
>
>
>
>
>
- 1b.
-
Re: Pencarian per-kolom
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Oct 26, 2011 4:35 pm (PDT)
*Kalau pakai formula berbasis fungsi buatan dalam negeri:*
* =FilterQ(A2:B7,"OOT") *
array formula ditulis di 2 kolom X 3 baris
(banyaknya bari sesuai perkiraan hasil yg akan muncul)
*Kalau pakai formula berbasis FUngsi-fungsi builtin di Excel*
=IF(ISNUMBER(SMALL(IF( LEFT($A$2: $A$7,3)=" OOT",ROW( $1:$6)),ROW( 1:1))),
OFFSET(A$1,SMALL(IF(LEFT($ A$2:$A$7, 3)="OOT", ROW($1:$6) ),ROW(1:1) ),0),"")
2011/10/26 arthur sandy <arthur_freeday@yahoo.com >
>
> Hi para excel-mania, para advance user... salam kenal...
> baru kenal sudah mau ngerepotin nih
> begini ceritanya... pada file terlampir, saya ingin menampilkan hanya
yang bernilai OOT saja,
> logikanya seperti ini, rumus akan mengecek kolom A2 apakah ada bernilai
OOT jika iya maka tampilkan item dan nilainya pada kolom A14 dan B14, jika
tidak rumus akan mengecek ke kolom A3 apakah bernilai OOT jika iya
ditampilkan pada A14 dan B14 begitu seterusnya sehingga OOT akan berurut
ditampilkan sampai rumus pencarian nilai paling bawah (tidak ada data lagi),
dan kalo bisa jika nilai OOT ada yang sama tidak perlu ditampilkan lagi
(hanya sekali saja).
>
> Sebenarnya hal ini tidak terlalu rumit klo mau pakai filter di LEFT 3
karakter, lalu di sort, namun saya yakin untuk setingkat advance user disini
di group ini bisa lebih menyingkatnya (mungkin dengan macro)...
>
> Demikian problem saya sampaikan... mohon dibantuk yak...
>
> Thanks,
> Arthur
- 2a.
-
Re: KPK dan FPB
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Oct 26, 2011 4:34 pm (PDT)
Hai Nang,
Coba lihat-lihat fungsi bernama :
LCM (untuk KPK) dan GCD (untuk FPB)
Kid.
2011/10/26 NANG Agus <nangagus@gmail.com >
> **
>
>
> Rekan-rekan XL Mania masih ingat soal KPK dan FPB di kelas 5? saya minta
> tolong rumus apa, atau alur mana yang harus digunakan untuk menghitung KPK
> dan FPB dari 2 atau 3 bilangan. saya belum menenemukan cara yang bagus, saya
> bekerja disekolahan, kadangkala susah untuk menemukan KPK dan FPB bilangan
> yang agak besar
> Maturnuwun.
>
>
>
>
- 2b.
-
Re: KPK dan FPB
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Oct 26, 2011 4:36 pm (PDT)
marilah kita ketikkan di cell, kemudian lihat hasilnya
*=GCD(2,12,6)*
dan juga:
*=LCM(2,3,5)*
kalau perlu ganti gantilah argumentsnya (boleh dua, atau lebih)
*maka kita akan tahu mana FPB mana KPK..*
[image: fungsi GDC dan LCM.PNG]
Di sekolah perawat dulu, ada textbook Math boso londo (Londo Inggris, Londo
Jerman,
Londo Amerika), istilah '*Greatest Common Divisior'* dan '*Least Common
Multiple'*
sepertinya sudah tidak asing lagi..
2011/10/26 NANG Agus <nangagus@gmail.com >
> **
>
> Rekan-rekan XL Mania masih ingat soal *KPK dan FPB* di kelas 5? saya minta
> tolong rumus apa, atau alur mana yang harus digunakan untuk menghitung KPK
> dan FPB dari 2 atau 3 bilangan. saya belum menenemukan cara yang bagus, saya
> bekerja disekolahan, kadangkala susah untuk menemukan KPK dan FPB bilangan
> yang agak besar
> Maturnuwun.
>
>
- 2c.
-
Re: KPK dan FPB
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Oct 26, 2011 4:36 pm (PDT)
maaf gambar yg ditempel di email salah (GDC); harusnya seperti ini (GCD)
[image: Fungsi GCD dan LCM.PNG]
2011/10/26 Haps <hapsari.stlizbeth@gmail.com >
> marilah kita ketikkan di cell, kemudian lihat hasilnya
> *=GCD(2,12,6)*
> dan juga:
> *=LCM(2,3,5)*
> kalau perlu ganti gantilah argumentsnya (boleh dua, atau lebih)
>
> *maka kita akan tahu mana FPB mana KPK..*
>
> Di sekolah perawat dulu, ada textbook Math boso londo (Londo Inggris,
> Londo Jerman,
> Londo Amerika), istilah '*Greatest Common Divisior'* dan '*Least Common
> Multiple'*
> sepertinya sudah tidak asing lagi..
>
>
>
> 2011/10/26 NANG Agus <nangagus@gmail.com >
>
>> **
>>
>> Rekan-rekan XL Mania masih ingat soal *KPK dan FPB* di kelas 5? saya
>> minta tolong rumus apa, atau alur mana yang harus digunakan untuk menghitung
>> KPK dan FPB dari 2 atau 3 bilangan. saya belum menenemukan cara yang bagus,
>> saya bekerja disekolahan, kadangkala susah untuk menemukan KPK dan FPB
>> bilangan yang agak besar
>> Maturnuwun.
>>
>>
- 3a.
-
Re: Merge kolom bersyarat
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Oct 26, 2011 4:34 pm (PDT)
' ---vba code ----- ditulis di Module standar
Sub *ConditionalMergeCell*()
' hapsari / 26 Oct 2011 / case XL-mania # 19458
'-------------------- --------- --------- ---------
Dim C As Range, Cval As Variant
Dim MergeRng As String, StartRng As String
StartRng = Selection(1, 1).Address(0, 0) & ":"
Cval = Selection(1, 1).Value
Application.DisplayAlerts = False
For Each C In Selection
If C(1, 2) = Cval Then
MergeRng = StartRng & C(1, 2).Address(0, 0)
Else
*Range(MergeRng).Merge*
StartRng = C(1, 2).Address(0, 0) & ":"
Cval = C(1, 2).Value
End If
Next
Application.DisplayAlerts = True
End Sub
Cara menggunakan makro:
1. Blok / Select dulu *range (baris) yg akan diproses* ( dlm ksus ini = *
E6:BD6* )
2. Jalankan makronya, misal dengan Alt + F8, Pilih Nama Makro--nya, Klik RUN
2011/10/26 Eko Wahyudi <xo_wahyoedy@yahoo.co. >id
>
> Dear Para suhu excel mania….
> Mohon ma'af sebelumnya apabila permasalahan yang saya ajukan ini sudah
pernah dibahas sebelumnya.
> Sebelum dan sesudahnya saya ucapkan terimakasih.
> Terimakasih.
> Regards
> Eko
- 3b.
-
Re: Merge kolom bersyarat
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Wed Oct 26, 2011 4:37 pm (PDT)
*Listing Code nya:*
*
*
Sub MergeCellBersyuarat()
' coded by: siti Vi / Oct 26, 2011
' meMerge cell yg valuenya sama
' kiboar short-cut = Ctrl+Shift+M
'-------------------- --------- ---
Dim Blok As Range, X As Range, c As Integer
Set Blok = Selection: Set X = Selection(1, 1)
Application.DisplayAlerts = False
*Do*
c = WorksheetFunction.CountIf(Blok, X)
If c > 0 Then
X.Resize(1, c).Merge
Set X = X(1, c + 1): c = 0
*If Len(X.Value) = 0 Then Exit Do*
End If
*Loop*
Application.DisplayAlerts = True
End Sub
*Menjalannya:*
Blok-lah range yg akan diproses (misal: range *E5:BD5*)
lalu tekan tombol *Ctrl + Shift + M*
*
*
~siti
*
*
2011/10/26 Eko Wahyudi <xo_wahyoedy@yahoo.co. >id
> ****
>
> Dear Para suhu excel mania….
>
> Mohon ma’af sebelumnya apabila permasalahan yang saya ajukan ini sudah
> pernah dibahas sebelumnya.****
>
> Sebelum dan sesudahnya saya ucapkan terimakasih.
>
> Terimakasih.
>
> Regards****
>
> Eko****
>
- 3c.
-
Re: Merge kolom bersyarat
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Wed Oct 26, 2011 10:23 pm (PDT)
kepada: ysh. Pak Eko Wahyudi (thread-maker) dimohon jangan merasa terganggu
karena posting ini tidak saya tujukan kepada anda, melainkan untuk
keperluan
pembelajaran *makro/vba excel bagi members yg **sedang mulai ber-makro-ria*
*
*
*[image: Mergecells bersyarat.PNG]
*
*
*
Coding yg sudah ada itu masih dapat di ringkas sbb
Sub MergeCellBersyarat()
' coded by: siti Vi / Oct 26, 2011
' Merge cells yg valuenya sama
' sebelumnya, Range haru sudah diSelect
' short-cut = Ctrl+Shift+M
'-------------------- --------- ---
Dim X As Range, c As Integer
Set X = Selection(1, 1)
Application.DisplayAlerts = False
* Do*
* c = WorksheetFunction.CountIf(Selectio n, X)*
* X.Resize(1, c).Merge*
* Set X = X(1, c + 1)*
* Loop Until Len(X) = 0*
Application.DisplayAlerts = True
End Sub
Di sini perbedaanya adalah
* Variable 'Blok' yg akan mewakili SelectedRange tidak dipakai lagi, karena
object range tsb tidak akan terlalu banyak dirujuk dan ekspresi-nya pun
sudah cukup pendek (that is ="*Selection*")
* syarat *Penghentian Loop* di letakkan di bagian Loop *UNTIL (SYARAT)*
bukan lagi di tengah loop seperti sebelumnya
* pemfilteran dengan IF tidak diberlakukan lagi, karena kita berasumsi bahwa
Range 'Selection' (berupa sebaris cells) yg di-select untuk diproses, semua
berisi data; tidak ada cell yang kosong.
* variable integer *c* di tiap akhir step, tidak perlu di reset ( *c*= 0),
karena
di awal step sudah pasti diperbarui dengan nilai ex Countif(Selection, X)
Sedangkan *prinsip-kerja-*nya tetap sama, yaitu :
( berupa rangkaian actions /tindakan tiap step dlm Loop )
0. Di awal proses, sebelum Loop, Cell pertama (object range) diingat dlm
variable *X*
1. di dlm Selecttion dicari: *ada berapa cell* yg mempunyai nilai (isi) sama
?
Cacah data yg samadengan isi X diingat dlm variable integer *C*
2. Range X diperluas (resize) menjadi selebar *C *(*kolom* x 1 row),
sembari *langsung di MERGE!*
3. Variable object X di set baru dengan Cell yg letaknya ada di *Letak
Semula*
tapi "pakai acara" *digeser ke kanan sebannyak C + 1* kolom.
(=yaitu cell pertama SETELEH sekelompok cells sebaris yg baru saja di
Merge)
3 (tiga) tindakan ini diulang-ulang (*Do - Loop*) Until (sampai) terdeteksi
Range X
= berupa cell kosong...
Hal kecil yg sudah lumrah, tetapi semoga menjadi penyemangat mereka yg baru
mencebur ke sungai VBA yg jernih dan segar menyenangkan..
cmiiw
~siti
On Thu, Oct 27, 2011 at 12:50 AM, STDEV(i) <setiyowati.devi@gmail.com >wrote:
> *Listing Code nya:*
> *
> *
> Sub MergeCellBersyuarat()
> ' coded by: siti Vi / Oct 26, 2011
> ' meMerge cell yg valuenya sama
> ' kiboar short-cut = Ctrl+Shift+M
> '-------------------- --------- ---
> Dim Blok As Range, X As Range, c As Integer
> Set Blok = Selection: Set X = Selection(1, 1)
> Application.DisplayAlerts = False
> *Do*
> c = WorksheetFunction.CountIf(Blok, X)
> If c > 0 Then
> X.Resize(1, c).Merge
> Set X = X(1, c + 1): c = 0
> *If Len(X.Value) = 0 Then Exit Do*
> End If
> *Loop*
> Application.DisplayAlerts = True
> End Sub
>
> *Menjalannya:*
> Blok-lah range yg akan diproses (misal: range *E5:BD5*)
> lalu tekan tombol *Ctrl + Shift + M*
> *
> *
> ~siti
>
>
- 4a.
-
Re: Sortir data denga Formula
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Oct 26, 2011 4:36 pm (PDT)
Dear Pak Nang-Agus,
dlm request benie, Tabel Hasil kolom-CODE-nya harus urut (lihat contoh
hasil yg diinginkan)
[image: dua tabel menjadi satu tabel URUT.PNG]
Apakah formula ini : =INDEX($A$4:$C$16;MATCH( $I4;$A$4: $A$16;1); 2)
bisa sekaligus sambil mengurutkan data CODE ??
2011/10/26 NANG Agus <nangagus@gmail.com >
> **
>
> Coba gunakan fungsi Index dan Match, ini sudah sering ditanyakan di forum
> ini, coba buka kembali email lama yang lebih lengkap!
> =INDEX($A$4:$C$16;MATCH( $I4;$A$4: $A$16;1); 2)
>
> 2011/10/25 benie <benie_p@yahoo.com >
> > Dear pakar dan suhu XL-mania, mohon bantuan dong...
> > Saya menemukan kendala dengan data yg beraneka ragam untuk di sort dari 2
> buah sheet (saya jadikan 1 sheet) seperti terlampir
> > Sebelumnya terimakasih atas bantuannya.
> > Best Regards,
> > BP
>
- 5.
-
Save automatic
Posted by: "Anggana, Agung" agung.anggana@sc.com
Wed Oct 26, 2011 10:22 pm (PDT)
Dear Temans,
Untuk excel di bawah tahun 2003 ada tools add ins untuk save automatic
dengan periode waktu tertentu
Nah untuk yang 2003 keatas itu ada di mana ya? Atau mungkin ada VB macro
yang bisa membantu
Thanks
This email and any attachments are confidential and may also be privileged. If you are not the addressee, do not disclose, copy, circulate or in any other way use or rely on the information contained in this email or any attachments. If received in error, notify the sender immediately and delete this email and any attachments from your system. Emails cannot be guaranteed to be secure or error free as the message and any attachments could be intercepted, corrupted, lost, delayed, incomplete or amended. Standard Chartered PLC and its subsidiaries do not accept liability for damage caused by this email or any attachments and may monitor email traffic.
Standard Chartered PLC is incorporated in England with limited liability under company number 966425 and has its registered office at 1 Aldermanbury Square, London, EC2V 7SB.
Standard Chartered Bank ("SCB") is incorporated in England with limited liability by Royal Charter 1853, under reference ZC18. The Principal Office of SCB is situated in England at 1 Aldermanbury Square, London EC2V 7SB. In the United Kingdom, SCB is authorised and regulated by the Financial Services Authority under FSA register number 114276.
If you are receiving this email from SCB outside the UK, please click http://www.standardchartered. to refer to the information on other jurisdictions.com/global/ email_disclaimer .html
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance. |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance. |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar