Jumat, 12 Oktober 2012

[belajar-excel] Digest Number 1837

15 New Messages

Digest #1837
1a
Re: edit data..tidak mau berubah...? by "didon13@ymail.com" didon13@ymail.com
1b
Re: edit data..tidak mau berubah...? by "Kid Mr." nmkid.family@ymail.com
2d
Re: Penjumlahan kolom berdasarkan tanggal by "Kid Mr." nmkid.family@ymail.com
3a
Re: Formula Transpose by "Muhamad Abdillah XA" muhamad_abdillah
4a
Re: MENGUNCI EXCEL by "Toni Kus indratno" tonny.kuzh@ymail.com
5a
MEMPERKECIL VIDEO by "Toni Kus indratno" tonny.kuzh@ymail.com
5b
Re: MEMPERKECIL VIDEO by "Kid Mr." nmkid.family@ymail.com
6a
scart chart problem by "ngademin Thohari" ngademinth
6b
Re: scart chart problem by "Kid Mr." nmkid.family@ymail.com
6c
Bls: [belajar-excel] scart chart problem by "ngademin Thohari" ngademinth
7a
Re: Tanya uraian Rumus Recno by "Kid Mr." nmkid.family@ymail.com

Messages

Fri Oct 12, 2012 2:32 am (PDT) . Posted by:

"didon13@ymail.com" didon13@ymail.com

Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju mau berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..

Yang saya maksud setelah Ada pengeditan
Datasiswa berubah
Di sheet kelas jg berubah
Sesuai pengeditan

Trimakasih
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 12 Oct 2012 15:51:46
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

Bukankah sudah disarankan :
1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)
diberi perintah untuk refreshtable berdasar isi combobox
RefreshTabels ComboBox.Text 'pastikan combobox sudah ada
itemnya, bila perlu lakukan cek lebih dulu


Wassalam,
Kid.

2012/10/12 <didon13@ymail.com>

> **
>
>
> ** Untuk tombol edit masih eror..
> Subscript out of range
>
> Set IndTBL=sheets(sShtName).range("A4").currentregion
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 12 Oct 2012 00:55:48 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] edit data..tidak mau berubah...?
>
>
>
> Deklarasi prosedur refreshtable diubah menjadi :
>
> Private Sub RefreshTabels(Optional sShtName As String = "datasiswa")
>
> Baris dalam prosedur refreshtable yang berbunyi :
> Set IndTBL = Sheets("datasiswa").Range("A4").CurrentRegion
> diubah menjadi :
> Set IndTBL = Sheets(sShtName).Range("A4").CurrentRegion
>
> Tambahkan pada event click tombol Edit :
> 1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)
> diberi perintah untuk refreshtable berdasar isi combobox
> RefreshTabels ComboBox.Text 'pastikan combobox sudah ada
> itemnya, bila perlu lakukan cek lebih dulu
>
> 2. persis sebelum end sub diberi perintah untuk refresh table ke sheet
> datasiswa lagi
> RefreshTabels
>
> Wassalam,
> Kid.
>
> 2012/10/11 achmad adi <didon13@ymail.com>
>
>> **
>>
>>
>> dear master,
>>
>> mohon bantuanya masalah yang saya hadapi,,,
>> setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
>> saya sertakan file lebih jelasnya,,,
>> terimakasih....
>>
>>
>>
>
>

Fri Oct 12, 2012 2:39 am (PDT) . Posted by:

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

Oh gitu...

kalau gitu baris :
RefreshTabels ComboBox.Text
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets("input").combobox.listindex=-1 then
exit sub
endif
set rng=sheets( sheets("input").combobox.text ) _
.range("b5").currentregion.resize(,1).find(
sheets("input").range("b16").value )
if rng is nothing then
exit sub
endif
sheets("input").range("b16:h16").copy
rng.pastespecial xlpastevalues

moga-moga gak error

Wassalam,
Kid.

2012/10/12 <didon13@ymail.com>

