Ինչպե՞ս արագ ցատկել հարակից բջիջը ՝ հիմնվելով Excel- ի բացվող ցուցակում ընտրության վրա:
Երբևէ պատկերացե՞լ եք, որ գնաք հարակից բջիջ ՝ հիմնված Excel- ի բացվող ցուցակում ընտրության վրա: Օրինակ, այստեղ ես ունեմ բացվող ցուցակ C1 բջիջում, որը ներառում է աշխատանքային օրվա անունները, A սյունակը ամսաթվերի ցուցակն է, իսկ B սյունակը ՝ ժամանակների ցուցակը: Այժմ, երբ ես ընտրում եմ շաբաթվա անունը, կազմելով բացվող ցուցակը, օրինակ ՝ հինգշաբթի, կուրսորը նետվում է դեպի B5, որը հարևան Հինգշաբթիին Ա սյունակում: Excel- ում այս խնդիրը լուծելու համար ներկառուցված հատկություն չկա, բայց հզոր VBA կոդը կարող է:
Անցեք հարակից բջիջ ՝ հիմնվելով VBA- ի ցուցակի անկման արժեքի վրա
Անցեք հարակից բջիջ ՝ հիմնվելով VBA- ի ցուցակի անկման արժեքի վրա
1. Բացվող ցուցակից ընտրեք մի օր, որը ցանկանում եք օգտագործել, ապա սեղմել Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, ներքևում տեղադրեք կոդը ՝ Մոդուլներ.
VBA. Անցնել հարևան բջիջը ՝ ելնելով արժեքից
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. Մամուլ F5 ստեղնը, այնուհետև կուրսորը նետվում է հարակից բջիջ ՝ հիմնվելով բացվող ցուցակի արժեքի վրա:
VBA կոդում A2: A8- ը այն ցուցակն է, որը պարունակում է բացվող ցուցակում նշված արժեքներին համապատասխանող արժեքներ, այս հղումը կարող եք փոխել ըստ անհրաժեշտության:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: