Messages In This Digest (13 Messages)

1a.: Fw: [belajar-excel] belajar VB1 From: hendrik karnadi

2.1.: File - Peraturan Milis belajar-excel From: belajar-excel@yahoogroups.com

3a.: Bls: [belajar-excel] belajar VB1 From: neza ibaneza

4a.: std aplikasi From: boyok boyok
4b.: Re: std aplikasi From: i Haps
4c.: Re: std aplikasi From: huda yusmaul

5a.: Re: Menjumlahkan dalam range tertentu From: summonery

6a.: Pisah data Berdasarkan Jenis Kelompok Data From: Fano The Miner
6b.: Re: Pisah data Berdasarkan Jenis Kelompok Data From: Kid Mr.
6c.: Re: Pisah data Berdasarkan Jenis Kelompok Data From: Ki Semprul
6d.: Re: Pisah data Berdasarkan Jenis Kelompok Data From: Fano The Miner

7.: Re: Pisah data Berdasarkan Jenis Kelompok Data (Revisi Pertanyan) From: Fano The Miner

8.: Tanya: Unique Records From: Azwar Rhosyied

View All Topics | Create New Topic

Messages

1a.: Fw: [belajar-excel] belajar VB1

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Mar 1, 2012 1:09 am (PST)

Sedikit nimbrung walaupun OOT.
Mengutip catatan Aki pada bagian akhir ..jurus tendangan dari langit.....
Untuk dapat menendang saja (walaupun kuda2 masih sempoyongan) perlu waktu cukup lama apalagi belajar VBA.

Memang betul petuah Aki bahwa kita harus rajin2 mencoba sendiri (ubah, gagal, coba lagi...dstnya) sampai kita menemukan Eureka (kata tokoh jaman dulu).
Pada saat itulah kita dapat bermain-main dengan VBA dan memecahkan masalah2 yang sebelumnya tidak pernah terpikirkan (koq bisa ya ....).

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Ki Semprul <semprul.ki@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 1 March 2012, 14:32
Subject: Re: [belajar-excel] belajar VB1

Begini ya Dik Neza,,,
(ha ! betapa Aki merasa tuwir sekali, sehingga berani bilang "Dik" pada anda)

Cara menanggapi jawaban itu.. sebaiknya begini:

1. solusi yg diberikan orang diberi status dulu:
kabarkan statusnya:
sesuai keinginan atau tidak, benar atau salah, memuaskan atau menjengkelkan ..dst

status itu tentunya sesuai syarat / batas pertanyaan yg PERNAH diajukan.
jangan memberi status tetapi dengan SYARAT BARU yg belum pernah diajukan
pada email sebelumnya (email yg ditanggapi si penanggap) = "gak sofan..."

2. kalau ada pertanyaan baru;... misalnya (jika kolom x diberi data tidak urut,bgmana)?
lha mengapa kok tanya ke milis ? apa ndak bisa dicoba sendiri ??
sebaiknya adik COBA dulu isilah kolom x dengan angka yg tidak urut
terus lihat apa yg terjadi di kolom hasil (dlm kasus ini kolom 'LookUp')
apakah masih sesuai keinginan ataukah berantakan ?
jika tidak sesuai keingian, ajukan pertanyaan baru
jika ternyata "lho kok hasilnya masih benar" ya jangan repot-repot: pura-pura tanya (ngeTest) !!

3. begitu juga mengenai ObjectRange.Currentregion, apa yg dijangkau ?
( itu bukan event lho, tetapi variable object Range, event SELALU ditetnukan sbg nama prosedur)
sebelum pertanyaan macem-macem diajukan, lebih baik Adik mencoba sendiri dulu
secara manual juga bisa
** aktifkan / select Cell o9
** tekan tombol fungsi [F5]
** cari-cari tombol Special, kalau ada di ceklik (atau dengan kiboard shortcut Alt+S)
** cari-cari Option CurrentRegion dan PILIH-lah
** Tekan tombol "wooOke", dan lihat apa yg terjadi