> **
>
>
> ** Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju
> mau berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..
>
> Yang saya maksud setelah Ada pengeditan
> Datasiswa berubah
> Di sheet kelas jg berubah
> Sesuai pengeditan
>
> Trimakasih
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Fri, 12 Oct 2012 15:51:46 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] edit data..tidak mau berubah...?
>
>
>
> Bukankah sudah disarankan :
> 1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)
> diberi perintah untuk refreshtable berdasar isi combobox
> RefreshTabels ComboBox.Text 'pastikan combobox sudah ada
> itemnya, bila perlu lakukan cek lebih dulu
>
>
> Wassalam,
> Kid.
>
> 2012/10/12 <didon13@ymail.com>
>
>> **
>>
>>
>> ** Untuk tombol edit masih eror..
>> Subscript out of range
>>
>> Set IndTBL=sheets(sShtName).range("A4").currentregion
>> Powered by Telkomsel BlackBerry®
>> ------------------------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Fri, 12 Oct 2012 00:55:48 +0700
>> *To: *<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] edit data..tidak mau berubah...?
>>
>>
>>
>> Deklarasi prosedur refreshtable diubah menjadi :
>>
>> Private Sub RefreshTabels(Optional sShtName As String = "datasiswa")
>>
>> Baris dalam prosedur refreshtable yang berbunyi :
>> Set IndTBL = Sheets("datasiswa").Range("A4").CurrentRegion
>> diubah menjadi :
>> Set IndTBL = Sheets(sShtName).Range("A4").CurrentRegion
>>
>> Tambahkan pada event click tombol Edit :
>> 1. persis setelah deklarasi prosedur (alias baris pertama dalam
>> prosedur) diberi perintah untuk refreshtable berdasar isi combobox
>> RefreshTabels ComboBox.Text 'pastikan combobox sudah ada
>> itemnya, bila perlu lakukan cek lebih dulu
>>
>> 2. persis sebelum end sub diberi perintah untuk refresh table ke sheet
>> datasiswa lagi
>> RefreshTabels
>>
>> Wassalam,
>> Kid.
>>
>> 2012/10/11 achmad adi <didon13@ymail.com>
>>
>>> **
>>>
>>>
>>> dear master,
>>>
>>> mohon bantuanya masalah yang saya hadapi,,,
>>> setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
>>> saya sertakan file lebih jelasnya,,,
>>> terimakasih....
>>>
>>>
>>>
>>
>
>

Fri Oct 12, 2012 2:32 am (PDT) . Posted by:

"Arieyanto"

Assalamu'alaikum Mr. Kid and Para masters,

Minta bantuannya pada kasus saya ini untuk lebih jelasnya bisa langsung saja ya pada lampiran.

Thanks
Wassalam
Arie

Fri Oct 12, 2012 2:42 am (PDT) . Posted by:

"aji mumpung"

Wa'alaikumsalam,

pak Arie, untuk kasus seperti ini bisa diselesaikan dengan:

1. SumProduct
2. SumIf
3. Array formula Sum ( If ( ) ) >>> harus menekan tombol CTRL + Shift +
Enter

silakan dilihat file terlampir

wassalam,

-aji mumpung-

Pada 12 Oktober 2012 16:23, Arieyanto <Arieyanto@osielectronics.com>menulis:

> **
>
>
> Assalamu'alaikum Mr. Kid and **Para** masters,****
>
> ** **
>
> Minta bantuannya pada kasus saya ini untuk lebih jelasnya bisa langsung
> saja ya pada lampiran.****
>
> ** **
>
> ** **
>
> Thanks****
>
> Wassalam****
>
> Arie****
>
>
>

Fri Oct 12, 2012 3:11 am (PDT) . Posted by:

"Arieyanto"

Pak Aji Mumpung,
Maaf sebelumnya mgkn informasi saya kurang jelas.
Seharusnya untuk tgl 13-oct-12 dan tgl berikutnya belum termasuk penjumlahan dalam backlog sedangkan di file saya sudah langsung terjumlahkan..
Jadi yg termasuk backlog adalah dari tanggal 12-oct-12 dan sebelum tanggal tsb..

Tapi yg dikirimkan barusan jg bermanfaat. :)

Wassalam
Arie

--- Mods ---
Coba sertakan file dengan hasil pengerjaan manualnya.
------------

________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of aji mumpung
Sent: Friday, October 12, 2012 4:42 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Penjumlahan kolom berdasarkan tanggal

Wa'alaikumsalam,

pak Arie, untuk kasus seperti ini bisa diselesaikan dengan:

1. SumProduct
2. SumIf
3. Array formula Sum ( If ( ) ) >>> harus menekan tombol CTRL + Shift + Enter

silakan dilihat file terlampir

wassalam,

-aji mumpung-
Pada 12 Oktober 2012 16:23, Arieyanto <Arieyanto@osielectronics.com<mailto:Arieyanto@osielectronics.com>> menulis:

Assalamu'alaikum Mr. Kid and Para masters,

Minta bantuannya pada kasus saya ini untuk lebih jelasnya bisa langsung saja ya pada lampiran.

Thanks
Wassalam
Arie

Fri Oct 12, 2012 3:29 am (PDT) . Posted by:

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

Coba formula :
=SUMPRODUCT(($C$2:$Q$2<=TODAY())*($C$2:$Q$2>0)*($D4:$R4-$C4:$Q4))

Wassalam,
Kid.

2012/10/12 Arieyanto <Arieyanto@osielectronics.com>

> **
>
>
> Pak Aji Mumpung,
> Maaf sebelumnya mgkn informasi saya kurang jelas.
> Seharusnya untuk tgl 13-oct-12 dan tgl berikutnya belum termasuk
> penjumlahan dalam backlog sedangkan di file saya sudah langsung
> terjumlahkan..
> Jadi yg termasuk backlog adalah dari tanggal 12-oct-12 dan sebelum tanggal
> tsb..
>
> Tapi yg dikirimkan barusan jg bermanfaat. :)
>
> Wassalam
> Arie
>
> --- Mods ---
> Coba sertakan file dengan hasil pengerjaan manualnya.
> ------------
>
> ________________________________
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of aji mumpung
> Sent: Friday, October 12, 2012 4:42 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] Penjumlahan kolom berdasarkan tanggal
>
>
> Wa'alaikumsalam,
>
> pak Arie, untuk kasus seperti ini bisa diselesaikan dengan:
>
> 1. SumProduct
> 2. SumIf
> 3. Array formula Sum ( If ( ) ) >>> harus menekan tombol CTRL + Shift +
> Enter
>
> silakan dilihat file terlampir
>
> wassalam,
>
> -aji mumpung-
> Pada 12 Oktober 2012 16:23, Arieyanto <Arieyanto@osielectronics.com
> <mailto:Arieyanto@osielectronics.com>> menulis:
>
>
> Assalamu'alaikum Mr. Kid and Para masters,
>
> Minta bantuannya pada kasus saya ini untuk lebih jelasnya bisa langsung
> saja ya pada lampiran.
>
> Thanks
> Wassalam
> Arie
>
>
>

Fri Oct 12, 2012 4:43 am (PDT) . Posted by:

"Arieyanto"

Pak Kid.
Terima kasih atas jawabannya, pertanyaannya telah terjawab dg tepat sekali..

Pak Aji Mumpung,
Terima kasih juga atas solusinya yg lain :)

Wassalam
Arie
________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Kid Mr.
Sent: Friday, October 12, 2012 5:29 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Penjumlahan kolom berdasarkan tanggal

Coba formula :
=SUMPRODUCT(($C$2:$Q$2<=TODAY())*($C$2:$Q$2>0)*($D4:$R4-$C4:$Q4))

Wassalam,
Kid.
2012/10/12 Arieyanto <Arieyanto@osielectronics.com<mailto:Arieyanto@osielectronics.com>>

Pak Aji Mumpung,
Maaf sebelumnya mgkn informasi saya kurang jelas.
Seharusnya untuk tgl 13-oct-12 dan tgl berikutnya belum termasuk penjumlahan dalam backlog sedangkan di file saya sudah langsung terjumlahkan..
Jadi yg termasuk backlog adalah dari tanggal 12-oct-12 dan sebelum tanggal tsb..

Tapi yg dikirimkan barusan jg bermanfaat. :)

Wassalam
Arie

--- Mods ---
Coba sertakan file dengan hasil pengerjaan manualnya.
------------

