Sabtu, 26 November 2011

[belajar-excel] Digest Number 1413

Messages In This Digest (16 Messages)

Messages

1a.

Bls: [belajar-excel] penjumlahan dengan kriteria tertentu

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Fri Nov 25, 2011 6:08 am (PST)



karena kriteria yang mau dijumlahkan dalam data sumber tidak stabil penulisannya ada yang menggunakan huruf besar dan huruf kecil maka perlu disiasati supaya bisa dirujuk  dengan benar oleh formula

misalkan dalam cell A17 diisi  pink ,A18 diisi non, dan A19 diisi biru

maka pada di B17  kita tulis formula array
{=SUM(IF(ISNUMBER(FIND(A17;LOWER($A$2:$A$11)));$B$2:$B$11))}
selanjutnya formula dicopy ke A18 dan A19

akan menghasilkan nilai 10810,35 ;2245,1 dan 10331,5 dan kalau dijumlahkan  hasilnya 23386,95

wassalam

Ghozi Alkatiri

________________________________
Dari: M. Ferdiansyah <muh_ferdy@pusri.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 25 November 2011 17:10
Judul: [belajar-excel] penjumlahan dengan kriteria tertentu


 
Dear rekan" excel yang berbahagia,

Bagaimanakah cara menjumlahkan suatu data apabila kode datanya berada di
tengah dari nama data tsb.

Mohon bantuannya.

Regard,

Ferdy

file terlampir.

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1b.

Re: penjumlahan dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Nov 25, 2011 6:49 am (PST)



Pinjam array formula Pak Ghozi.
misalkan dalam cell A17 diisi pink ,A18 diisi non, dan A19 diisi biru
=SUM(IF(ISNUMBER(FIND(A17;LOWER($A$2:$A$11)));$B$2:$B$11))

Sepertinya, akan mencari total nilai b2:b11 yang a2:a11 ada isinya tulisan
pink atau non atau biru.
Untuk langsung dapatkan *total ketiganya* (bukan total pinknya saja, non
nya saja, biru saja),
coba array formula :
=Sum( IsNumber( Search( "*" & { "pink" \ "non" \ "biru" } & "*" , a2:a11
) ) * b2:b11 )

Jika ingin pink saja :
=Sum( IsNumber( Search( "*pink*" , a2:a11 ) ) * b2:b11 )

Jika tulisan pink ada di cell a17 (seperti pak Ghozi)
=Sum( IsNumber( Search( "*" & a17 & "*" , a2:a11 ) ) * b2:b11 )

Untuk non saja atau biru saja, cukup ganti teks pink atau rujukan ke teks
pink, dengan yang sesuai.

Wassalam,
Kid.

2011/11/25 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

> **
>
>
> karena kriteria yang mau dijumlahkan dalam data sumber tidak stabil
> penulisannya ada yang menggunakan huruf besar dan huruf kecil maka perlu
> disiasati supaya bisa dirujuk dengan benar oleh formula
>
> misalkan dalam cell A17 diisi pink ,A18 diisi non, dan A19 diisi biru
>
> maka pada di B17 kita tulis formula array
> {=SUM(IF(ISNUMBER(FIND(A17;LOWER($A$2:$A$11)));$B$2:$B$11))}
> selanjutnya formula dicopy ke A18 dan A19
>
> akan menghasilkan nilai 10810,35 ;2245,1 dan 10331,5 dan kalau
> dijumlahkan hasilnya 23386,95
>
> wassalam
>
>
> Ghozi Alkatiri
>
>
>
>
> ------------------------------
> *Dari:* M. Ferdiansyah <muh_ferdy@pusri.co.id>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 25 November 2011 17:10
> *Judul:* [belajar-excel] penjumlahan dengan kriteria tertentu
>
>
> Dear rekan" excel yang berbahagia,
>
> Bagaimanakah cara menjumlahkan suatu data apabila kode datanya berada di
> tengah dari nama data tsb.
>
> Mohon bantuannya.
>
> Regard,
>
> Ferdy
>
> file terlampir.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1c.

Re: penjumlahan dengan kriteria tertentu

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 1:02 pm (PST)



yak betul,
hatur nuhun kang undang...

btw,
(1)
semula saya kira pak ferdi tidak ingin ada tabel bantu selain tabel asli
dan ingin menjumlah dengan hasil seperti di cell B12 atau I12

(2)
cara menulis kriteria yg dibuat "BIRU" "NoN" "pink" dengan maksud
membuktikan bahwa dlm SUMIF pembandingan text = *tidak CaseSesitive*.

2011/11/25 Undang Satrianie <und4nk@rocketmail.com>