4. adakan percobaan dengan menambah / atau mengurangi data di kolom O:P
ulangi meng-Currentregion-kan O9, lihat apa yg terjadi.
Di sini berlaku syarat:
1. tidak ada data loncat parit : (o10 diisi, o11 kosong, o12 diisi dst...)
2. sekitar tabel O:P (kolom kanan kirinya dan baris atas bawahnya
jangan bergandengan dengan data (cell berisi data) lain

5.pemilihan EVENT yg memenuhi keinginan, dengan sarat:
>> " saat nilai telah diisikan pada kolom "D" dan "E" "
adalah Worksheet_CHANGE
dengan ada pembatasan alamat Target
yaitu kalau:
- nomor kolom Target di atas 3 tapi di bawah 6 (kolom D dan E)
- nomor baris Target di atas (lebih besar daripada) 7 yaitu baris 8 ke bawah
code lain di dalamnya sama dengan yg sudah ada

Cara Pembatasan Alamat Target sudah sangat sering dicontohkan, dicari cari dulu lah di milis..
Kalau sudah pusing tapi gak ketemu, kembali ke sini lagi ya Dik... (kalau sempat)

Saya hanya menunggu status dari Adik mengenai "Cara menanggapi jawaban butir 1"
Tetapi bagi Adik., tidak ada kewajiban untuk itu, karena ini hanya main "tepo-sliro" saja..

Semprul..Ki!
catatan:
Aki sudah mencari-cari si semua posting dari Juli 2007 sampai terakhir
ternyata tidak ada member dengan nikname STDV
jadi Aki mirip dengan siapa dwongngng.. ??

Yang (pernah) ada = member dengan nikname STDEV(i)
( mirip nama Fungsi mencari nilai Standar Deviasi dari variable i )

Kalau dibanding beiauh.. tentunya ada mirip-nya karena dia itu murid Aki, eh kebalik..
.. Aki itu murid beliauh.. tapi tidak tamat, cuma sampai jurus "tendangan dari langit"

'----
2012/3/1 neza ibaneza <nezaibaneza@yahoo.co.id>

>waduh Ki, kayaknya cara menjawab Ki ini saya kenal, mirip dgn STDV.... (ST level 3)
>trus gimana kalaw kolom O tidak berurut? (cara 2) ada g ya?... terus evennya yang diinginkan diperoses saat nilai telah diisikan pada
>kolom "D" dan "E"...atau Worksheet_SelectionChange evennya diganti jadi apa Ki?
>karena saya juga melihat even baru : Set TabelRef = Range("O9").CurrentRegion apa batasan kolom terbaca terus sesuai
>
>batasan kolom tabel yg dibuat? atau klw nambah data pada tabel lookup akan terbaca juga?
>
>
>salam
>
>neza
>
>
>
>
>
>
>________________________________
> Dari: Ki Semprul <semprul.ki@gmail.com>
>Dikirim: Kamis, 1 Maret 2012 12:24
>
>sebaiknya kita menyebut VBA sebagai VBA jangan VB
>karena VBA bukan VB walaupun masih sodaranya)
>
>
>problem:
>>> agar rumus pada kolom lookup tidak terlihat gimana caranya
>
>
>Cara1,
>Dengan meng-asumsi-kan: tabel di kolom O:P itu data di kolom O nya
>pasti angka urut 1,2,3,... dst
>
>
>Kelemahan makro ini (bawaan dari ibaneza) bahwa untuk mengotomatiskan
>JALANNYA makro dipakai EVENT WorkSheet_SelectionChange tanpa
>pembatasan Target.
>Sehingga makro akan terus-menerus dijalankan setiap anda memindah kan
>cell pointer KE CELL MANA SAJA di sheet tsb, walaupun hanya memindahkan saja.
>(kacian deh komputernya...)
>
>
>Sebaiknya ibaneza menenetukan keperluannya: kapan hasil ingin didapatkan ?
>
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim TabelRef As Range
> Dim i As Integer
> Dim a As Double, b As Double
> Dim x As Double, y As Double
> Set TabelRef = Range("O9").CurrentRegion
>
> For i = 8 To 16
> a = Cells(i, 4)
> b = Cells(i, 5)
> x = Cells(i, 3)
> y = a + (b ^ x)
> Cells(i, 6).Value = y
> Cells(i, 7).Value = TabelRef(x, 2)
> Next i
>End Sub
>
>
>cara 2 / dan cara lain akan diposted ke milis bila posting ini ada tanggapannya
>
>Semprul..Ki!
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2.1.: File - Peraturan Milis belajar-excel

Posted by: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com

Thu Mar 1, 2012 2:04 am (PST)

"PERATURAN MILIS belajar-excel"
-------------------------------

Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.

Setting untuk posting di milis ini masih dipertahankan = "UnModerated"
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.

Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.

Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah";
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.

Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.

Untuk itu kita perlu kesepakatan sebagai berikut:

SANGAT DIHARAPKAN:
==================

