makrolu grafik

[wessemeth]

selam arkadaşlar.bir istatistik programı ile ugrasıyorumda.mesela elimdeki verileri butona basarak grafiğe çevirme gibi bir olanağımız varmı??şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Bu linki inceleyiniz. İsteğinizi ne kadar karşılar bilemiyorum ama grafik oluşturma ve denklem çözümü ile ilgili kodlar yeralmaktadır .



.


.http://www.excel.web.tr/f169/excel-kup-denkleminin-cozumu-t60989.html

 

[wessemeth]

sayın ferhat bey ilginize teşekkür ederim fakat benim istedğim şey okadar karmaşık birşey değil ekteki dosyada izah etmeye çalıştım.ben basit birşeydir die düşünüyordum.çünkü makro konusunda okadarda bilgili sayılmam.butona basılğında ekteki grafiği çıkarsın istiyorum.acaba yardımcı olabalirimisniz?:redface:

 

[wessemeth]

yardım lütfen kimse yokmu

 

[Ferhat Pazarçevirdi]

Ekteki örnek dosyayı inceleyiniz.

Aşağıdaki kodlarla, grafik çizimi gerçekleştirilmiştir.

Sub Grafik_Ciz()
    Dim cht As Chart
    Dim wks As Worksheet
    
    Set wks = Sheets("Sayfa1")
    
    wks.ChartObjects.Delete
    
    Set cht = Charts.Add
    Set cht = cht.Location(xlLocationAsObject, wks.Name)
    
    With cht
        With .Parent
            .Top = Range("C16").Top
            .Left = Range("C16").Left
            .Width = Range("C16:K16").Width
            .Height = Range("C16:C32").Height
        End With
        
        .ChartType = xlColumnStacked
        .SetSourceData wks.Range("C3:F9"), xlColumns
        .Legend.Delete
        .Axes(xlValue).MajorGridlines.Delete
        .PlotArea.ClearFormats
        
    End With
    
    Set cht = Nothing
    Set wks = Nothing
End Sub

.

 

[wessemeth]

sayın ferhat bey çok teşekkürler.tam aradaığım gibi birşey.yanlız butona kodu nasıl bağladınız anlamadım pek:redface:

 

[Ferhat Pazarçevirdi]

Ona pek kafanız takılmasın ....

Siz, "Denetim Araç Kutusu"nu kullanarak sayfaya bir "CommandButton" ilave etmişsiniz. Ben onu sildim ve "Formlar" araç çubuğunda bir "Button" ilave ettim.

"Neden ?" veya "Gerek var mıydı" derseniz? Hayır yoktu .. O anki ruh halim Standart bir modül sayfasında yazmaya başladığım için, tembellikle, o prosedürü bir daha sizin CommandButton'dan çağırmaya üşendim ... Kendi eklediğim butona, "Makro Ata" deyip, yazdığım makroyu atadım ... Keyfe keder, birşey işte

Siz CommandButton'dan çağırmak isterseniz, CommandButton'un Click olay kodunu şu şekilde sayfa modülüne yazmalısınız.

Private Sub CommandButton1_Click()
    Call Grafik_Ciz
End Sub

veya direkt Click olayına, size daha önce verdiğim kodları kopyalayabilirsiniz.

.