________________________________
From: belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com>] On Behalf Of aji mumpung
Sent: Friday, October 12, 2012 4:42 PM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com>
Subject: Re: [belajar-excel] Penjumlahan kolom berdasarkan tanggal

Wa'alaikumsalam,

pak Arie, untuk kasus seperti ini bisa diselesaikan dengan:

1. SumProduct
2. SumIf
3. Array formula Sum ( If ( ) ) >>> harus menekan tombol CTRL + Shift + Enter

silakan dilihat file terlampir

wassalam,

-aji mumpung-
Pada 12 Oktober 2012 16:23, Arieyanto <Arieyanto@osielectronics.com<mailto:Arieyanto%40osielectronics.com><mailto:Arieyanto@osielectronics.com<mailto:Arieyanto%40osielectronics.com>>> menulis:

Assalamu'alaikum Mr. Kid and Para masters,

Minta bantuannya pada kasus saya ini untuk lebih jelasnya bisa langsung saja ya pada lampiran.

Thanks
Wassalam
Arie

Fri Oct 12, 2012 2:45 am (PDT) . Posted by:

"Muhamad Abdillah XA" muhamad_abdillah

Alhamdulillah... Terimakasih banyak Mr Kid & Mr. Aji atas bantuan dan penjelasannya yang menambah wawasan sy soal Excel

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Kid Mr.
Sent: Friday, October 12, 2012 2:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Formula Transpose

Selamat siang Pak Muhamad,

Coba file terlampir.
Syarat untuk menyusun list item berkriteria adalah terurutnya data berdasar seluruh kriteria yang akan digunakan.
Conditional Formatting bisa dimanfaatkan untuk menyamarkan penampakan nilai-nilai yang tak dibutuhkan jika memiliki kriteria yang berpola secara konsisten.

Untuk penjumlahan berdasar kriteria,
0 kriteria : umumnya dengan Sum dan kadangkala ada yang suka dengan SumProduct
1 kriteria : umumnya dengan SumIF dan cukup banyak yang suka dengan SumProduct atau array formula Sum
lebih dari 1 kriteria : banyak yang menggunakan SumProduct atau array formula Sum. Pada Excel 2007 ke atas sudah ada SumIFs.

Wassalam,
Kid.

2012/10/12 Muhamad Abdillah XA <muhamad.xa.abdillah@ericsson.com<mailto:muhamad.xa.abdillah@ericsson.com>>

Selamat siang teman2 pakar Excel,

Mohon bantuannya dalam formula berikut:

1. Membuat beberapa angka dalam row yang berbeda menjadi sekumpulan angka yang berurutan dipisahkan dengan tanda "/" atau di excel disebut Transpose

2. Menjumlah beberapa angka berurutan yang dipisahkan dengan tanda "/"

Trimakasih banyak sebelumnya atas bantuan teman2

BR//billy

Fri Oct 12, 2012 2:59 am (PDT) . Posted by:

"Toni Kus indratno" tonny.kuzh@ymail.com

OK Sekarang masalah saya dengan Mengunci Excell sudah tuntas,,dan alhamdulillah sudah berhasil...
terimakasih semua kawan-kawan . . . .

 
tonikus.staff.uad.ac.id

Fri Oct 12, 2012 2:59 am (PDT) . Posted by:

"Toni Kus indratno" tonny.kuzh@ymail.com

Ms. Excell kan ada fasilitas meng-import video,,tapi ketika file tersebut dibuka ke komputer lain kok videonya tidak mau muncul,?
padahal file videonya sudah kami sertakan...
Mohon penjelasan dari para Pendekar-pendekar Excell

 
tonikus.staff.uad.ac.id

Fri Oct 12, 2012 3:14 am (PDT) . Posted by:

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

Mungkin penjelasan lebih detil tentang cara meng-import video yang telah
dilakukan dan hasilnya berupa contoh file (max 250 KB)

Wassalam,
Kid.

2012/10/12 Toni Kus indratno <tonny.kuzh@ymail.com>

