İ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ə bir hüceyrəni cüt tıklayarkən müəyyən satırlar və sütunları gizlətmək və ya göstərmək üçün necə?

Normalda, satırlar və sütunlar hüququ tıklayarak və kontekst menyusundan Gizlət və ya Gizlət seçimini seçərək gizlənə və ya göstərilə bilər. Bu yazıda, Excel-də bir hüceyrəni cüt tıklayarak müəyyən satırları və sütunları gizlətmək və ya göstərməkdən danışırıq.

VBA kodu olan bir hüceyrəni cüt tıklayarkən müəyyən satır və ya sütunları gizlət və ya göstərin


VBA kodu olan bir hüceyrəni cüt tıklayarkən müəyyən satır və ya sütunları gizlət və ya göstərin


Aşağıdakı VBA kodları müəyyən bir hüceyrəni cüt tıklayarak bir iş yerində göstərilən satırlar və sütunları tez gizlətməyə və ya göstərməyə kömək edə bilər. Xahiş edirik bunu edin.

1. İçəridə satır və ya sütunları gizlətmək istədiyiniz iş kitabçasını açın. Sehife sekmesini sağ tıklatın və sonra basın Kodları baxın kontekst menyusundan.

2. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədən, VBA kodundan aşağıdakı kodu kopyalayın.

VBA: İş yerindəki hüceyrələri cüt tıklayarak müəyyən satırları gizləyin / göstərin:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: İş yerindəki hüceyrələri cüt tıklayarak müəyyən sütunları gizləyin / göstərin:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

Qeyd: Kodda, A1: A4, 10: 13D: E A1: A4, 10 satırı: 13 və ya D: E sütunları hər hansı bir hüceyrədə cüt tıklandığında avtomatik olaraq gizlənəcəkdir.

3. Basın Dayandırmaq + F11 düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

A1, A4, satır 10: 13 və ya D: E sütunları avtomatik olaraq gizlənəcəkdir. Dərhal bütün gizli satırları və ya sütunları göstərmək üçün təkrar hücumu tıklayıb.


Əlaqəli məqalələr:



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.