Як перебирати рядки до певного значення, знайденого в Excel?
У деяких випадках вам може знадобитися прокручувати рядки по одному, поки в аркуші не буде знайдено певне значення. Тут я представляю макрокод, який допоможе вам циклічно перетворювати дані до досягнення певного значення.
Цикл до певного значення
1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для програмивікно.
2. клацання Insert > Модулі, вставте нижче код в порожнє Модулі.
VBA: Прокручуйте рядки до певного значення
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. прес F5 клавіші, вискакує діалогове вікно для вибору стовпця для проходження. Дивіться знімок екрана:
4. клацання OKі введіть рядок, який ви хочете знайти, у другому діалоговому вікні, що з’явиться. Дивіться знімок екрана:
5. Клацніть OK. Він прокручуватиме виділення, поки не буде знайдено вказане значення.
примітки: якщо знайденого збігового значення не знайдено, вискакує діалогове вікно, щоб нагадати, що збігове значення не знайдено.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