> **
>
> Mungkin Maksud Nona Hapsari Ini Dipisah
>
> Pink = SUMIF($A$2:$A$11,"*pink*",B2:B11) Hasilnya : 10810,35
> Non = SUMIF($A$2:$A$11,"*NoN*",B2:B11) Hasilnya : 2245,1
> Biru = SUMIF($A$2:$A$11,"*BIRU*",B2:B11) Hasilnya : 10331,5
>
> Kalo Ditotal Semuanya Jadi : 23386,95
> Sama Hasilnya Dengan = SUM(B2:B11)
> Mungkin Kira² Begitu ?¿?¿?..CMIIW
> ------------------------------
> *Dari:* Haps <hapsari.stlizbeth@gmail.com>
> *Dikirim:* Jumat, 25 November 2011 18:26
>
> mungkin begini: (satu rumus)
>
> =SUMIF($A$2:$A$11,"*pink*",B2:B11) +
> SUMIF($A$2:$A$11,"*NoN*",B2:B11) +
> SUMIF($A$2:$A$11,"*BIRU*",B2:B11)
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
2a.

Bls: [belajar-excel] Login Pada Program Excel

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Fri Nov 25, 2011 6:11 am (PST)



Terima kasih atas informasinya.
Selanjutnya, saya akan mengikuti menulisan "Box Title"-nya.
Mengenai rumus sbb:
Private Sub CmdNewUser_Click()
   Select Case Application.Range("ActUser").Value
   Case "boss", "IsteriBoss", "KeponakanBoss", "PacarBoss", "MertuaBoss"
      Me.Hide      frmNewUser.Show
   Case Else
      MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Informasi"
   End Select
End Sub

Saya juga belum bisa menambah user jika Active User "IsteriBoss", KeponakanBoss" dll.

Mhn berkenan info tambahannya.

Terima kasih banyak terutama untuk "Box Title'-nya.

Regards,

Harry

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 25 November 2011 6:25
Judul: Re: [belajar-excel] Login Pada Program Excel


 
Sementara belum sempat membuat tanggapan, haps ingin komentar saja dulu

Suatu File diberi login adalah dlm rangka keamanan data dlm file itu, jadi soal keamanan file dan data menjadi hal yg cukup penting dalam membuat program tsb.

Tetapi....
Pak harry ingin menyederhanakan ( menurunkan tingkat keamanannya) dengan meniadakan enkripsi. Ini dapat kita tebak: untuk mempermudah penglihatan di tabel user (dilihat dari segi pembuat program);  dan tanpa disadari juga mempermudah penglihtaan bagi user biasa... (hampir semua user suka jahil ingin menembus dinding keamanan)

Di lain bagian:  pak hari ingin menambahkan hal-hal yg tidak perlu
misal 

** text berkedip  (ini kan hanya soal kosmetik, tetapi di excel cukup menyita source)

