Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս կուրսորը ավտոմատ կերպով տեղափոխել Excel- ի հատուկ բջիջ:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2020-06-03

Երբեմն կարող է անհրաժեշտ լինել ինչ-որ նպատակով ցատկել հատուկ բջիջ: Այս հոդվածը մանրամասնորեն ցույց կտա ձեզ կուրսորը հատուկ բջիջ տեղափոխելու մեթոդները:

Կուրսորը ավտոմատ կերպով տեղափոխեք Անուն վանդակում նշված հատուկ բջիջ
Կուրսորը ավտոմատ տեղափոխեք VBA կոդով հատուկ բջիջ


Կուրսորը ավտոմատ կերպով տեղափոխեք Անուն վանդակում նշված հատուկ բջիջ

Անուն վանդակը կօգնի ձեզ հեշտությամբ կուրսորը տեղափոխել Excel- ի հատուկ բջիջ:

1. Մեջ Անուն տուփը, մուտքագրեք բջիջի հատուկ հղումը, որին կթռնեք և այնուհետև սեղմեք Մտնել բանալի.

Հետո կուրսորը միանգամից տեղափոխվում է նշված խուց:

ՆշումԵթե ​​Ձեզ անհրաժեշտ է ցատկել նշված խուցը մեկ այլ աշխատանքային թերթում, օրինակ `ցատկել Sheet30- ի C2 բջիջ, մուտքագրեք Թերթ 2.! C30 մուտքագրեք Անուն վանդակում և սեղմեք Enter ստեղնը:


Կուրսորը ավտոմատ տեղափոխեք VBA կոդով հատուկ բջիջ

Հետևյալ VBA կոդը օգնում է ձեզ միանգամից տեղափոխվել հատուկ բջիջ Excel- ում:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Tիր Աշխատանքի գիրքը ձախ պատուհանում T- ն բացելու համարիր աշխատանքային գիրքը (ծածկագիր) պատուհան Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը պատուհանում:

VBA կոդ. Տեղափոխման համար տեղափոխեք հաջորդ շարքի սկիզբ կամ սկիզբ

Sub jumpnext()
    Range("F100").Select
End Sub

ՆշումԿոդում ՝ F100- ը նշված բջիջն է, որին դուք կթռչեք: Կարող եք փոխել ըստ անհրաժեշտության:

3. Սեղմեք F5 կոդը գործարկելու բանալին, այնուհետև կուրսորը միանգամից տեղափոխվում է F100 բջիջ:


Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear,
Please help me how to code : I want to move down row by row on tthe data already fillter
Current cursor at A6 (fix) because it 's Row Header, I want to move down :
Step 1 : move down to A9
Step 2 : move down to A11
Step 3 : move down to A15
(Do until blank)
Screenshot 2023-11-30 200730
(Please see srceen shot attacked)

Many Thanks
Ky
This comment was minimized by the moderator on the site
Sub jumpnext()
Range("F100").Select
End Sub

What chnage do i have to do so this code can be uased on all sheets of the workbook at the same time.

Regards,
This comment was minimized by the moderator on the site
Hi arvind,

The following VBA code can do you a favor. Please give it a try. Thank you.
Note: You need to put the VBA code in the ThisWorkbook (Code) editor.
Sub jumpnext()
'Updated by Extendoffice 20230109
Set CurrWS = ActiveSheet
    For Each WS In ThisWorkbook.Worksheets
    WS.Activate
        WS.Range("F100").Select
    Next
    CurrWS.Activate
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/select-same-cell.png
This comment was minimized by the moderator on the site
Hi,

Can you help with the following VBA code request please?

Sheet 1 is named "Master Asset" with a further 100 sheets named as "0001...0002...0003....0004 ~ 0100"

In any of each of the sheets "0001 ~ 0100"
I want to be able to select cell A4 which already contains text "Back to Master Asset" then press enter, to automatically jump back to cell J3 in the "Master Asset"

Thanks in advance.
Andy C.
This comment was minimized by the moderator on the site
Hi Andy Coghlan,
I can't find a way to trigger the macro with the enter key right now. The following VBA code can insert the same hyperlink in A4 of all worksheets at the same time. After clicking the hyperlink in A4, it will jump to J3 in the "Master Asset". Please give it a try.

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub
This comment was minimized by the moderator on the site
Bagiaimana mengisi textbox pada form dengan memilih data di cell/sheet yg dipilih dgn kursor ?
This comment was minimized by the moderator on the site
Hi Lelson,
Sorry I don't understand what you mean. Would you mind providing a screenshot of your data? Or try to be more specific about your question. Sorry for the inconvenience.
This comment was minimized by the moderator on the site
you didn't sign the F5 for teh code, how it is gonna run by pressing F5?
This comment was minimized by the moderator on the site
Is it possible to move the active cell without pressing a key on the keyboard? For example, can I have the cell move down as soon as the cell above it is filled? I am looking for either a function or a VBA to run when a cell is filled. As soon as A3 has characters in it, is there a VBA to move the active cell down to A4?
This comment was minimized by the moderator on the site
Hi John,
I am confused on your question. How can we know if the cell is finish editing?
This comment was minimized by the moderator on the site
Sorry I mean to type "instantly jump to F8"
This comment was minimized by the moderator on the site
Hi James,
Please try the below code. After data has been entered into E6, press the Tab key or the Enter key, and the cursor will jump to F8 instantly.

Private Sub Worksheet_Change(ByVal Target As Range)

'Updated by Extendoffice 2020087

Dim tabArray As Variant

Dim i As Long

tabArray = Array("E6", "F8")

Application.ScreenUpdating = False

For i = LBound(tabArray) To UBound(tabArray)

If tabArray(i) = Target.Address(0, 0) Then

If i = UBound(tabArray) Then

Me.Range(tabArray(LBound(tabArray))).Select

Else

Me.Range(tabArray(i + 1)).Select

End If

End If

Next i

Application.ScreenUpdating = True

End Sub
This comment was minimized by the moderator on the site
How would I have the cursor move from Cell E6 to F8 once data has been entered into E6? I would like the cursor to ignore all the other lines in the E column and instantly jump to E6.
This comment was minimized by the moderator on the site
That's helpful thanks. However I would like to have a formula as the argument for the 'Range' function. Is this permissible? What I would like to do is have the user enter a number in a dialog box, then search for the first occurrence of that number in a range of cells, and then jump the cursor to that cell...
This comment was minimized by the moderator on the site
Hi Steve,
Sorry can't help you with that.
This comment was minimized by the moderator on the site
I'd like to make a macro that moves from one cell to the next, step by step.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations