Bantuan yg diberikan sebelumnya sudah sangat bermanfaat sekali
Saya sudah mencoba membuat input di sheet DATA hingga 65000 data atau baris,
dan program tidak hang dan proses tetap bagus tidak mengalami penurunan
kinerja. saya juga sudah mencoba menambah nomer petak di sheet SUB DATA, dan
nomer yang ditambahkan itu langsung muncul di list report.
Saya msh ada beberapa pertanyaan lagi :
1. Saya mencoba menambahkan kolom TANGGAL disebelah kanan kolom KET. Kolom ini
saya tambahkan biasa di sheet DATA dan sheet REPORT tanpa mengubah macro nya,
dan ketika di sheet DATA saya input juga untuk tanggalnya, data tersebut juga
muncul di sheet REPORT. pertanyaannya :
a. apakah yg saya lakukan ini sudah benar? atau ada yg perlu
dibenahi?
b. apakah setiap saya ingin menambahkan kolom baru bisa
dengan cara seperti itu
2. Seandainya ingin mengubah kata "PENJUMLAHAN" di sheet REPORT menjadi kata
"TOTAL" bagaimana caranya?
Terima Kasih atas bantuan dan informasi nya
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0, 191);">Rahagung
Dananjoyo</span>
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0,
191);"> PTPN XI (Persero)</span>
________________________________
From: siti Vi <[email protected]>
To: [email protected]
Sent: Fri, January 22, 2010 12:23:26 AM
Subject: Re: [belajar-excel] Pengelompokkan data
1.
Bisa..
yaitu dengan mengedit makro
di bagian terakhir menjadi spt ini
Report(n, 11) = vHa
Report(n, 12) =
vKui
Report(n, 18) = vKristal
Report(n, 17) = vKristal / vKui *
100
Hasilnya di kolom RDM pada
sheet Report pada Baris PENJUMLAHAN akan
tertulis konstanta
bilangan hasil dari vKristal / vKui * 100
Dengan demikian
makro juga tidak perlu lagi mempunyai variable vRDM
yg diiisi secara akumulatif
data RDM setiap loop bertemu kriteria yg cocok.
2.
Menambah Daftar
nomor Petak di sheet SubData; tinggal ditambah saja (tetap di kolom A)
Syaratnya jangan
ada cell kosong di antara data.
Lalu : range yg berisi
nomor=nomor tsb diberi NAMA = 'Petak'
(melalui menu Insert >
Name > Define )
Itu kalau secara manual.
Di module sheet Report,
sekarang sudah siti tambahkan makro untuk mengotomatiskan:
setiap ada perubahan daftar
tsb, langsung dikenali oleh ComboBox1 di sheet
Report.
Hal ini (=refresh List di
dalam ComboBox1) akan terjadi otomatis setiap kali kita
meng-Aktifkan Sheet Report (setelah sebelumnya
mengaktifkan sheet SubData untuk
mengedit Daftar yg
ada)
Private Sub Worksheet_Activate()
Dim Petak As Range
Set Petak =
Sheets("SubData" ).Range(" A2")
Set Petak = Range(Petak,
Petak.End(xlDown) )
Petak.Name = "Petak"
ComboBox1.ListFillR ange = "Petak"
End Sub
3
Data di sheet Contoh (pada
workbook baru sudah saya ganti namanya menjadi Sheet DATA)
diperbesar menjadi sekitar
5000 = 10.000 records
Di coba saja
pak.
Teoritis tidak akan terjadi
hang, karena setiap menemukan records yg cocok langsung di
tulis ke sheet Report
(tidak disimpan di memory)
Selama program berjalan,
memory hanya dibebani menyimpan akumulasi data vHa, vKui dan
vKristal.
Hanya saja, tentu waktu
tunggu proses menjadi lebih lama.
(4)
Oiya, ada sedikit perubahan
pak:
Agar memilih nomor petak di
ComboBox menjadi lebih mudah (dapat dengan memilih list,
bisa juga mengetikkan nomor,
maupun menekan key panah atas/bawah, saat kursor
berada
dalam ComoBox), maka Report
baru akan di-generate setelah Tombol OK di klik.
(sebelumnya : setiap
perubahan value dlm ComboBox langsung memicu GenerateReport)
Mohon diperiksa perubahan²
tiap makronya, di Module Umum maupun Module Sheet Report.
Demikian yg dpat kami
jelaskan...
bluewater,
21jan2010
siti
________________________________
Sub
GenerateReport1( Kriteria As String)
' siti
vi / menyaring & menuliskan data sesuai kriteria
' jkt
21jan2010 - for milis [belajar-excel]
Dim
dTabel As Range '
tabel/range yg akan diproses
Dim Report As
Range ' range tempat menuliskan
report
Dim nRow As
Long ' jumlah baris pada
dTabel
Dim nCol As
Integer ' Jumlah kolom pada
dTabel
Dim vHa As
Double ' akumulasi
Ha
Dim vKui As
Double ' akumulasi kuintal
tebu
Dim vKristal As Double ' akumulasi kristal
Dim
i As
Long ' counter /pencacah
loop
Dim n As
Long ' index baris pada
penulisan report
'--mendefinisikan letak & dimensi tabel & report
Set dTabel = Sheets("Data" ).UsedRange. Offset(4, 0)
nRow =
dTabel.Rows. Count - 4
nCol =
dTabel.Columns. Count
Set dTabel = dTabel.Resize( nRow,
nCol)
Set Report = Sheets("Report" ).Range(" A6")
'--menghapus area
report
ClearReportArea
'--loop proses menyaring data & menuliskan bila
ada
For i = 1 To nRow
If CStr(dTabel( i, 7).Value) = Kriteria
Then
n = n + 1
'--penulisan
dengan cara mengkopi baris per
baris
dTabel(i,
1).Resize(1, nCol).Copy
Report(n, 1).PasteSpecial
xlPasteValuesAndNum berFormats
'--mengakumulasi data-data yg akan di
total
vHa = vHa +
dTabel(i, 11)
vKui = vKui +
dTabel(i, 12)
vKristal =
vKristal + dTabel(i, 18)
'--melepaskan clipboard
ex copy range
Application. CutCopyMode = False
End
If
Next i
'--membuat baris penjumlahan
n = n + 2
Report(n, 8) = "PENJUMLAHAN :"
Report(n, 11) =
vHa
Report(n, 12) = vKui
Report(n, 18) =
vKristal
If vKui > 0 Then Report(n, 17) = vKristal / vKui * 100
'--memarkir cellPointer ketempat yg nyaman &
tidak mengganggu
Report.Parent. Activate
Report(1, 1).Select
End Sub
________________________________
----- Original
> Message -----
>From: Rahagung
> Dananjoyo
>To: belajar-excel@ yahoogroups. com
>Sent: > Thursday, January 21, 2010 7:15 PM
>Subject: Re:
> [belajar-excel] Pengelompokkan data
>Hasil
> dari macro nya sudah saya aplikasikan, dan sudah berjalan dengan baik,
> terima
> kasih bantuannya.
>
>Saya
> masih ada beberapa pertanyaan :
>
>1.
> Kalau di sheet report untuk PENJUMLAHAN RDM, saya ingin formulanya diganti
> apakah bisa?
>(jadi
> di hasil penjumlahan RDM adalah rumusnya
>hasil penjumlahan kristal dibagi dengan
> hasil penjumlahan tebu di kali 100,
>formula ini hanya untuk hasil penjumlahan RDM)
>
>2.
> Seandainya mau menambah daftar nomer petak di sheet "SUB DATA",
>bagaimana
> caranya agar muncul di drop down list?
>
>3.
> Data di sheet "contoh" atau data awal, jika saya tambah terus sampai lebih
> dari 50000 baris apakah tidak akan menyebabkan file jadi hang?
>Atau ada
> saran lain untuk mencegah supaya file tidak hang?
>
>Terima kasih banyak
> atas bantuan dan informasi nya
>
>
>
________________________________
From: siti Vi
> <setiyowati.devi@ gmail.com>
>To: > belajar-excel@ yahoogroups. com
>Sent: Thu, January 21, 2010 3:37:24
> PM
>Subject: Re:
> [belajar-excel] Pengelompokkan data
>
>
>Sambil melihat contoh
> bgmana 'bentuk makro'nya jika Report Pengelompokan data
>(dengan satu kriteria)
> dikerjakan dengan
> vba;
>mohon dicoba yg ini
> apakah sesuai ...
>