> **
>
>
> Ms. Excell kan ada fasilitas meng-import video,,tapi ketika file tersebut
> dibuka ke komputer lain kok videonya tidak mau muncul,?
> padahal file videonya sudah kami sertakan...
> Mohon penjelasan dari para Pendekar-pendekar Excell
>
> tonikus.staff.uad.ac.id
>
>
>

Fri Oct 12, 2012 3:31 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

Be-exceller,

minta advise nya, contoh ini saya ambil dari milister tapi saya terapkan ke data sampai 140, kok ngga tampil ya datanya

terima kasih

Amin

Fri Oct 12, 2012 4:24 am (PDT) . Posted by:

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

Setiap record membentuk dataseries baru ya...
xl2007 : klik kanan chart -> pilih select data -> tekan Add -> masukkan 1
cell nilai Y pada Y Values -> masukkan 1 cell nilai X pada X values ->
masukkan cell commant ke series name -> OK
ulangi sampai seluruh record masuk membentuk series data (maksimal, sebuah
chart berisi 255 series dan sudah terpakai 140)
(waaaa..... capek juga kalau ternyata dinamis)

Jika dengan buat chart baru dan blok seluruh kolom x dan y kemudian insert
chart tipe xyscatter jadinya hanya 1 series. Jadi tiap point gak bisa punya
simbol sendiri-sendiri kalau gak di-edit satu per satu. Begitu juga data
labelnya. Capek juga ya.

Kalau gitu pakai opsi pertama saja, walau dibatasi 255 series.
Supaya agak otomatis :
data di b3 (headernya) dan record mulai b4, ada 2 kolom, yaitu xvalues
(kolom B), yvalues (kolom C), seriesname (kolom D)
berikut langkahnya : (mungkin bisa juga untuk xl2003)
1. save as file excel (bukan save, tapi save as) -> pilih save as type yang
ekstensinya .xlsm atau .xlsb atau coba .xls -> tekan save
2. ke VBE (tekan ALT F11)
3. menu Insert -> pilih Module
4. copy script prosedur berikut :
Public Sub BuatChart()
Dim cht As Chart
Dim lSeries As Long
Dim sSeriesRef As String
Dim rngX As Range, rng As Range

With Sheet1
Set rngX = .Range("b3").CurrentRegion.Offset(1).Resize(, 1)
lSeries = rngX.Count - 1
If lSeries < 1 Then
Exit Sub
ElseIf lSeries > 255 Then
lSeries = 255
End If
Set rngX = rngX.Resize(lSeries)
lSeries = 0
sSeriesRef = "='" & .Name & "'!"
.Shapes.AddChart(xlXYScatter).Select
End With

Set cht = ActiveChart
With cht
For Each rng In rngX
.SeriesCollection.NewSeries
lSeries = lSeries + 1
With .SeriesCollection(lSeries)
.XValues = sSeriesRef & rng.Address
.Values = sSeriesRef & rng.Offset(0, 1).Address
.Name = sSeriesRef & rng.Offset(0, 2).Address
.ApplyDataLabels
.DataLabels.ShowSeriesName = True
.DataLabels.ShowValue = False
End With
Next rng
End With
End Sub

5. Kembali ke worksheet dan save (sekarang save ya. bukan save as)
6. jalankan prosedur 'BuatChart' (tekan ALT F8 lalu pilih nama
prosedur 'BuatChart' dilanjutkan tekan tombol Run)

Prosedur diatas adalah untuk buat chart baru.
Kalau mau edit chart, silakan dikembangkan saja.

Wassalam,
Kid.

2012/10/12 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> Be-exceller,
>
> minta advise nya, contoh ini saya ambil dari milister tapi saya terapkan
> ke data sampai 140, kok ngga tampil ya datanya
>
> terima kasih
>
> Amin
>
>
>

Fri Oct 12, 2012 4:38 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

mr. kids

Makyoos, hasilnya 

terima kasih

Amin

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 12 Oktober 2012 18:23
Judul: Re: [belajar-excel] scart chart problem


 
Setiap record membentuk dataseries baru ya...
xl2007 : klik kanan chart -> pilih select data -> tekan Add -> masukkan 1 cell nilai Y pada Y Values -> masukkan 1 cell nilai X pada X values -> masukkan cell commant ke series name -> OK
ulangi sampai seluruh record masuk membentuk series data (maksimal, sebuah chart berisi 255 series dan sudah terpakai 140)
(waaaa..... capek juga kalau ternyata dinamis)

