Re: ]] XL-mania [[ membuat 3 grafik dengan ketentuan nilai tertentu

 

Dear 1. Siti.,EPC ( Profesional  Excel Certified ) 2.Profesional  Excelmania horee….saya senang sekali Mbak Bantu neh .. Paling tidak  mengurangi dimarahin sama siboss ( woalaa nyalahin sibos.. Padahal sayanya aja kerja yang lelet..) Mbak siti Pada hasil 1D, Hasil 2D, hasil 3 D sudah saya isi  trus pas saya gerate Lines_Graph  Kok Gak muncul ya.. yang ada justru hanya Titik A, \B, C aja di semua Grafik... trus Titik D nya di mana ya.. ( Tanda panah Biru ) kok gak ada Mohon pencerahanya please dung sekali lagi .. Rgds makdo --- On Tue, 10/5/11, STDEV(i) <setiyowati.devi@gmail.com> wrote: From: STDEV(i) <setiyowati.devi@gmail.com> Subject: Re: ]] XL-mania [[ membuat 3 grafik dengan ketentuan nilai tertentu To: XL-mania@yahoogroups.com Date: Tuesday, 10 May, 2011, 10:26 AM menuruf fendafatkhu, sepertinya tidak ada cara lain kecuali dengan pemrograman VBA (selain cara manual);  maaf kalau ternyata tidak sesuai dengan keinginan... Sub ctv_LineGraph()    ' siti Vi / bluewater, 10 mei 2011    '---------------------------------    ' for milis xl mania    ' case: tech.groups.yahoo.com/group/XL-mania/message/18251    '-----------------------------------------------------------    Dim GArea(1 To 3) As Range, GVect(1 To 2) As Range    Dim g As Byte, v As Integer, r1 As Integer, r2 As Integer    Dim CelA As Range, CelB As Range, CritRng As Range, lin As Shape       Set GArea(1) = Range("c8:c46")    Set GArea(2) = GArea(1).Offset(0, 5)    Set GArea(3) = GArea(2).Offset(0, 5)    Set CritRng = Range("d3:g5")       For Each lin In ActiveSheet.Shapes       If LCase(Left(lin.Name, 4)) = "line" Then lin.Delete    Next lin    For g = 1 To UBound(GArea)       For v = 1 To UBound(GVect)          Set GVect(1) = GArea(g).Offset(0, v - 1)          Set GVect(2) = GVect(1).Offset(0, 1)          r1 = WorksheetFunction.Match(CritRng(g, v), GVect(1), 0)          r2 = WorksheetFunction.Match(CritRng(g, v + 1), GVect(2), 0)          Set CelA = GVect(1)(r1, 1): Set CelB = GVect(2)(r2, 1)          Garis CelA, CelB        Next v    Next g End Sub 2011/5/9 makdo marbun <banten7003@yahoo.com> Dear Pakar Xl Mania dan para suhu sekalian   Bagai Mana caranya jika saya memasukkan  angka pada TEMPAT INPUT DATA  maka hasilnya  berbentuk Garis yang saling berhubungan  pada kolom kolom yang  sudah ada  secara atomatis dasar  Nilai Titik Titik Penghubung adalah sudah baku Tiap grafik (seperti  terlampir ) Contohnya apabila  pada Input dat saya ketik  hasil 3,4,8,6 maka atomatis akan membentuk grafik pada Grafik 1 ( Hasil 1 pada Grafik 1, Hasil 2 pada Grafik 2,Hasil 3 pada Grafik 3 )  sehingga membentuk Garis secara otomatis dari kolom A sd D Tiap Grafik saat ini saya mengerjakan manual  Yaitu dengan membuat line/ garis per grafik  sehingga menghambat kerja saya,  karena setiap melakukan  aktivitas ini  saya membuat report paling tidak 50 laporan per project So please help me..   salam Makdo

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 98

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___