İ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ə müəyyən bir dəyərə qədər satırlar arasında keçmək üçün necə?

Bəzi hallarda, bir hesabatda müəyyən bir dəyərə qədər satırlardan bir-birinə keçmək isteyebilirsiniz. Burada xüsusi bir dəyər görüşüncəyinə qədər loop məlumatlarına kömək etmək üçün makro kodunu təqdim edirəm.

Xüsusi dəyərə qədər döngə çəkin


arrow mavi sağ bubble Xüsusi dəyərə qədər döngə çəkin


1. Basın Alt + F11 düymələri təmin etmək üçün Proqram üçün Microsoft Visual Basicpəncərəsində.

2. klik Taxmaq > Modules, kodu aşağıdan boş qoyun Modules.

VBA: Xüsusi dəyərə qədər satırlar vasitəsilə döngə çəkin

Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
    Dim fStr As String
    Dim strActAddress As String
    Dim fbool As Boolean
    Dim cnt As Long, cntRow As Long
    Dim xRg As Range, yRg As Range, zRg As Range
    fbool = False
    strActAddress = ""
    cnt = 0
    On Error Resume Next
    Set zRg = ActiveSheet.UsedRange
    cntRow = zRg.Rows.Count
   
    Set xRg = Application.InputBox _
        (Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
    fStr = Application.InputBox _
        (Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
    Application.ScreenUpdating = False
    For Each yRg In xRg
       
        If yRg.Row > cntRow Then
            MsgBox "Value not found ", vbInformation, "Kutools for Excel"
            Application.ScreenUpdating = True
            Exit Sub
        End If
        If yRg.Value2 = fStr Then
            Application.ScreenUpdating = True
            yRg.Activate
            fbool = True
            strActAddress = yRg.Address
            MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
            
            Exit Sub
        Else
            cnt = cnt + 1
        End If
        
    Next yRg
    
    If cnt = xRg.Count Then
        MsgBox "Value not found ", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

xüsusi hüceyrə 1 qədər doc loop

3. Basın F5 açar, bir sütun vasitəsilə loop seçmək üçün bir dialoq çıxır. Ekran görüntüsünə baxın:
xüsusi hüceyrə 2 qədər doc loop

4. klik OK, ikinci tapdığınız dialoqda tapmaq istədiyiniz simli yazın. Ekran görüntüsünə baxın:
xüsusi hüceyrə 3 qədər doc loop

5. Tamam'ı basın. Göstərilən dəyəri tapana qədər seçimdən keçin.
xüsusi hüceyrə 4 qədər doc loop

Qeyd: əgər heç bir uyğun olmayan qiymət tapılmadıqda, eşitməmiş bir dəyər olmadığını xatırlatmaq üçün bir dialoq çıxır.
xüsusi hüceyrə 5 qədər doc loop

diqqət 1Excel üçün Kutools: Excel-də olmalı olan 200 funksiyaları buradan yükləyə bilərsiniz


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.