(kita berikan file contoh contoh yg pernah dibuat Yu Siti  di sini
http://www.box.com/shared/13oo4lbqrr
walaupun judulnya Tutorial TEKS JALAN, tetapi didalamnya ada blinking text - nya

** satu file ingin di BOSS-i oleh banyak orang ( ?!) 
sebetulnya misal memang benar itu yg dikehendaki; logikanya masih ringan, 
tetap pakai struktur IF atau pun Select Case

mungkin seperti ini (pelajari dulu: struktur Select Case), atau cara lain 
Private Sub CmdNewUser_Click()
   Select Case Application.Range("ActUser").Value
   Case "boss", "IsteriBoss", "KeponakanBoss", "PacarBoss", "MertuaBoss"
      Me.Hide
      frmNewUser.Show
   Case Else
      MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Program Creator"
   End Select
End Sub

Oiya, ini hal kecil tapi sering jadi lucu...
Dalam banyak message box, dlm program program serius..,  Box Title / Pemberi peringatan: bukanlah si pembuat program, tetapi Program itu sendiri (diwakili nama program).
Coba perhatikan contoh2 besar:

"Windows is shuting down "  
(bukan: "Bill Gate is shutting down the Windows operating system")

"Excel tidak dapat menutup file karena bla bla bla"
(bukan : "Pembuat program tidak dapat menurup file excel yg sedang anda tutup karena bla bla bla..")

Demikian sekedar gambaran. tetapi bgmanapun anda-lah penentunya...

-haps-

2011/11/24 Harry <hariansyahptk@yahoo.com>

>Terima kasih
atas berkanan jawaban dan penjelasannya.
>Selanjunya
saya akan mencoba memahami penjelasan tersebut.
>Selanjutnya,
mohon berkanan diinformasikan akan pertanyaan saya sbb:
> 
>1.         Dari rumus
tersebut diatas berarti hanya "boss" yang berhak menambah "User Baru".
>Pertanyaan saya adalah bagaimana rumusnya jika
ada 3 atau 4 user yang berhak menambah "User Baru"…???
> 
>Private Sub CmdNewUser_Click()
> If
Application.Range("ActUser") = "boss" Then
>      Me.Hide
>frmNewUser.Show
>Else
>      MsgBox "MAAF, ANDA
TIDAK BERHAK MENAMBAH USER", 48, "Program Creator"
>   End If
>End Sub
> 
>2.         Untuk
menggantian "Password", bagaimana rumusnya agar penggantian "Password" diperkenan
oleh semua user tetapi User "boss" dan 3 atau 4 user yang berhak menambah user
baru tersebut diatas tidak bisa diubah / diganti…??
> 
>3.         Pada User
Form, bisa atau tidak membuat "Teks Kedap Kedip"…??? Kalau bisa, bagaimana cara
dan rumusnya…???
> 
>Sebelum dan sesudahnya saya
mengucapkan banyak terima kasih.
>Regards,
>Harry
> 
>
>________________________________
> Dari: Haps <hapsari.stlizbeth@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Selasa, 22 November 2011 5:26
>
>Judul: Re: [belajar-excel] Login Pada Program Excel
>
>Menulis data tanpa Fungsi KRIP
>Misal  kode vba tertulis spt ini:    Krip(LCase(sUser), True) 
>dapat diganti   dengan spt ini saja :  LCase(sUser)
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
2b.

Re: Login Pada Program Excel

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Sat Nov 26, 2011 12:45 am (PST)



maaf baru sempat buka kasus ini lagi, hari ini

pada saat Anda membuat USER BARU yang anda inginkan menjadi BOSS juga
User Baru itu* diberi Hak Akses = APA ?*
mungkin harusnya "All"
[image: hak akses.PNG]
Lebih jelasnya sambil melihat lihat prosedur-prosedur (makro)-nya
apa yg dikehendaki bisa terbaca di situ

coba dilihat prosedur yg ada di module Form Login
Private Sub SheetToOpen(vUserNm)
Dim sht As String, DafSht As Range, s As Byte, cel As Range
vUserNm = LCase(vUserNm)
With Sheets("User")
* sht = .Range("E" & .Range("i2")).Value*
* If sht = Krip("All", True) Then*
Set DafSht = Range(.Range("E4"), .Range("E4").End(xlDown))
For Each cel In DafSht
If cel.Value <> Krip("All", True) And cel.Value <> "" Then
sht = Krip(cel.Value, False)
Sheets(sht).Visible = -1
End If
Next cel
Else
sht = Krip(sht, False)
Sheets(sht).Visible = -1
Sheets(sht).Activate
Sheets("Face").Visible = 0
Sheets("User").Visible = 2
End If
End With
Unload Me
frmMainMenu.Hide
End Sub

2011/11/25 Harry <hariansyahptk@yahoo.com>

> **
> Terima kasih atas informasinya.
> Selanjutnya, saya akan mengikuti menulisan "Box Title"-nya.
> Mengenai rumus sbb:
> Private Sub CmdNewUser_Click()
>

> Select Case Application.Range("ActUser").Value
> Case "boss", "IsteriBoss", "KeponakanBoss", "PacarBoss", "MertuaBoss"
> Me.Hide
> frmNewUser.Show
> Case Else
> MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Informasi"
> End Select
> End Sub
>

> Saya juga belum bisa menambah user jika Active User "IsteriBoss",
> KeponakanBoss" dll.
>
> Mhn berkenan info tambahannya.
> Terima kasih banyak terutama untuk "Box Title'-nya.
>
> Regards,
>
> Harry
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
3a.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Nov 25, 2011 9:19 am (PST)



Dear mpok Haps yang baik,

ada koreksi dikit dari array formula :
=IF(ROW(1:1)-COUNTBLANK(C$1:C1)>*=*
COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))

menjadi array formula :
=IF(ROW(1:1)-COUNTBLANK(C$1:C1)>COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))

Untuk data tak berurutan maupun tipe datanya numerik maupun teks, dan akan
disusun hasil terurut menaik maupun menurun dengan jumlah blank tersisip
bervariasi, mungkin bisa dengan array formula yang panjangnya kaya kereta.
Pada file terlampir, variasi jumlah blank diset dari 0 sampai 5.

Kalau ada yang kurang pas hasilnya, mohon dikoreksi.

Wassalamualaikum Wr. Wb.
Kid.

2011/11/25 Haps <hapsari.stlizbeth@gmail.com>

