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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!