İ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 satırında gizli olub olmadığını necə yoxlamaq olar?

Bu yazı satırın müəyyən bir sıra və ya Excel-də bir iş yerində gizli olub olmadığını yoxlamaqdan bəhs edir.

Satırın VBA kodu ilə seçilmiş aralıda gizləndiyini yoxlayın

VBA kodu olan bir işdə satirin gizli olub olmadığını yoxlayın


Satırın VBA kodu ilə seçilmiş aralıda gizləndiyini yoxlayın


Satırların seçilmiş bir aralıda gizli olub olmadığını yoxlamaq və gizli sıra nömrəsini tapmaq üçün aşağıdakıları edin.

1. Gizli satırlar üçün nəzarət edəcək aralığı seçin. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda kod penceresine kopyalayın.

VBA kodu: Seçilmiş aralıda gizli satırları yoxlayın

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Sonra a Microsoft Excel informasiya qutusu göstərilən ekran görüntüsünün altında gizli satırları göstərmək üçün açılır.


VBA kodu olan bir işdə satirin gizli olub olmadığını yoxlayın

Aşağıdakı VBA kodu Excel-də bir iş yerində gizli satırları yoxlamağa kömək edə bilər. Xahiş edirik bunu edin.

1. Gizli satırları yoxlamaq üçün lazım olan iş kitabını açın, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda kod penceresine kopyalayın.

VBA kodu: satırın iş səhifəsində gizləndiyini yoxlayın

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Sonra a Microsoft Excel informasiya qutusu aşağıda göstərilən ekran görüntüsündə olduğu kimi, mövcud işdə gizli satırları göstərmək üçün açılır.

Qeyd: Əgər gizli satırlar seçilmiş aralıkta və ya iş yerində mövcud olsaydı, göstərilən ekran görüntüsünün aşağıda göstərildiyi kimi informasiya qutusunu alacaqsınız.


Related articles:



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.