> **
>
>
> Sampai sesaat sebelum post ini di SEND... threads yg dibuka oleh Andri
> Andreemobile (pertanyaan) ini, sudah mendapat 6 tanggapan
> Paling tidak, 2 (dua) rumus kiriman, dari Um Ghozi dan Um Kid, adalah
> formulaes yg* RuarrrBiasssa *yg memerlukan ijtihaad yg menguras tenaga.
> (Ketika enteran C+S+E terakhir sukses memunculkan hasil tanpa cacat,
> maka bagi seorang formula composser-terasa "mak-plong", walaupun badan,
> tangan dan mungkin dengkul menjadi gemetaran (ya karena ijtihaat yg
> menguras tenaga tadi itu.. ). )
>
> Namun formula luar-biasa itu rupanya belum memenuhi keinginan Um
> Andreemobil, buktinya sampai saat ini tidak ada kabar "gelengan" maupun
> "anggukan" dari ybs. Kemungkinan besar: ybs sedang bertugas keluar / sulit
> membuka inbox.
>
> Kalo begitu, biarlah saya menjadi orang yg semakin tertarik dengan kasus
> ini..., ingin melaporkan bugs dan ingin pula bertanya.
> *Laporan:*
> Rumus pak Ghozi yg terakhir entah karena apa, di hasil-hasil bagian bawah
> memunculkan errorvalues
> Rumus pak Kid sudah di test dengan data angka maupun teks, berhasil lolos
> uji.
>
> *Review keadaan data asli dari pemilik kasus*
> Saat ini kondisi data (ex pertanyaan) sudah dlm keadaan ter-sortir (data
> yg sama sudah BERKUMPUL menjadi 1 Grup.
> Asli data petanyaan dari Andreemobile berupa Bilangan dan URUT (tidak ada
> missing numbers-nya).
> ( tetapi telah kami coba di "lab" kami, dengan data yg lebih liar, rumus2
> berhasil mengantisipasinya )
> Dalam asli kasusnya, sisipan blank cells antar grup data = cacah-nya sudah
> fixed, pasti 3 cells.
>
> *Pertanyaan (belajar) lanjutan:*
> Bagimana kalau tingkat kesulitannya dinaikkan? Masih adakah rumusnya ?
> (pasti ada la yaa...)
>
> 1. Data tidak hanya berupa type Bilangan (numbers) saja; tetapi boleh type
> TEXT maupun campuran Numbers & Text
> 2. Data tidak harus dlm keadan tersortir, jadi data yg sama boleh
> terpencar letaknya dlm kolom.
> 3. Satu* grup data*, selain bisa terdiri dari beberapa data kembar, boleh
> hanya berisi 1 data unik.
> 4. Rumus harus bisa diedit dengan mudah agar BANYAKNYA CELL YG DISISIPKAN
> bisa / mudah diubah,
> misal (per sekali rumus) banyaknya sisipan cell antar grup data bisa 1
> atau 2, atau 3 atau 7 atau 13 dst.
> 5. Urutan (sortOrder) data hasilnya bisa diubah-ubah: bisa Terurut Menurun
> (Descending) maupun bisa Terurut menaik (Ascending).
> 6. Rumus tetap berupa rumus tunggal, tidak ada kolom / rumus bantu.
>
> Contoh data dan contoh hasil yg diinginkan ada dilampiran.
>
> (yaaah. ini seperti Challenge dong.. )
> terus terang & terang-terangan terus,.. aku tidak bisa.. 'teuk tiasa...
> 'ra j�gos !
>
>
>
>
> 2011/11/24 Kid Mr. <mr.nmkid@gmail.com>
>
> **
>>
>> Coba juga : Pada B1 diberi header, dan B2 diberi formula :
>>
>> =IF(ROW(1:1)-COUNTBLANK(B$1:B1)>=COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(B$1:B1),3)>0)+
>> (COUNTIF(B$1:B1,B1)=COUNTIF($A$2:$A$55,B1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(B$1:B1))))
>> Copy ke bawah sesuai kebutuhan.
>> Wassalam,
>> Kid.
>>
>> 2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>
>>
>>> **
>>> Dear Pakar excel,
>>> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
>>> dengan 3 baris blank cell antar kelompoknya?
>>> (contoh terlampir)
>>> awal hasil
>>> 1 1
>>> 1 1
>>> 1 1
>>> 2
>>> 2
>>> 3
>>> 4 2
>>> 4 2
>>> 4
>>> 5
>>> 6
>>> 6 3
>>> dst..
>>>
>>> Thank atas bantuannya!
>>> Regards
>>> Andree
>>>
>>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
3b.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Nov 25, 2011 9:21 am (PST)



hehehe.... keretanya ketinggalan.

Kid.

2011/11/26 Kid Mr. <mr.nmkid@gmail.com>

