Şimdi Ara

excel makro, grafik- kullanıcı girişi nasıl yapılır?

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
1
Cevap
0
Favori
1.937
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar,
    Excel'de grafik çizerken, hazır şablon kullanıyorum. Bu işlemi makro olarak kaydettim, aşağıda kayedilmiş olan bu makroyu genele yaymak istiyorum.Şöyle ki, o anda çizdiğim grafik örneğin A1 :V300 aralığındaysa, A1 hücresinden verilerin başlangıcı sabit olmak kaydıyle, bitiş için kullanıcıya soran, kullanıcının girdiği son hücre değerine göre aynı işlemi yapan bir makro kaydetmek istiyorum. Bununla beraber, aşağıdaki uygulamada yer alan :"Test No: 1209, Motor Test1 " grafik başlığı kısmınında kullanıcıya "grafik başlığını giriniz" diye soran ve grafik başlığına bu girilen yazıyı yazan bir makro oluşturmak istiyorum.
    Bu konu için yardımcı olabilirseniz, çok memnun olurum. Çünkü çizmem gereken ve de çizilecek o kadar çok grafik var ki!!!


    Range("M4:V300").Select
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="graph1"
    ActiveChart.SetSourceData Source:=Sheets("Mdata").Range("M4:V300"), _
    PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = _
    "Test No: 1209, Motor Test1 "
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (hours)"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature (°C)"
    End With
    End Sub







  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.