İ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ə başqa bir sütunda mobil dəyərə əsaslanan aralığı necə seçə bilərəm?

Bu yazıda, başqa bir sütunda hüceyrə dəyərinə əsaslanan aralıkları necə seçmək barədə danışacağam. Məsələn, hüceyrələr S sütununda FALSE sətrini göstərsələr, S sütununda və B sütundakı nisbi hüceyrələr göstərilən ekran görüntüsünün altından seçiləcəkdir. Bu tapşırığı həll etməyə kömək edə biləcək daxili xüsusiyyət yoxdur, amma bu yazıda VBA kodu ilə işləyə bilərəm.
doc başqa bir sütunla 1 seçin

VBA kodu ilə başqa sütundakı hüceyrə dəyərinə əsaslanan aralığı seçin


arrow mavi sağ bubble VBA kodu ilə başqa sütundakı hüceyrə dəyərinə əsaslanan aralığı seçin


VBA kodu ilə başqa sütundakı hüceyrə dəyərinə əsaslanan aralığı seçin

1. Istifadə etmək istədiyiniz hesabatı aktiv edin və düyməsini basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, sonra kodun altına yapışdırın Modules pəncərə.

VBA: Cell dəyərinə əsaslanan sıra seçin

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

doc başqa bir sütunla 2 seçin

3. Basın F5 VBA-nı işə salmaq üçün düyməni basın və sonra aralıklar C sütununda olan dəyərlərə əsasən seçilmişdir.

Qeyd: VBA skriptində Sheet2 aktiv hesabat adıdır, C seçmək istədiyiniz sütunu göstərir, A 2 in ("A" və xRg.Row) .Resize (, 2) Sütun A'dan iki sütun seçmək üçün lazım gəldikdə istinadları dəyişə bilərsiniz.

Tip.Xüsusi bir dəyərə bərabər olan hüceyrələri tez bir zamanda seçmək istəyirsinizsə, Excel üçün Kutools istifadə etməyə çalışın Xüsusi Hüceyrələri seçin Aşağıdakı ekran görüntüsündə göstərildiyi kimi kommunal. 60 gün ərzində məhdudiyyətsiz tam funksiyadır, yükləyin və indi pulsuz bir sınaq versiyasını edin.

doc xüsusi hüceyrələri seçin


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.