> Dear mpok Haps yang baik,
>
> ada koreksi dikit dari array formula :
> =IF(ROW(1:1)-COUNTBLANK(C$1:C1)>*=*
> COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))
>
> menjadi array formula :
>
> =IF(ROW(1:1)-COUNTBLANK(C$1:C1)>COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))
>
>
> Untuk data tak berurutan maupun tipe datanya numerik maupun teks, dan akan
> disusun hasil terurut menaik maupun menurun dengan jumlah blank tersisip
> bervariasi, mungkin bisa dengan array formula yang panjangnya kaya kereta.
> Pada file terlampir, variasi jumlah blank diset dari 0 sampai 5.
>
> Kalau ada yang kurang pas hasilnya, mohon dikoreksi.
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
>
> 2011/11/25 Haps <hapsari.stlizbeth@gmail.com>
>
>> **
>>
>>
>> Sampai sesaat sebelum post ini di SEND... threads yg dibuka oleh Andri
>> Andreemobile (pertanyaan) ini, sudah mendapat 6 tanggapan
>> Paling tidak, 2 (dua) rumus kiriman, dari Um Ghozi dan Um Kid, adalah
>> formulaes yg* RuarrrBiasssa *yg memerlukan ijtihaad yg menguras tenaga.
>> (Ketika enteran C+S+E terakhir sukses memunculkan hasil tanpa cacat,
>> maka bagi seorang formula composser-terasa "mak-plong", walaupun badan,
>> tangan dan mungkin dengkul menjadi gemetaran (ya karena ijtihaat yg
>> menguras tenaga tadi itu.. ). )
>>
>> Namun formula luar-biasa itu rupanya belum memenuhi keinginan Um
>> Andreemobil, buktinya sampai saat ini tidak ada kabar "gelengan" maupun
>> "anggukan" dari ybs. Kemungkinan besar: ybs sedang bertugas keluar / sulit
>> membuka inbox.
>>
>> Kalo begitu, biarlah saya menjadi orang yg semakin tertarik dengan kasus
>> ini..., ingin melaporkan bugs dan ingin pula bertanya.
>> *Laporan:*
>> Rumus pak Ghozi yg terakhir entah karena apa, di hasil-hasil bagian bawah
>> memunculkan errorvalues
>> Rumus pak Kid sudah di test dengan data angka maupun teks, berhasil lolos
>> uji.
>>
>> *Review keadaan data asli dari pemilik kasus*
>> Saat ini kondisi data (ex pertanyaan) sudah dlm keadaan ter-sortir (data
>> yg sama sudah BERKUMPUL menjadi 1 Grup.
>> Asli data petanyaan dari Andreemobile berupa Bilangan dan URUT (tidak ada
>> missing numbers-nya).
>> ( tetapi telah kami coba di "lab" kami, dengan data yg lebih liar, rumus2
>> berhasil mengantisipasinya )
>> Dalam asli kasusnya, sisipan blank cells antar grup data = cacah-nya
>> sudah fixed, pasti 3 cells.
>>
>> *Pertanyaan (belajar) lanjutan:*
>> Bagimana kalau tingkat kesulitannya dinaikkan? Masih adakah rumusnya ?
>> (pasti ada la yaa...)
>>
>> 1. Data tidak hanya berupa type Bilangan (numbers) saja; tetapi boleh
>> type TEXT maupun campuran Numbers & Text
>> 2. Data tidak harus dlm keadan tersortir, jadi data yg sama boleh
>> terpencar letaknya dlm kolom.
>> 3. Satu* grup data*, selain bisa terdiri dari beberapa data kembar,
>> boleh hanya berisi 1 data unik.
>> 4. Rumus harus bisa diedit dengan mudah agar BANYAKNYA CELL YG DISISIPKAN
>> bisa / mudah diubah,
>> misal (per sekali rumus) banyaknya sisipan cell antar grup data bisa 1
>> atau 2, atau 3 atau 7 atau 13 dst.
>> 5. Urutan (sortOrder) data hasilnya bisa diubah-ubah: bisa Terurut
>> Menurun (Descending) maupun bisa Terurut menaik (Ascending).
>> 6. Rumus tetap berupa rumus tunggal, tidak ada kolom / rumus bantu.
>>
>> Contoh data dan contoh hasil yg diinginkan ada dilampiran.
>>
>> (yaaah. ini seperti Challenge dong.. )
>> terus terang & terang-terangan terus,.. aku tidak bisa.. 'teuk tiasa...
>> 'ra j�gos !
>>
>>
>>
>>
>> 2011/11/24 Kid Mr. <mr.nmkid@gmail.com>
>>
>> **
>>>
>>> Coba juga : Pada B1 diberi header, dan B2 diberi formula :
>>>
>>> =IF(ROW(1:1)-COUNTBLANK(B$1:B1)>=COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(B$1:B1),3)>0)+
>>> (COUNTIF(B$1:B1,B1)=COUNTIF($A$2:$A$55,B1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(B$1:B1))))
>>> Copy ke bawah sesuai kebutuhan.
>>> Wassalam,
>>> Kid.
>>>
>>> 2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>
>>>
>>>> **
>>>> Dear Pakar excel,
>>>> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
>>>> dengan 3 baris blank cell antar kelompoknya?
>>>> (contoh terlampir)
>>>> awal hasil
>>>> 1 1
>>>> 1 1
>>>> 1 1
>>>> 2
>>>> 2
>>>> 3
>>>> 4 2
>>>> 4 2
>>>> 4
>>>> 5
>>>> 6
>>>> 6 3
>>>> dst..
>>>>
>>>> Thank atas bantuannya!
>>>> Regards
>>>> Andree
>>>>
>>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
3c.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 1:15 pm (PST)



amazing..
an awesome formula..
gile benerr.. !

