Hot Fox: Re: ]] XL-mania [[ Rumus membuat s-curve

domingo, 18 de outubro de 2009

Re: ]] XL-mania [[ Rumus membuat s-curve

Om om om ane bikinin di VBA make XL03 oom

.....kodingannya kayak gini oom :

' /**************************************/
'   Created By : puthut_vai@yahoo.com
'   on 25 Oktober 2009 || Jakarta
'   Nama Modul : Mod Grafik
' /**************************************/

Option Explicit
    Dim wShitMaster As Worksheet
    Dim wShitSementara As Worksheet
    Dim strMingguAxis1 As String
' ----------- Deklarasi Buat Bikin Grafik -------------
    Dim strYAxis1 As String
    Dim strMingguAxis2 As String
    Dim strYAxis2 As String
    Dim vJumlahBaris As Long
    Dim ChartSementara As Chart


Sub EnakOOm()

    Application.ScreenUpdating = False

    Set wShitMaster = Worksheets("Problem")


' ----------------- PROSES PENG KOPIAN DATANYA AGAK BRUTAL OOM ----------------------------

' Tujuan Disini :
'   Membuat Shit Sementara yang berguna menampung hasil kopi spesial dari 1/2 Work day
'   Dan Sort Descending

    Set wShitSementara = Worksheets.Add

    wShitMaster.Activate
    wShitMaster.Range("Q27:AI27").Select
    Selection.Copy
    wShitSementara.Activate
        With wShitSementara
            .Range("E1").Select
            Selection.PasteSpecial Paste:=xlPasteValues, _
                Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            .Application.CutCopyMode = False

            .Range("E1").Sort Key1:=Range("E1"), Order1:=2, Header:=xlGuess, _
            OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom
        End With


    wShitMaster.Activate
    wShitMaster.Range("Q24:AI24").Select
    Selection.Copy
    wShitSementara.Activate
        With wShitSementara
            .Range("D1").Select
            Selection.PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            .Application.CutCopyMode = False
        End With

' -----------------------------------------------------------------------------------------


' PROSES PEMBUATAN GRAFIK -----------------------------------------------

    vJumlahBaris = wShitSementara.Range("E65536").End(xlUp).Row

    ' SET RANGE GRAFIKNYA ----
    strMingguAxis1 = "G24:AT24"
    strYAxis1 = "F27:AT27"
    strYAxis2 = "E1:E" & vJumlahBaris
    strMingguAxis2 = "D1:D" & vJumlahBaris

    wShitSementara.Activate
    ' TAMBAH CHART DI WORKBOK
    Set ChartSementara = Charts.Add
    With ChartSementara
        .ChartType = xlXYScatterLines ' TIPE CHART
        ' .ChartType = xlXYScatterLinesNoMarkers ' TIPE CHART
       ' set warna GRAFIK BACK GRUND
       .PlotArea.Interior.Color = RGB(255, 255, 255)


        ' */ HABISIN DATA SERIES ----------------
        Do While .SeriesCollection.Count > 0
            .SeriesCollection(1).Delete
        Loop
        ' */ TAMBAH DATA SERIES ----------------
        ' 1. SERIES 1 : JUMLAH KUMULATIF PER MINGGU

        .SeriesCollection.NewSeries
        With .SeriesCollection(1)
           .Border.Color = RGB(255, 0, 0)
           .Name = "Cum/Week"
           .XValues = wShitMaster.Range(strMingguAxis1)
            .Smooth = True
            .Values = wShitMaster.Range(strYAxis1)
        End With

         ' 2. SERIES 2 : JUMLAH 1/2 : DURASI 1/2 X TOT WEEK
        .SeriesCollection.NewSeries
        With .SeriesCollection(2)
            .Border.Color = RGB(78, 255, 0)
            .Name = "1/2xWeek"
            .XValues = wShitSementara.Range(strMingguAxis2)
            .Values = wShitSementara.Range(strYAxis2)
        End With

    End With

End Sub

File Terlampir omm jangan lupa Setingan Srikiti VBA nya oomm...

- ^ Puthut Wibowo ^ - || puthut_vai@yahoo. Com

--- On Fri, 10/16/09, Gito <gito.gisto@gmail.com> wrote:

From: Gito <gito.gisto@gmail.com>
Subject: ]] XL-mania [[ Rumus membuat s-curve
To: XL-mania@yahoogroups.com
Date: Friday, October 16, 2009, 11:19 AM

Rekan-rekan mungkin ada yang mau membantu

Rumusan apa yang digunakan agar nilai AMOUNT PER WEEK pada 1/4 x TOTAL WEEK (warna merah) di awal dan akhir bentuk grafik menjadi landai dan smoot

Begitu juga untuk daerah 1/2 x TOTAL WEEK (warna hijau) garis agak naik dan bentuk garis tetap smoot

Atas bantuannya kami ucapkan terima kasih

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| 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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Nenhum comentário:

Postar um comentário

Hot Fox

domingo, 18 de outubro de 2009

Re: ]] XL-mania [[ Rumus membuat s-curve

Nenhum comentário:

Arquivo do blog