İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bütün açıq iş kitablarını siyahısı və Excel-də iş kitabları arasında asanlıqla keçmək necədir?

Microsoft Excel eyni zamanda bir çox iş kitabını açmağa imkan verir, ancaq bütün açıq iş kitabları arasında keçmək asan deyil. Beləliklə, Excel-də həmin iş kitabları arasında asanlıqla dəyişmək üçün bütün açıq iş kitablarını bir siyahıda göstərmək isteyebilirsiniz. Bu yazıda Excel-də asanlıqla naviqasiya üçün bütün açıq iş kitablarının siyahısını necə göstərəcəyik.

Yalnız VBA ilə bütün açıq iş kitablarını qeyd edin

Bütün açıq iş kitablarını qeyd edin və VBA ilə iş kitabçasına asanlıqla keçin

Bütün açıq iş kitablarını qeyd edin və Excel üçün Kutools ilə iş kitabına keçin



arrow mavi sağ bubble Yalnız VBA ilə bütün açıq iş kitablarını qeyd edin

Bu bölmədə Excel-də bütün açıq iş kitablarının siyahısı üçün VBA kodunun necə istifadə edəcəyini öyrənəcəksiniz.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules.

2. Aşağıdakı kodu redaktoruna aşağıdakı VBA kodunu kopyalayıb yapışdırın.

VBA: Excel-də bütün açıq iş kitabının adlarını qeyd edin

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 basaraq işləyin F5 açar. İçində KutoolsforExcel informasiya qutusunda, iş kitabını yerləşdirmək üçün bir hüceyrə seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra müvafiq iş yerləri olan bütün açıq iş dəftərləri qeyd olunur.

VBA kodunu idarə etmək çətindir? Siz bunu vasitəsilə acheive bilər üçüncü üsul kliklə.

arrow mavi sağ bubble Bütün açıq iş kitablarını qeyd edin və VBA ilə iş kitabçasına asanlıqla keçin

Çalışma kitabları arasında asanlıqla keçmək üçün bütün iş kitablarını qeyd etmək istəyirsinizsə, VBA-ni aşağıdakı kimi istifadə edin:

1. Basın Dayandırmaq + F11 açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules.

2. Aşağıdakı VBA kodunu açıq modul pəncərəsinə köçürün və yapışdırın.

VBA kodu: bütün açıq iş kitablarını qeyd edin və iş kitabçasına keç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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Sonra a KutoolsforExcel informasiya qutusu bütün açıq iş kitablarının siyahısı ilə açılır. Belli bir iş kitabına keçmək istəyirsinizsə, bu iş kitabının adını qutusuna daxil edin və basın OK düyməsini basın. Ekran görüntüsünə baxın:


arrow mavi sağ bubble Bütün açıq iş kitablarını qeyd edin və Excel üçün Kutools ilə iş kitabına keçin

İlə Naviqasiya bölməsi of Excel üçün Kutoolsbütün açıq iş kitabları asanlıqla bütün açıq iş kitabları arasında gezinmek üçün bir bölmede avtomatik olaraq listelenir. Yalnız açıq iş kitablarından birinə basmalıyıq və dərhal bu iş kitabçasına girməyəcəksiniz.

Bu yardım faydalı olarsa, edə bilərsiniz İndi download və pulsuz sınaq cəhd edin!


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
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.