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

Tüm açık çalışma kitaplarını listelemek ve Excel'de çalışma kitapları arasında kolayca geçiş yapmak?

Microsoft Excel, aynı anda birden çok çalışma kitabı açmanıza izin verir, ancak tüm açık çalışma kitapları arasında geçiş yapmak sizin için kolay değildir. Bu nedenle, Excel'de bu çalışma kitapları arasında kolayca geçiş yapmak için tüm açık çalışma kitaplarını bir listede listelemek isteyebilirsiniz. Bu makalede, Excel'de kolayca gezinmek için tüm açık çalışma kitaplarını nasıl listeleyeceğinizi göstereceğiz.

VBA ile tüm açık çalışma kitaplarını listeleyin
Tüm açık çalışma kitaplarını listeleyin ve VBA ile kolayca bir çalışma kitabına geçin
Tüm açık çalışma kitaplarını listeleyin ve harika bir araçla kolayca bir çalışma kitabına geçin


VBA ile tüm açık çalışma kitaplarını listeleyin

Bu bölümde, Excel'deki tüm açık çalışma kitaplarını listelemek için bir VBA kodunu nasıl kullanacağınızı öğreneceksiniz.

1. Basın Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi. İçinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül.

2. Ardından aşağıdaki VBA kodunu kopyalayıp kod düzenleyiciye yapıştırın.

VBA: Excel'deki tüm açık çalışma kitabı adlarını listeleyin

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. VBA kodunu şu tuşa basarak çalıştırın: F5 anahtar. İçinde KutoolsforExcel iletişim kutusunda çalışma kitabı listesini yerleştirmek için bir hücre belirtin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, ilgili çalışma sayfalarına sahip tüm açık çalışma kitapları listelenir.

VBA kodunu kullanmak zor mu? Ona ulaşabilirsin üçüncü yöntem tıklamalarla.


Tüm açık çalışma kitaplarını listeleyin ve VBA ile kolayca bir çalışma kitabına geçin

Çalışma kitapları arasında kolayca geçiş yapmak için tüm çalışma kitaplarını listelemek istiyorsanız, lütfen VBA'yı aşağıdaki gibi kullanmayı deneyin:

1. Tuşuna basın. Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic penceresi. İçinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül.

2. Aşağıdaki VBA kodunu kopyalayıp açık modül penceresine yapıştırın.

VBA kodu: tüm açık çalışma kitaplarını listeleyin ve bir çalışma kitabına geçin

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra bir KutoolsforExcel iletişim kutusu, tüm açık çalışma kitaplarının bir listesiyle açılır. Belirli bir çalışma kitabına geçmek istiyorsanız, lütfen bu çalışma kitabı adını kutuya girin ve OK buton. Ekran görüntüsüne bakın:


Tüm açık çalışma kitaplarını listeleyin ve harika bir araçla kolayca bir çalışma kitabına geçin

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

İle Gezinme bölmesi of Kutools for Excel, tüm açık çalışma kitapları arasında kolayca gezinmeniz için tüm açık çalışma kitapları otomatik olarak bir bölmede listelenir. Açık çalışma kitaplarından birine tıklamanız yeterlidir ve hemen o çalışma kitabına gidecektir.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


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 (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
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