=IF(ROW(1:1)-COUNTBLANK(M$3:M3)>COUNTA($K$2:$K$55),"",IF((MOD(COUNTBLANK(M$3:M3),$M$1+($M$1=0))>0)+(COUNTIF(M$3:M3,M3)+($M$1=0)=COUNTIF($K$2:$K$55,M3))*($M$1<>0),"",INDEX($K$2:$K$55,MOD(SMALL((2-ISNUMBER($K$2:$K$55)*IF($M$3<"C",1,-1))*10^6+COUNTIF($K$2:$K$55,IF($M$3<"C","<",">")&$K$2:$K$55)*1000+ROW($K$2:$K$55)-ROW($K$1),ROW(1:1)-COUNTBLANK(M$3:M3)),1000))))
Length-nya baru 360 karakter saya kira belum kepanjangan...

Tararengkyu... Um Kid...

2011/11/26 Kid Mr. <mr.nmkid@gmail.com>

> **
>
> hehehe.... keretanya ketinggalan.
> Kid.
>
> 2011/11/26 Kid Mr. <mr.nmkid@gmail.com>
>
>> Dear mpok Haps yang baik,
>> ada koreksi dikit dari array formula :
>> =IF(ROW(1:1)-COUNTBLANK(C$1:C1)>*=*
>> COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))
>>
>> menjadi array formula :
>>
>> =IF(ROW(1:1)-COUNTBLANK(C$1:C1)>COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(C$1:C1),3)>0)+(COUNTIF(C$1:C1,C1)=COUNTIF($A$2:$A$55,C1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(C$1:C1))))
>>
>> Untuk data tak berurutan maupun tipe datanya numerik maupun teks, dan
>> akan disusun hasil terurut menaik maupun menurun dengan jumlah blank
>> tersisip bervariasi, mungkin bisa dengan array formula yang panjangnya kaya
>> kereta. Pada file terlampir, variasi jumlah blank diset dari 0 sampai 5.
>>
>> Kalau ada yang kurang pas hasilnya, mohon dikoreksi.
>> Wassalamualaikum Wr. Wb.
>> Kid.
>>
>>
>> 2011/11/25 Haps <hapsari.stlizbeth@gmail.com>
>>
>>> **
>>>
>>> *Pertanyaan (belajar) lanjutan:*
>>> Bagimana kalau tingkat kesulitannya dinaikkan? Masih adakah rumusnya ?
>>> (pasti ada la yaa...)
>>>
>>> 1. Data tidak hanya berupa type Bilangan (numbers) saja; tetapi boleh
>>> type TEXT maupun campuran Numbers & Text
>>> 2. Data tidak harus dlm keadan tersortir, jadi data yg sama boleh
>>> terpencar letaknya dlm kolom.
>>> 3. Satu* grup data*, selain bisa terdiri dari beberapa data kembar,
>>> boleh hanya berisi 1 data unik.
>>> 4. Rumus harus bisa diedit dengan mudah agar BANYAKNYA CELL YG
>>> DISISIPKAN bisa / mudah diubah,
>>> misal (per sekali rumus) banyaknya sisipan cell antar grup data bisa
>>> 1 atau 2, atau 3 atau 7 atau 13 dst.
>>> 5. Urutan (sortOrder) data hasilnya bisa diubah-ubah: bisa Terurut
>>> Menurun (Descending) maupun bisa Terurut menaik (Ascending).
>>> 6. Rumus tetap berupa rumus tunggal, tidak ada kolom / rumus bantu.
>>>
>>> Contoh data dan contoh hasil yg diinginkan ada dilampiran.
>>>
>>> (yaaah. ini seperti Challenge dong.. )
>>> terus terang & terang-terangan terus,.. aku tidak bisa.. 'teuk tiasa...
>>> 'ra jègos !
>>>
>>>
>>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
4a.

