Excel'deki başka bir sütundaki hücre değerine dayalı aralık nasıl seçilir?
Bu yazıda, başka bir sütundaki hücre değerine göre aralıkların nasıl seçileceğinden bahsedeceğim. Örneğin, hücreler C sütununda YANLIŞ görüntülüyorsa, A sütunundaki ve B sütunundaki ilgili hücreler aşağıda gösterilen ekran görüntüsü gibi seçilecektir. Bu görevi çözmenize yardımcı olabilecek yerleşik bir özellik yok, ancak bu makalede bunu bir VBA kodu ile halledebilirim.
VBA koduna göre başka bir sütundaki hücre değerine dayalı aralığı seçin
VBA koduna göre başka bir sütundaki hücre değerine dayalı aralığı seçin
VBA koduna göre başka bir sütundaki hücre değerine dayalı aralığı seçin
1. Kullanmak istediğiniz sayfayı etkinleştirin ve düğmesine basın. Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve sonra aşağıdaki kodu yenisine yapıştırın modül pencere.
VBA: Hücre değerine göre aralığı 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
3. Basın F5 VBA'yı çalıştırmak için anahtar ve ardından aralıklar, C sütunundaki değerlere göre seçilmiştir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!