İ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

Excel-də boş satır olmadan iş səhifəsini necə çap etmək olar?

İş səhifəsini çap edərkən boş satırlar da çap olunacaq. Bəzi Excel istifadəçiləri üçün məlumatları kompaktlaşdırmaq və sənədləri saxlamaq üçün iş yerini boş sətirlər olmadan çap etməyə meyllidirlər. Amma Excel-də boş satırlar olmadan iş səhifəsini necə çap etmək olar? Bu yazı sizin üçün iki üsul təqdim edir.

VBA koduyla çapdan əvvəl boş satırları gizləyin

Excel üçün Kutools ilə çapdan əvvəl boş sətirləri silmək


arrow mavi sağ bubble VBA koduyla çapdan əvvəl boş satırları gizləyin


İş səhifəsini çap etmədən əvvəl, müəyyən bir aralıkta boş satırlar gizləmək üçün aşağıdakı VBA kodunu çalıştıra bilərsiniz. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqram üçün Microsoft Visual Basic pəncərə.

2. İçində Proqram üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Və sonra VBA kodu aşağıda Modul penceresine kopyalayın və yapışdırın.

VBA kodu: Seçilmiş aralıkta boş satırları gizlədin

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. Basın F5 kodu açmaq üçün açar, sonra a Excel üçün Kutools informasiya qutusu açılırsa, çap etmək istəməyən boş satırlar ilə aralığı seçin və sonra basın OK düyməsini basın.

Sonra seçilmiş sıra bütün boş satırlar dərhal gizlidir. Sonra iş yerini boş satır olmadan yazmağa başlaya bilərsiniz.

QeydYazdırdıqdan sonra, aşağıdakı VBA kodu ilə bu boş satırları göstərə bilərsiniz.

VBA kodu: Seçilmiş aralıdakı bütün boş satırları göstərin

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

arrow mavi sağ bubble Excel üçün Kutools ilə çapdan əvvəl boş sətirləri silmək

İş səhifəsini boş satır olmadan çap etmək istəyirsinizsə, bütün boş satırları silmək məsləhətdir Boş Satırları Sil faydası Excel üçün Kutoolssonra iş səhifəsini əl ilə çap edə bilərsiniz.

Excel üçün Kutools : 300 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur.

1. klik Kutools > Sil > Boş Satırları Sil > Seçilən aralıda/Aktif hesabatda/Seçilən cədvəllərdə/Bütün Sehrlərdə ehtiyaclarınıza əsaslanaraq. Ekran görüntüsünə baxın:

Qeyd: Bir aralığa boşluq satırlarını silmək üçün, əvvəlcə bu aralığı seçin və sonra funksiyanı tətbiq edin.

2. Sonra bir neçə qutu silinmiş olduğunu bildirmək üçün bir informasiya qutusu açılır OK düyməsini basın.

İndi bütün boş satırlar silinir. İş səhifənizi çap etməyə başlaya bilərsiniz.

Qeyd: Bu yardım proqramını Geri Al Ctrl + Z.

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət 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.