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

 

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 (2)

Recent Activity:

• New Members 88

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

.

__,_._,___