(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.

(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.

(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)

(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.

SANGAT TIDAK DIHARAPKAN:
========================

(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.

(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).

(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).

(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.

(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.

LAIN LAIN:
==========

Saran & Tips menulis mail / posting ke milis:
---------------------------------------------

(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong",
"help", "tanya" "mohon pencerahan", dsb)

(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan" dsb, hanya akan merusak 'Thread' (korelasi/kesinambungan)
suatu topik, oleh karena itu jangan dilakukan.

Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.

(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.

(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting' (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.

'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.

(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.

Mengenai OOT dan VOOT
---------------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).

Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".

Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan", tidak didelete.
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.

Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.

VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.

Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.

Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri' (jalur pribadi).

Kritik dan saran kepada milis 'belajar-excel'
--------------------------------------------
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators

Hak dan wewenang Moderators
---------------------------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.

Himbauan dari milis 'belajar excel' kpd members
-----------------------------------------------

Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.

Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes", maka di net
ada semacam etika umum yg lazim disebut "nettiquette".

Kalau anda sering tidak mengindahkan "nettiquettes", tidak akan polisi
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.

Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".

--------------------------------------------[rev: 13mar2010 / ctv]-----

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (48)

3a.: Bls: [belajar-excel] belajar VB1

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza

Thu Mar 1, 2012 2:05 am (PST)

terima kasih banyak Ki, atas penjelasannya... saya memang orangnya gitu (over kritis) sebelum mencoba lebih lanjut
tadi aku dah nyoba sebelum Ki balas... (betul kata Ki, klw ada data lanjutan dibawah tabel refensi bisa amburadul)..
yg jadi pertanyaan memang cuma woksheet_selectionchange saja... karena jika data sudah mencapai ribuan row maka

komputer jadi repot (kecuali sistem formula tidak di otomatic kalee "belum dicoba apa berlaku pada VBA atau tidak")
kemungkinan saya akan banyak pertanyaan mengenai VBA ke Ki, maklum baru mulai belajar VBA..

salam be-excel
Neza...

________________________________
Dari: Ki Semprul <semprul.ki@gmail.com>
Dikirim: Kamis, 1 Maret 2012 15:32

Begini ya Dik Neza,,,
(ha ! betapa Aki merasa tuwir sekali, sehingga berani bilang "Dik" pada anda)

Cara menanggapi jawaban itu.. sebaiknya begini:

1. solusi yg diberikan orang diberi status dulu:
kabarkan statusnya:
sesuai keinginan atau tidak, benar atau salah, memuaskan atau menjengkelkan ..dst

status itu tentunya sesuai syarat / batas pertanyaan yg PERNAH diajukan.
jangan memberi status tetapi dengan SYARAT BARU yg belum pernah diajukan
pada email sebelumnya (email yg ditanggapi si penanggap) = "gak sofan..."

2. kalau ada pertanyaan baru;... misalnya (jika kolom x diberi data tidak urut,bgmana)?
lha mengapa kok tanya ke milis ? apa ndak bisa dicoba sendiri ??
sebaiknya adik COBA dulu isilah kolom x dengan angka yg tidak urut
terus lihat apa yg terjadi di kolom hasil (dlm kasus ini kolom 'LookUp')
apakah masih sesuai keinginan ataukah berantakan ?
jika tidak sesuai keingian, ajukan pertanyaan baru
jika ternyata "lho kok hasilnya masih benar" ya jangan repot-repot: pura-pura tanya (ngeTest) !!

3. begitu juga mengenai ObjectRange.Currentregion, apa yg dijangkau ?
( itu bukan event lho, tetapi variable object Range, event SELALU ditetnukan sbg nama prosedur)
sebelum pertanyaan macem-macem diajukan, lebih baik Adik mencoba sendiri dulu
secara manual juga bisa
** aktifkan / select Cell o9
** tekan tombol fungsi [F5]
** cari-cari tombol Special, kalau ada di ceklik (atau dengan kiboard shortcut Alt+S)
** cari-cari Option CurrentRegion dan PILIH-lah
** Tekan tombol "wooOke", dan lihat apa yg terjadi

4. adakan percobaan dengan menambah / atau mengurangi data di kolom O:P
ulangi meng-Currentregion-kan O9, lihat apa yg terjadi.
Di sini berlaku syarat:
1. tidak ada data loncat parit : (o10 diisi, o11 kosong, o12 diisi dst...)
2. sekitar tabel O:P (kolom kanan kirinya dan baris atas bawahnya
jangan bergandengan dengan data (cell berisi data) lain

5.pemilihan EVENT yg memenuhi keinginan, dengan sarat:
>> " saat nilai telah diisikan pada kolom "D" dan "E" "
adalah Worksheet_CHANGE
dengan ada pembatasan alamat Target
yaitu kalau:
- nomor kolom Target di atas 3 tapi di bawah 6 (kolom D dan E)
- nomor baris Target di atas (lebih besar daripada) 7 yaitu baris 8 ke bawah
code lain di dalamnya sama dengan yg sudah ada

Cara Pembatasan Alamat Target sudah sangat sering dicontohkan,dicari cari dulu lah di milis..
Kalau sudah pusing tapi gak ketemu, kembali ke sini lagi ya Dik... (kalau sempat)

Saya hanya menunggu status dari Adik mengenai "Cara menanggapi jawaban butir 1"
Tetapi bagi Adik.,tidak ada kewajiban untuk itu, karena ini hanya main "tepo-sliro" saja..

Semprul..Ki!
catatan:
Aki sudah mencari-cari si semua posting dari Juli 2007 sampai terakhir
ternyata tidak ada member dengan nikname STDV
jadi Aki mirip dengan siapa dwongngng.. ??

Yang (pernah) ada = member dengan nikname STDEV(i)
( mirip nama Fungsi mencari nilai Standar Deviasi dari variable i )

Kalau dibanding beiauh.. tentunya ada mirip-nya karena dia itu murid Aki, eh kebalik..
.. Aki itu murid beliauh.. tapi tidak tamat, cuma sampai jurus "tendangan dari langit"

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

4a.: std aplikasi

Posted by: "boyok boyok" dodol_y@yahoo.co.id dodol_y

Thu Mar 1, 2012 6:43 am (PST)

met pagi siang dan malam

para pakar excel

mohon bantuanya untuk pembuatan std aplikasi

trims

y2k

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4b.: Re: std aplikasi

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Thu Mar 1, 2012 2:14 pm (PST)

Kasus ini sepertinya pernah terbaca entah dimana (mungkin di toko sebelah)
sejak beberapa hari/minggu y.l.
Kalau belum ada tanggapan, kayaknya karena ke-taklengkap-an info yg
diberikan oleh penanya.

*** di badan email:*
*"mohon bantuanya untuk pembuatan std aplikasi"*
*** di sheet:*
*"Bagaimana caranya dalam 1 bulan, jika 1 lokasi aplikasi 2x atau lebih
bisa muncul seperti diatas dengan basic dari sheet std"*

Berhubung cara menyampaikan masalah HANYA tanya, tapi OGAH menjelaskan
masalah, maka jawabannya ini pasti tidak sesuai dengan keinginan, mohon
dimaklumi..
Khusus untuk Haps, berhubung pasti tidak sempat, maka untuk casae ini tidak
akan ada kelanjutan, panambahan info, maupuan tanyajawab ini itu lagi..

[image: Inline image 1]

'======= Module UserForm ===========
Option Explicit
' VBA Coded by indri hapsari / 1 Mar 2012
' BeExcel Case :
' http://tech.groups.yahoo.com/group/belajar-excel/message/16044
' ------------------------------------------------
Dim TabelStd As Range, TblHasil As Range
Dim TglTanam As Date, Lengkap As Boolean
'-------------------------------------
Private Sub UserForm_Initialize()
Dim i As Integer
Set TabelStd = Sheets("Std").Range("C2").CurrentRegion.Offset(3, 0)
Set TabelStd = TabelStd.Resize(TabelStd.Rows.Count - 3,
TabelStd.Columns.Count)
Set TblHasil = Sheets("Renc").Range("B3").CurrentRegion.Offset(2, 0)
TblHasil.ClearContents

CboHari.Clear: CboHari.ListRows = 16
For i = 1 To 31: CboHari.AddItem i: Next i
CboBulan.Clear: CboBulan.ListRows = 12
For i = 1 To 12: CboBulan.AddItem i: Next i
TxtTahun = Year(Date)
CboJangka.Clear: CboJangka.ListRows = 4
For i = 1 To 24: CboJangka.AddItem i: Next i
End Sub

Private Sub Set_TglTanam()
If CboHari.ListIndex >= 0 Then
If CboBulan.ListIndex >= 0 Then
If CLng(TxtTahun) > 0 Then
TglTanam = DateSerial( _
CLng(TxtTahun), CInt(CboBulan), CInt(CboHari))
LbTglTanam = Format(TglTanam, "dd MMM yyyy")
End If
End If
End If
End Sub

Private Sub CboHari_Change()
Set_TglTanam
End Sub

Private Sub Cbobulan_Change()
Set_TglTanam
End Sub

Private Sub TxtTahun_AfterUpdate()
Set_TglTanam
End Sub

Private Sub Cmd_Cancel_Click()
CboHari.ListIndex = -1
CboBulan.ListIndex = -1
CboJangka.ListIndex = -1
TxtLokasi = ""
TxtLuas = ""
TxtTahun = ""
End Sub

Private Sub Cmd_Close_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
' VBA Coded by indri hapsari / 1 Mar 2012
' BeExcel Case :
' http://tech.groups.yahoo.com/group/belajar-excel/message/16044
' ------------------------------------------------
Dim i As Integer, r As Integer, n As Integer
Dim TglAkhir As Date, TglAplik As Date
ValidasiDataIsian
If Not Lengkap Then Exit Sub
TglAkhir = DateAdd("m", CboJangka, TglTanam) - 1
TglAplik = TglTanam
For n = 1 To TabelStd.Rows.Count
TglAplik = TglAplik + 10
If TglAplik <= TglAkhir Then
r = r + 1
TblHasil(r, 1).Value = TxtLokasi
TblHasil(r, 2).Value = CInt(TxtLuas)
TblHasil(r, 3).Value = TglTanam
TblHasil(r, 4).Resize(1, 6).Value = _
TabelStd(n, 1).Resize(1, 6).Value
TblHasil(r, 5).Value = TglAplik
End If
Next n
End Sub

Private Sub ValidasiDataIsian()
Lengkap = False
If TxtLokasi = "" Then
MsgBox "Data 'Lokasi' belum ditentukan !"
TxtLokasi.SetFocus: Exit Sub
End If
If TxtLuas = "" Then
MsgBox "Data 'LUAS' belum ditentukan !"
TxtLuas.SetFocus: Exit Sub
End If
If LbTglTanam = "D M YYYY" Then
MsgBox "Data 'Tgl Tanam' belum ditentukan !"
CboHari.SetFocus: Exit Sub
End If
If CboJangka.ListIndex = -1 Then
MsgBox "Data 'Jangka Waktu' belum ditentukan !"
CboJangka.SetFocus
Exit Sub
End If
Lengkap = True
End Sub

'=====Module Sheet 'Renc' =====
Private Sub Generate_Cmd_Click()
Frm_Kriteria.Show
End Sub
Private Sub Hapus_Cmd_Click()
Range("B3").CurrentRegion.Offset(2, 0).ClearContents
End Sub
'-------

*- i Haps -*
*maarweg - 5000 koln; 6 feb 2012*

2012/3/1 boyok boyok <dodol_y@yahoo.co.id>

> **
>
> met pagi siang dan malam
> para pakar excel
> mohon bantuanya untuk pembuatan std aplikasi
> trims
> y2k
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4c.: Re: std aplikasi

Posted by: "huda yusmaul" yusmaulhuda@yahoo.com yusmaulhuda

Thu Mar 1, 2012 6:20 pm (PST)

std aplikasi apa pak?

________________________________
From: boyok boyok <dodol_y@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, March 1, 2012 9:28 PM
Subject: [belajar-excel] std aplikasi

met pagi siang dan malam

para pakar excel

mohon bantuanya untuk pembuatan std aplikasi

trims

y2k

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5a.: Re: Menjumlahkan dalam range tertentu

Posted by: "summonery" summonery@yahoo.com summonery

Thu Mar 1, 2012 6:57 am (PST)

coba juga,
=SUM(INDEX(LOOKUP(ROW(INDIRECT(C8&":"&C9)),C5:N6),))

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, sepriansyah encep
<citra_encep@...> wrote:
>
> Dear All.
>
> Mohon pencerahannya,
> Bagaimana menjumlahkan dalam suatu range tertentu ,
> Seperti di lampiran,
> Mohon pencerahannya...
>
> Tq,
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

6a.: Pisah data Berdasarkan Jenis Kelompok Data

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 5:36 pm (PST)

Dear All Be Exceler.

Mohon Bantuan teman-teman.

Saya punya database yang ingin saya pisahkan dari barisan data menjadi
kelompok data berdasarkan jenis kelompok data.

Untuk lebih jelasnya, pertanyaan lengkap ada di lampiran.

Harapan saya, teman-teman bisa berikan solusi dengan "CODING MACRO".

Terima kasih

Salam.

FANO TheMiner.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6b.: Re: Pisah data Berdasarkan Jenis Kelompok Data

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

Thu Mar 1, 2012 7:28 pm (PST)

Hai Fano,

Letakkan script berikut pada sebuah Module.

Public Sub Sebar()
Dim rngData As Range, rngFind As Range
Dim rngAnchor As Range, rngRes As Range
Dim lLast As Long, lRow As Long

Application.ScreenUpdating = False
Sheet1.Range("L1").Resize(, 160).EntireColumn.Delete
Set rngAnchor = Sheet1.Range("L1")

Set rngData = Sheet1.Range("a1").CurrentRegion.Resize(, 1)
Set rngFind = rngData.Resize(1, 1)
lLast = 1
Do
Set rngFind = rngData.Find(0, rngFind)
If Not rngFind Is Nothing Then
If rngFind.Row < lLast Or rngFind.Offset(1).Value < 1 Then
lLast = 0
Else
lLast = rngFind.Row
Set rngRes = rngAnchor.Offset(0,
Int(rngFind.Offset(1).Value / 2) * 8)
rngFind.Resize(6, 7).Copy
rngRes.Offset(rngRes.CurrentRegion.Rows.Count)
End If
Else
lLast = 0
End If
Loop Until lLast = 0
Application.ScreenUpdating = True
MsgBox "Done.", vbInformation, "Sebar-sebar"
End Sub

Regards.
Kid.

On Fri, Mar 2, 2012 at 08:06, Fano The Miner <fano.theminer@gmail.com>wrote:

> **
>
>
> Dear All Be Exceler�****
>
> ** **
>
> ** **
>
> Mohon Bantuan teman-teman.****
>
> Saya punya database yang ingin saya pisahkan dari barisan data menjadi
> kelompok data berdasarkan jenis kelompok data.****
>
> Untuk lebih jelasnya, pertanyaan lengkap ada di lampiran.****
>
> Harapan saya, teman-teman bisa berikan solusi dengan �CODING MACRO�.****
>
> ** **
>
> Terima kasih****
>
> Salam.****
>
> ** **
>
> FANO TheMiner.****
>
> ** **
>
> ** **
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6c.: Re: Pisah data Berdasarkan Jenis Kelompok Data

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Thu Mar 1, 2012 9:02 pm (PST)

Sekedar lain slank.. serba Loop
Makro ini perlu bantuan fungsi (UDF) untuk membuat UniqueList ex kolom1
(=kunci pemisahannya) pada tabel "database"

'===================
Sub UnMergeDBSemprul()
'================================
' CodeVBA by: Ki Semprul
' Kasus BeExcel; posting # 16047
'================================
Dim TblReff As Range, TblRslt As Range
Dim UniqKey, nRow As Long, nCol As Integer
Dim i As Long, n As Long, r As Long

Set TblReff = Sheets("Database").Cells(1).CurrentRegion.Offset(1, 0)
nRow = TblReff.Rows.Count - 1: nCol = TblReff.Columns.Count
Set TblReff = TblReff.Resize(nRow, nCol)
Set TblRslt = TblReff(1, 4)
* UniqKey = LOUV(*TblReff.Resize(nRow, 1), True*)*

For i = 2 To UBound(UniqKey)
Set TblRslt = TblRslt.Offset(0, nCol + 1)
r = 0
For n = 1 To nRow

If TblReff(n, 1).Value = 0 Then
If TblReff(n + 1, 1).Value = UniqKey(i) Then
r = r + 1
Range(TblRslt(r, 1), TblRslt(r, nCol)).Value
= Range(TblReff(n, 1), TblReff(n, nCol)).Value
End If
End If

If TblReff(n, 1).Value = UniqKey(i) Then
r = r + 1
Range(TblRslt(r, 1), TblRslt(r, nCol)).Value = Range(TblReff(n,
1), TblReff(n, nCol)).Value
End If

Next n
Next i
End Sub
'===================
*
*
{1}.
Sedikit Kendalanya (atau hal yg membuat makro harus pberpanjang-panajng)
adalah ada nilai di kolom 1 (yg dianggap sbg ID_kunci_pemisah) bernilai 0
(nol) tetapi *bisa ikut ID LAIN.*
Ada ada azza!! Jadi.. boleh dikatakan tabel rujukan itu BUKAN DATABASE yg
Baik & yang normal !

Cara mengkikutkan ke Kelompok lain, di makro ini Aki gunakan akal-akalan
cara bodoh:
- *kalau ID = 0* DAN *kalau cell diBAWAH ID = ID yg sedang di LOOP;* maka
>> record itu ikut diciduk ke kelompok yg sedang di loop.
Mudah-mudahan tidak terlalu nguawurrr !!!

{2}.
Kita lihat di data rujukan ada catatan : "dst" / artinya data tsb dapat
memanjang ke bawah bahkan bisa sampai mentok baris ke 1048576.
Jika demikian; bisa saja KOLOM tidak lagi cukup menampung data yg di pajang
secara ANEH !, yaitu ke kanan !!
Bila hal itu terjadi, makro Semprul tidak IKUT memikirkan
penyelesaiannya, biarlah
difikirkan oleh pembuat "database" nya sebagai PR.

*Semprul..Ki!*

*2012/3/2 Fano The Miner <fano.theminer@gmail.com>
*
>
> * *
>
> *Dear All Be Exceler�*
>
> * *
>
> **
>
> *Mohon Bantuan teman-teman.*
>
> *Saya punya database yang ingin saya pisahkan dari barisan data menjadi
> kelompok data berdasarkan jenis kelompok data.*
>
> *Untuk lebih jelasnya, pertanyaan lengkap ada di lampiran.*
>
> *Harapan saya, teman-teman bisa berikan solusi dengan �CODING MACRO�.*
>
> *Terima kasih*
>
> **
>
> *Salam.*
>
> *FANO TheMiner.*
>
> **
>
>
> **
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6d.: Re: Pisah data Berdasarkan Jenis Kelompok Data

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 11:50 pm (PST)

To Mr. Kid : Thank you atas solusinya.. Thank Your Very Much.

To Ki Semprul. Thank you juga atas solusinya Ki.

Ada pertanyaan dari saya. Mohon Pencerahan para Master.

1. Saya belum bisa menangkap dengan jelas maksud Ki Semprul di nomor
1, yaitu tentang "nilai di kolom 1 bernilai 0". Sedikit penjelasan tambahan tentang nilai pemisah 0 ini, database ini merupakan data nilai ekstraksi dari Software/Aplikasi lain, jadi nilai 0 sudah pasti merupakan pemisah.
Selain itu, nilai/angka-nya pasti di atas atau > dari 0 (1 dan seterusnya).
"Mudah-mudahan yang saya jelaskan bisa nyambung dengan yang Ki Semprul
maksud. Mohon Pencerahannya".

2. Terkait penjelasan Ki Semprul nomor 2, Setelah saya coba analisa
kemungkinan banyak data di "Database", analisa saya bahwa Jumlah maksimum data yang bisa di olah dalam 1 sheet kemungkinannya hanya sampai di baris/row ke 12,276. (dengan kata lain, jika data lebih dari itu berarti
tidak tercover dalam 1 sheet)..

3. Bagaimana macro coding-nya jika, data lebih dari row 12,276 akan di
proses ke sheet baru. Mohon bantuan para pakar.

Terima Kasih.
Salam.
Fano THEMINER

From: belajar-excel@yahoogroups.com
On Behalf Of Ki Semprul
Sent: Friday, March 02, 2012 2:02 PM

Sekedar lain slank.. serba Loop

Makro ini perlu bantuan fungsi (UDF) untuk membuat UniqueList ex kolom1
(=kunci pemisahannya) pada tabel "database"

Sub UnMergeDBSemprul()
'================================
' CodeVBA by: Ki Semprul
' Kasus BeExcel; posting # 16047
'================================
End Sub

{1}.
Sedikit Kendalanya (atau hal yg membuat makro harus pberpanjang-panajng) adalah ada nilai di kolom 1 (yg dianggap sbg ID_kunci_pemisah) bernilai 0 (nol) tetapi bisa ikut ID LAIN.

Ada ada azza!! Jadi.. boleh dikatakan tabel rujukan itu BUKAN DATABASE yg Baik & yang normal !

Cara mengkikutkan ke Kelompok lain, di makro ini Aki gunakan akal-akalan cara bodoh:

- kalau ID = 0 DAN kalau cell diBAWAH ID = ID yg sedang di LOOP; maka >> record itu ikut diciduk ke kelompok yg sedang di loop.

Mudah-mudahan tidak terlalu nguawurrr !!!

{2}.
Kita lihat di data rujukan ada catatan : "dst" / artinya data tsb dapat memanjang ke bawah bahkan bisa sampai mentok baris ke 1048576.

Jika demikian; bisa saja KOLOM tidak lagi cukup menampung data yg di pajang secara ANEH !, yaitu ke kanan !!

Bila hal itu terjadi, makro Semprul tidak IKUT memikirkan penyelesaiannya, biarlah difikirkan oleh pembuat "database" nya sebagai PR.

Semprul..Ki!

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

7.: Re: Pisah data Berdasarkan Jenis Kelompok Data (Revisi Pertanyan)

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 11:54 pm (PST)

To Mr. Kid : Thank you atas solusinya.. Thank Your Very Much.

To Ki Semprul. Thank you juga atas solusinya Ki.

Ada pertanyaan dari saya. Mohon Pencerahan para Master.

1. Saya belum bisa menangkap dengan jelas maksud Ki Semprul di nomor 1, yaitu tentang "nilai di kolom 1 bernilai 0". Sedikit penjelasan tambahan
tentang nilai pemisah 0 ini, database ini merupakan data nilai ekstraksi
dari Software/Aplikasi lain, jadi nilai 0 sudah pasti merupakan pemisah.
Selain itu, nilai/angka-nya pasti di atas atau > dari 0 (1 dan seterusnya).
"Mudah-mudahan yang saya jelaskan bisa nyambung dengan yang Ki Semprul
maksud. Mohon Pencerahannya".

2. Terkait penjelasan Ki Semprul nomor 2, Setelah saya coba analisa kemungkinan banyak data di "Database", analisa saya bahwa Jumlah maksimum data "uniq" yang bisa di olah dalam 1 sheet kemungkinannya hanya sampai di baris/row ke 12,276. (dengan kata lain, jika data lebih dari itu berarti tidak tercover dalam 1 sheet)..

3. Bagaimana macro coding-nya jika, data lebih dari row 12,276 akan di proses ke sheet baru. Mohon bantuan para pakar.

Terima Kasih.
Salam.
Fano THEMINER

From: Fano The Miner [mailto:fano.theminer@gmail.com]
Sent: Friday, March 02, 2012 3:55 PM

To Mr. Kid : Thank you atas solusinya.. Thank Your Very Much.
To Ki Semprul. Thank you juga atas solusinya Ki.
Ada pertanyaan dari saya. Mohon Pencerahan para Master.

4. Saya belum bisa menangkap dengan jelas maksud Ki Semprul di nomor 1, yaitu tentang "nilai di kolom 1 bernilai 0". Sedikit penjelasan tambahan tentang nilai pemisah 0 ini, database ini merupakan data nilai ekstraksi dari Software/Aplikasi lain, jadi nilai 0 sudah pasti merupakan pemisah.
Selain itu, nilai/angka-nya pasti di atas atau > dari 0 (1 dan seterusnya).
"Mudah-mudahan yang saya jelaskan bisa nyambung dengan yang Ki Semprul
maksud. Mohon Pencerahannya".

5. Terkait penjelasan Ki Semprul nomor 2, Setelah saya coba analisa kemungkinan banyak data di "Database", analisa saya bahwa Jumlah maksimum data yang bisa di olah dalam 1 sheet kemungkinannya hanya sampai di baris/row ke 12,276. (dengan kata lain, jika data lebih dari itu berarti tidak tercover dalam 1 sheet)..

6. Bagaimana macro coding-nya jika, data lebih dari row 12,276 akan di proses ke sheet baru. Mohon bantuan para pakar.

Terima Kasih.
Salam.
Fano THEMINER

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

8.: Tanya: Unique Records

Posted by: "Azwar Rhosyied" go_fauzan@yahoo.com azwar_rhosyied

Fri Mar 2, 2012 12:03 am (PST)

Dear rekan2 masterl Excel,

Mau tanya nih, bagaimana cara atau formula menghitung format data seperti ini :

A D H
B D G
A E I
C F I
C F I
A D H

baris pertama punya 3 kategori : A, B dan C
baris kedua punya 3 kategori : D, E dan F
baris ketiga punya 3 kategori : G, H dan I

Nah, kalo secara manual dapat dihitung jumlahnya:
ADH = 2
BDG = 1
AEI = 1
CFI = 2

Bagaimana supaya penghitungannya dapat secara otomatis?

Terima kasih.

====================================================
Mods Note:

ysh: Bp Azwar,-
Subject hendaknya menggambarkan kasus yg ditanyakan
jangan hanya TANYA, HELEP, TOLONG dst...

Hal ini menyulitkan pencarian kasus dikemudian hari.
Mohon diLihat & Baca-baca lagi [Peraturan Milis].

Subject di atas sudah dimodif/edit oleh Mods.

Jawaban yg Bp Azwar inginkan berapa : 4 atau 6 ?
=====================================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

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

Jumat, 02 Maret 2012

Messages In This Digest (13 Messages)

Messages

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Mar 1, 2012 1:09 am (PST)

Posted by: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com

Thu Mar 1, 2012 2:04 am (PST)

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id nezaibaneza

Thu Mar 1, 2012 2:05 am (PST)

Posted by: "boyok boyok" dodol_y@yahoo.co.id dodol_y

Thu Mar 1, 2012 6:43 am (PST)

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Thu Mar 1, 2012 2:14 pm (PST)

Posted by: "huda yusmaul" yusmaulhuda@yahoo.com yusmaulhuda

Thu Mar 1, 2012 6:20 pm (PST)

Posted by: "summonery" summonery@yahoo.com summonery

Thu Mar 1, 2012 6:57 am (PST)

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 5:36 pm (PST)

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

Thu Mar 1, 2012 7:28 pm (PST)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Thu Mar 1, 2012 9:02 pm (PST)

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 11:50 pm (PST)

Posted by: "Fano The Miner" fano.theminer@gmail.com

Thu Mar 1, 2012 11:54 pm (PST)

Posted by: "Azwar Rhosyied" go_fauzan@yahoo.com azwar_rhosyied

Fri Mar 2, 2012 12:03 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me