Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

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.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, 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-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 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ı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.