Note: The other languages of the website are Google-translated. Back to English

Excel'de kaydırırken bir grafiği her zaman görünümde nasıl tutabilirim?

Bir sayfaya eklenmiş bir grafik varsa, verileri görüntülemek için sayfayı aşağı kaydırırken, grafik, aşağıda gösterilen ekran görüntüsü ile aynı anda görüntülenemez, bu da kötü olmalıdır. Bu makalede, sayfayı aşağı veya yukarı kaydırırken bile bir grafiği her zaman görünümde tutmak için bir VBA kodu ekliyorum.

doc grafiği görünüm 1'de tut
doc aşağı ok
doc grafiği görünüm 2'de tut

Bir grafiği her zaman görünümde tutun


ok mavi sağ balon Bir grafiği her zaman görünümde tutun

Sayfayı kaydırırken bir grafiği görünümde tutmak için, çözmek için aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Grafiğin görünür kalmasını istediğiniz sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünü oluşturur. Ekran görüntüsüne bakın:
doc grafiği görünüm 3'de tut

2. patlamada Uygulamalar için Microsoft Visual Basic penceresi, aşağıdaki kodu boş komut dosyasına yapıştırın.

VBA: Grafiği her zaman görünümde tutun

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

doc grafiği görünüm 5'de tut

3. Diyaloğu kaydedip kapatın, ardından herhangi bir hücreye tıkladığınızda grafik aşağı veya yukarı taşınacaktır.
doc grafiği görünüm 6'de tut

Notlar:

(1) VBA kodunda, Grafik 2, görünümde tutmak istediğiniz grafik adıdır, ihtiyacınız olduğu gibi değiştirebilirsiniz.

(2) Bu VBA, bir grup çizelgeyi her zaman görünümde tutamaz.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (13)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu iyiydi ama keşke başlık satırları gibi kaydırma tekerleği ile hareket etmesinin bir yolu olsaydı. Ayrıca bir hücre seçmek istersem iki tıklama alır. İlk tıklama grafiği hareket ettiriyor ama aynı zamanda grafiği de seçiyor, bu yüzden hücreyi seçmek için tekrar tıklamam gerekiyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodun son satırına "activecell.select" ekledim ve çift tıklama sorununu düzeltti. Grafiği taşımak için tıkladığınız son etkin hücreyi otomatik olarak seçecektir. Bu yardımcı olur umarım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İHTİYACIM OLAN BU! ALTIN!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu makro tam olarak istediğimi yaptı. Ancak, bir çözümünüz olup olmadığını merak ettiğim başka bir sorun yarattı.

Bu makro aktifken biçimlendirme veya birleştirme gibi amaçlar için hücreleri seçemiyorum. Bir hücre grubunu seçmek için tıklayın ve sürükleyin, kaydırın veya ctrl çalışın. Sadece tıkladığım hücreyi seçebiliyorum. Sık sık biçimlendirmeyi değiştirmek istiyorum (arka plan, formül doldurma vb.) Bunu yapabilmemin tek yolu makroyu silmek, kaydetmek, biçimlendirme değişikliklerimi yapmak, makroyu tekrar yapıştırıp kaydetmek.

Bunu yapmanın daha basit bir yolu var mı? Belki:

1. (tercih edilen) Makroyu geçici olarak devre dışı bırakan ve ardından yeniden etkinleştiren basit bir tuş vuruşu.

2. Bir hücre grubunun seçilmesine izin vermek için makroya bazı kodlar eklendi.

Dennis
Bu yorum sitedeki moderatör tarafından en aza indirildi
Google E-Tablolar için oluşturulabilecek benzer bir formül var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Grafiğin sayfada ne kadar yükseğe taşınacağını sınırlamanın bir yolu var mı? 8. satırın üstüne yapıştırmasını istemiyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, daha fazla bilgi için lütfen izin verin, en iyi şekilde yararlanın. Daha fazla bilgi için, hiçbir şey yok.
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
çizelgelerim için bu VBA'yı otomatik olarak kullanmak için Kutools'u kullanabilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Üzgünüm Wangnuli, Kutools bunu şu ana kadar desteklemedi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herhangi biri yardımcı olabilir mi? bu adımları takip ettiğimde


Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
'güncellemeExtendoffice20161111
CPos'u Çift Olarak Karart
Application.ScreenUpdating = Yanlış
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Grafik 2"). Etkinleştir
ActiveSheet.Shapes("Grafik 2").Top = CPos
ActiveWindow.Visible = Yanlış
Application.ScreenUpdating = True
End Sub


aşağıdaki hatayı alıyorum

Çalışma Zamanı hatası '-2147024809 (80070057)':
Belirtilen ada sahip öğe bulunamadı

hata ayıkladığımda
ActiveSheet.ChartObjects("Grafik 2"). Etkinleştir
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Christo, "Grafik 2" grafik adını, komut dosyasında grafiğinizin gerçekten adı olarak değiştirmeniz gerekiyor. Grafiğe tıklayabilir ve adını ad kutusunda görebilirsiniz. Ekran görüntüsüne bakın:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Bu yorum sitedeki moderatör tarafından en aza indirildi
Evet teşekkürler. soruyu yaptıktan sonra grafik adımın yanlış olduğunu fark ettim
Teşekkürler

ps.
İzlemesi gereken yere tıklamadan kaydırırken grafiğin nasıl görüntülenmesini sağlayabileceğimi biliyor musunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hücre seçimini kaldırmakla ilgili bir sorunla karşılaştım ve iki grafiğe ihtiyacım vardı. Bu yüzden bazı değişiklikler yaptım ve görünüşe göre şimdi çalışıyor.
Kullanmak için doğru Grafik Adını girin.
*Not: Bu iki çizelge içindir.


Özel Alt worksheet_selectionchange(Aralık Olarak ByVal Hedefe Göre)
Çift olarak harita konumunu karart

chartposition = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("Grafik 2").Top = grafik konumu

ActiveSheet.ChartObjects("Grafik 3").Top = grafik konumu + 250

End Sub
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır