Excel'de bulunan belirli bir değere kadar satırlar arasında nasıl geçiş yapılır?
Bazı durumlarda, bir sayfada belirli bir değer bulunana kadar satırlar arasında tek tek döngü yapmak isteyebilirsiniz. Burada, belirli bir değer karşılanana kadar verileri döngüye almanıza yardımcı olacak bir makro kodu sunuyoruz.
Belirli bir değere kadar döngü yapın
Belirli bir değere kadar döngü yapın
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulama için Microsoft Visual Basics penceresi.
2. tık Ekle > modül, aşağıdaki kodu boşluğa yapıştırın modül.
VBA: Belirli bir değere kadar satırlar arasında döngü yapın
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
3. Basın F5 tuşu, döngü için bir sütun seçmek için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OKve ikinci açılan iletişim kutusunda bulmak istediğiniz dizeyi yazın. Ekran görüntüsüne bakın:
5. Tamam'a tıklayın. Belirtilen değer bulunana kadar seçim boyunca döngü yapacaktır.
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!