Mohon Bantuan : Memverifikasi 2 tabel menjadi tabel baru (melihat si

Posted by: "iwenk setiyawan" iwenk.setiyawan@gmail.com

Fri Nov 25, 2011 9:56 am (PST)



Dear pakar excel

mohon bantuan, bagaimana komparasi 2 tabel data yaitu tabel hutang
dengan tabel yang sudah dibayar sehingga menghasilkan tabel baru yang
menunjukkan sisa hutang yang belum terbayar,

untuk lebih jelasnya dalam attach terlampir

matur nuwun bantuannya
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.

Re: Mohon Bantuan : Memverifikasi 2 tabel menjadi tabel baru (meliha

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 12:50 pm (PST)



mungkin begini:

Sub SaringRecord()
'--coded by Hapsari // Nov 26, 2011--
For n = 1 To Tb1.Rows.Count
Ada = False
' pembandingan diulang sebanyak data di tabel2 (harusnya bisa pakai
Countif)
For i = 1 To Tb2.Rows.Count
Ada = Ada Or (Tb1(n, 1) & Tb1(n, 2) & Tb1(n, 3) = Tb2(i, 1) &
Tb2(i, 2) & Tb2(i, 3))
Next
' kalau pembandingan menghasilkan "tidak ada yg sama",
If Not Ada Then
maka data di-posted ke Tabel3 dengan metoda Kupi (gak pakai Ruti)
r = r + 1
Tb1(n, 1).Resize(1, Tb1.Columns.Count).Copy
Tb3(r, 1).PasteSpecial 12
End If
Next n
Application.CutCopyMode = False
End Sub

Cara penyaringannya terlalu kaku, persis yg dicontohkan, tanpa perasaan,
tanpa mengembangkan ke hal lain
© Kalau di baris data : *3 cell data di tabel1 = ** **3 cells data di
tabel2*
maka Baris di Tabel1 tidak dimasukkan ke tabel3

Jadi misalnya ada NOP 33.99.099.003.099.0099.,0 Nama: Samijan
Di tabel 1 = Utang 1500, di tabel 2 = bayar 600;
Hasil di tabel3 bukan MASIH utang 900 tetapi tetap dicatat sebagai Utang
1500.
"Acara Cicil-Mencicil" tidak ada dan hal itu tidak dijelaskan oleh pemilik
kasussss..

-haps-

2011/11/26 iwenk setiyawan <iwenk.setiyawan@gmail.com>
> mohon bantuan, bagaimana komparasi 2 tabel data yaitu tabel hutang
> dengan tabel yang sudah dibayar sehingga menghasilkan tabel baru yang
> menunjukkan sisa hutang yang belum terbayar,
> untuk lebih jelasnya dalam attach terlampir
> matur nuwun bantuannya
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5.

Masalah Lookup Yang Rumit

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Fri Nov 25, 2011 9:17 pm (PST)



Dear Teman teman BeExcel,

File ada dilampirkan.

-Mansor
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
6a.

Re: menampilkan nama sheet dari file lain

Posted by: "yulian nugroho" yuliannug@gmail.com   yuliannug

Fri Nov 25, 2011 11:18 pm (PST)



mbah putri,
sukak ..... !

lha itu file yang ndak aku inginken jadinya ikut terbaca sheet2nya
apa itu juga termasuk sarat nan berat lainnya yang belum disebutkan
apyun mbah ....

apakah bisa diarahkan ke file tertentu saja ?
misal : hanya sheet2 di file tuladha saja yang tampil walo ada workbook
lain yang dibuka

salam dari batam
YN

2011/11/25 Haps <hapsari.stlizbeth@gmail.com>

> **
>
>
> ysh Kakek YuliYan,..
> kalau sulit-sulit, jèngkèl..., pakai makro saja kek !
> terlampir contoh files nya..
>
> syarat nan berat:
> file yg akan didaftar nama sheetnya harus dlm keadaan terbuka (opened)
>
>
>
> 2011/11/25 yulian nugroho <yuliannug@gmail.com>
>
>> **
>>
>> kawans,
>> adakah penyelesaiannya, ato mungkin excel memang tidak bisa melakukan itu
>> (meuliskan nama-nama tab sheet file lain)
>> thanks
>> YN
>> >
>> > >
>> > > *From:* belajar-excel@yahoogroups.com On Behalf Of *yulian nugroho
>> > > *Sent:* Friday, November 18, 2011 9:34 AM
>>
>> > > kawans,
>> > > apakah excel mampu menampilkan nama2 sheet dari suatu file.
>> > > contoh soal:
>> > > file dengan nama "file yang dikerjakan" menyusun nama2 sheet dari 2
>> file
>> > > yang berbeda ("file bernama huruf" dan "file bernama angka")
>> > > smoga aku tak berharap terlalu banyak untuk excel , hehehe
>> > > bantu ya? tengkyu ....
>> > > --
>> > > Thanks & Regards
>> > > Yulian Nugroho
>> > > =================================================
>> > > mods' note:
>> > > Coba buka help untuk fungsi bernama CELL
>> > > Argument pertama ("infotype") mempunyai 13 enum.
>> > > / 13 pilihan, salah satunya: "FILENAME"
>> > > mbok yao dicoba-coba.....
>> > > =================================================
>>
>>
>

--
Thanks & Regards
Yulian Nugroho
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
6b.

Re: menampilkan nama sheet dari file lain

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 11:35 pm (PST)



lha itu kan cuma untuk ngeTEST, sampai seberapa jau keinginan kakek ...
kalau fle yg akan di pajang *ada syarat NAMANYA* kenapa gak dari dulu
bilang terus terang kek?

misalnya file yg akan di proses hanya file yg NAMANYA dimulai dengan :
"FILE BERNAMA.........."
nanti dukunnya tinggal *pasang susuk IF* saja, seperti ini:

Sub BooksAndSheetsName()
Dim tbl As Range, wbk As Workbook, sht As Worksheet
Dim w As Integer, s As Integer, n As Integer
Set tbl = ThisWorkbook.Sheets("Sheet1").Range("A5").CurrentRegion

tbl.Offset(1, 0).ClearContents
For Each wbk In Workbooks
*If wbk.Name Like "file bernama*" Then*
w = w + 1
s = 0
For Each sht In wbk.Worksheets
s = s + 1
n = n + 1
tbl(n + 1, 1) = w
tbl(n + 1, 2) = wbk.Name
tbl(n + 1, 3) = s
tbl(n + 1, 4) = sht.Name
Next sht
*End If*
Next wbk

End Sub

2011/11/26 yulian nugroho <yuliannug@gmail.com>

> **
>
>
> mbah putri,
> sukak ..... !
>
> lha itu file yang ndak aku inginken jadinya ikut terbaca sheet2nya
> apa itu juga termasuk sarat nan berat lainnya yang belum disebutkan
> apyun mbah ....
>
> apakah bisa diarahkan ke file tertentu saja ?
> misal : hanya sheet2 di file tuladha saja yang tampil walo ada workbook
> lain yang dibuka
>
> salam dari batam
> YN
>
> 2011/11/25 Haps <hapsari.stlizbeth@gmail.com>
>
>> **
>>
>>
>> ysh Kakek YuliYan,..
>> kalau sulit-sulit, jèngkèl..., pakai makro saja kek !
>> terlampir contoh files nya..
>>
>> syarat nan berat:
>> file yg akan didaftar nama sheetnya harus dlm keadaan terbuka (opened)
>>
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
6c.

Re: menampilkan nama sheet dari file lain

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Sat Nov 26, 2011 12:22 am (PST)



Kalau inginnya NON CASE-SENSITIVE ( = Captial /nonCapital nya huruf
*tidak mempengaruhi* pengambilan nama File ):
"BERNAMA" / berNAMa" dianggap samadengan "bernama" / "BERnamA" dst
penyaring IF nya diganti seperti ni

If LCase(wbk.Name) Like "file bernama*" Then

atau bisa juga
If UCase(wbk.Name) Like "FILE BERNAMA*" Then

Jangan lupa wild-card * (bintang) nya

Maaf Kek, maksa'in !!

2011/11/26 Haps <hapsari.stlizbeth@gmail.com>

> misalnya file yg akan di proses hanya file yg NAMANYA dimulai dengan :
> "FILE BERNAMA.........."
> nanti dukunnya tinggal *pasang susuk IF* saja, seperti ini:
>
> Sub BooksAndSheetsName()
> Dim tbl As Range, wbk As Workbook, sht As Worksheet
> Dim w As Integer, s As Integer, n As Integer
> Set tbl = ThisWorkbook.Sheets("Sheet1").Range("A5").CurrentRegion
>
> tbl.Offset(1, 0).ClearContents
> For Each wbk In Workbooks
> *If wbk.Name Like "file bernama*" Then*
> w = w + 1
> s = 0
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
7a.

Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Sat Nov 26, 2011 1:12 am (PST)



Maize

para pakar Excel mohon bantuannya
permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
terimakasih
Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)), LCase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
"SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveNext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value & "' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = True
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7b.

Re: Tambah kolom di database

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Sat Nov 26, 2011 1:26 am (PST)



Maksudnya gimana ya.

Mau menambah kolom (tabel dari 3 kolom jadi 4 kolom) atau
menambah record pada sebuah kolom (tabel 20 record jadi 21 record) atau
meng-update sebuah kolom pada sebuah record (tabel 20 record diubah isi
kolom ke 3 nya pada record ke 14 dengan sebuah data baru) ?

Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

> **
>
>
> **
>
> para pakar Excel mohon bantuannya
> permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
> ) pada kode dibawah tidak bisa menambah kolom pada database Access
>
> sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
> terimakasih
> Private Sub Cmd_Out_Click()
> Dim upDt As String, adDt As String, b As Long
> a = 0
> b = 0
> Set rst = New ADODB.Recordset
> sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
> Set db = New ADODB.Connection
> db.Open sDBCon
> rst.Open "OUT", db
> rst.MoveFirst
> While Not rst.EOF
> If InStr(LCase$(Trim$(rst.Fields("PN").Value)),
> LCase$(Trim$(Cmb_Part.Value))) Then
> For Each Rsk In rst.Fields
> If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
> b = 1
> upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "'
> WHERE PN='" & Cmb_Part.Value & "'"
> db.Execute upDt
> MsgBox "kolom ada " & upDt
> Exit For
> Else
> b = 0
> End If
> ' db.Execute "Update OUT " & _
> "SET 09_Nov_11 = " & _
> "'20'" & _
> " WHERE PN=" & _
> "'7034-1306'" '& ";"
> Next Rsk
> a = a + 1
> MsgBox "baris ada"
> End If
> rst.MoveNext
> Wend
> If b = 0 Then
>
> adDt = txt_tgl.Value
> rst.Fields.Append adt, adNumeric
> upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value
> & "' WHERE PN=" & Cmb_Part.Value & ";"
> db.Execute upDt
> MsgBox "kolom baru saja di tambah"
> End If
> If a = 0 Then
> MsgBox "Boz data belum ada lhooo", vbInformation
> ' lbl_database.Visible = True
> End If
> db.Close
> Set db = Nothing
> Set rst = Nothing
> Set Rsk = Nothing
> End Sub
>
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> sidoel
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Yahoo! Groups

Mental Health Zone

Mental Health

Learn More

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 05.54

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)