Jika dengan buat chart baru dan blok seluruh kolom x dan y kemudian insert chart tipe xyscatter jadinya hanya 1 series. Jadi tiap point gak bisa punya simbol sendiri-sendiri kalau gak di-edit satu per satu. Begitu juga data labelnya. Capek juga ya.

Kalau gitu pakai opsi pertama saja, walau dibatasi 255 series.
Supaya agak otomatis :
data di b3 (headernya) dan record mulai b4, ada 2 kolom, yaitu xvalues (kolom B), yvalues (kolom C), seriesname (kolom D)
berikut langkahnya : (mungkin bisa juga untuk xl2003)
1. save as file excel (bukan save, tapi save as) -> pilih save as type yang ekstensinya .xlsm atau .xlsb atau coba .xls -> tekan save
2. ke VBE (tekan ALT Â  F11)
3. menu Insert -> pilih Module
4. copy script prosedur berikut :
Public Sub BuatChart()
 Â Ã‚  Dim cht As Chart
 Â Ã‚  Dim lSeries As Long
 Â Ã‚  Dim sSeriesRef As String
 Â Ã‚  Dim rngX As Range, rng As Range
 Â Ã‚ 
 Â Ã‚  With Sheet1
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set rngX = .Range("b3").CurrentRegion.Offset(1).Resize(, 1)
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  lSeries = rngX.Count - 1
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  If lSeries < 1 Then
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Exit Sub
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  ElseIf lSeries > 255 Then
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  lSeries = 255
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  End If
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set rngX = rngX.Resize(lSeries)
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  lSeries = 0
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  sSeriesRef = "='" & .Name & "'!"
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Shapes.AddChart(xlXYScatter).Select
 Â Ã‚  End With
 Â Ã‚ 
 Â Ã‚  Set cht = ActiveChart
 Â Ã‚  With cht
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  For Each rng In rngX
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .SeriesCollection.NewSeries
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  lSeries = lSeries + 1
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  With .SeriesCollection(lSeries)
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .XValues = sSeriesRef & rng.Address
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Values = sSeriesRef & rng.Offset(0, 1).Address
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Name = sSeriesRef & rng.Offset(0, 2).Address
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .ApplyDataLabels
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .DataLabels.ShowSeriesName = True
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .DataLabels.ShowValue = False
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  End With
 Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Next rng
 Â Ã‚  End With
End Sub

5. Kembali ke worksheet dan save (sekarang save ya. bukan save as)
6. jalankan prosedur 'BuatChart' Â  (tekan ALT Â  F8  lalu pilih nama prosedur 'BuatChart' Â  dilanjutkan tekan tombol Run)

Prosedur diatas adalah untuk buat chart baru.
Kalau mau edit chart, silakan dikembangkan saja.

Wassalam,
Kid.

2012/10/12 ngademin Thohari <ngademinth@yahoo.co.id>

> 
>Be-exceller,
>
>
>minta advise nya, contoh ini saya ambil dari milister tapi saya terapkan ke data sampai 140, kok ngga tampil ya datanya
>
>
>terima kasih
>
>
>Amin

Fri Oct 12, 2012 7:12 am (PDT) . Posted by:

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

Oh masih membingungkan ya...
Mohon maaf yang sebesarnya jika malah membuat bingung.

Semoga file terlampir bisa lebih baik dari file yang lalu. File terlampir
dengan 25 record data (zData) dan hanya akan diambil sebagai output
sebanyak 15 record saja (sheet Display hanya berisi 15 record).

Wassalamualaikum Wr. Wb.
Kid.

2012/10/12 utthank abe <abeutthank@gmail.com>

> **
>
>
> agak bingung zih kok kalo di pilah per item terkecil hasilnya beda.
> tapi zaya coba pahami dulu, karena prinzip kerja recno udah zaya dapat.
> zetidaknya contoh mr. kid biza jadi pedoman.
>
> makazih
> wazzalam
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar