Ինչպե՞ս անցնել տողերի միջով, մինչև որևէ Excel- ում գտնվի որոշակի արժեք:
Որոշ դեպքերում գուցե ցանկանաք մեկ առ մեկ շարքեր անցկացնել մինչև որևէ թերթիկի մեջ գտնված որոշակի արժեք: Այստեղ ես ներմուծում եմ մակրո կոդ, որը կօգնի ձեզ հավաքել տվյալները մինչև որոշակի արժեքի բավարարումը:
Անցեք մինչև որոշակի արժեքը
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic կիրառման համարs պատուհանը:
2: սեղմեք Տեղադրել > Մոդուլներ, ներքևում տեղադրեք կոդը դատարկին Մոդուլներ.
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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
