Ինչպե՞ս կտտացնել այբուբենի տառին ՝ Excel- ում այդ տառով սկսվող բջիջ մտնելու համար:
Օգտագործելով մեծ թվով տվյալներ պարունակող Excel աշխատաթերթ, գիտե՞ք ինչպես կողմնորոշվել կամ գտնել որոշակի բջիջներ, որոնք արագ պարունակում են նշված բովանդակությունը: Այս հոդվածի մեթոդով դուք կարող եք կտտացնել այբուբենի տառի բջիջին ՝ այն բջիջը անցնելու համար, որի բովանդակությունն ինքնաբերաբար սկսվում է այդ այբուբենի տառից:
Կտտացրեք այբուբենի տառին ՝ բջիջ մտնելու համար, որը սկսվում է այդ տառից ՝ VBA կոդով
Կտտացրեք այբուբենի տառին ՝ բջիջ մտնելու համար, որը սկսվում է այդ տառից ՝ VBA կոդով
Խնդրում ենք վարվել հետևյալ կերպ ՝ խուց գնալու համար ՝ կտտացնելով այբուբենի բջիջը Excel- ում:
1. Աշխատանքային թերթում անհրաժեշտ է մտնել բջիջ ՝ կտտացնելով այբուբենի բջիջը, աջ կտտացնելով էջի ներդիրին և այնուհետև կտտացնել Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,
2. Հետո ա Microsoft Visual Basic հավելվածների համար պատուհանը հայտնվում է, խնդրում ենք պատճենել և տեղադրեք ներքևում գտնվող VBA կոդի ծածկագիր կոդի պատուհանում:
VBA կոդ. Կտտացրեք այբուբենի տառին ՝ այդ տառով սկսվող բջիջ մտնելու համար
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
ՆշումԿոդում 1: 1 նշանակում է, որ այբուբենի տառերը տեղադրվում են աշխատանքային թերթի առաջին շարքում:
3. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, այբուբենի բջիջը կտտացնելիս, բոլոր տառերը, որոնք սկսվում են այդ տառով, միանգամից ընտրվում են աշխատանքային թերթում ավտոմատ կերպով:
Եթե ընտրված տառով ոչ մի բջիջ չի սկսվում, դուք կստանաք Kutools for Excel երկխոսության տուփ, ինչպես ցույց է տրված նկարում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: