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

 Ինչպե՞ս գործարկել մակրո ՝ Excel- ում հղումներ հղումով:

Մակրո ծածկագիրը մեզ համար կարող է շատ օգտակար լինել Excel- ում որոշ բարդ գործեր լուծելու համար, սովորաբար այն կարող ենք իրականացնել համակարգչում Microsoft Visual Basic հավելվածների համար պատուհանը ՝ կտտացնելով Վազում կոճակը կամ սեղմելը F5 բանալի. Բայց երբևէ փորձե՞լ եք գործարկել մակրոները ՝ կտտացնելով աշխատանքային թերթի հարաբերական հիպերհղումները:

Գործարկել կամ կատարել մակրոը ՝ կտտացնելով VBA կոդով հիպերհղումը


նետ կապույտ աջ պղպջակ Գործարկել կամ կատարել մակրոը ՝ կտտացնելով VBA կոդով հիպերհղումը

Մեզ համար կարող է հետաքրքիր լինել մակրո գործարկելը ՝ կտտացնելով hyperlink- ին Excel- ում, հետևյալ մեթոդը կարող է օգնել քայլ առ քայլ հասնել այս առաջադրանքին.

1, Ստեղծեք հիպերհղումներ, որոնք ցանկանում եք օգտագործել մակրո կոդերը կատարելու համար: Խնդրում ենք սեղմել բջիջը և ստեղծել հիպերհղում `ինքն իրեն հղելու համար, տես նկարի նկարը.

doc վազքի մակրո 1-ի գերկապից

2, Կրկնեք վերը նշված քայլը ՝ ստեղծելու այլ հիպերհղումներ, որոնք ցանկանում եք օգտագործել, ինչպես ցույց է տրված հետևյալ նկարը.

doc վազքի մակրո 2-ի գերկապից

3, Դրանից հետո աջ կտտացրեք թերթիկի ներդիրին, որը պարունակում է այն հիպերհղումները, որոնք ցանկանում եք օգտագործել, և այնուհետև ընտրել Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Գործարկել մակրո կոդերը հղումներից.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$6" Then
        Call Macro1
        End If
         If Target.Range.Address = "$B$8" Then
        Call Macro2
         End If
End Sub

doc վազքի մակրո 3-ի գերկապից

ՆշումՎերոհիշյալ ծածկագրում B6 և B8 արդյոք բջիջները պարունակում են հիպերհղումներ, որոնք ցանկանում եք օգտագործել, և Մակրո 1 և Մակրո 2 մակրո կոդերի անուններն են, խնդրում ենք փոխեք դրանք ըստ ձեր կարիքի:

4, Դրանից հետո պահեք և փակեք ծածկագրի պատուհանը, այսուհետ, երբ կտտացնում եք հիպերհղումը, հատուկ մակրո կոդը կկատարվի միանգամից:


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

Ինչպե՞ս գործարկել մակրո, երբ բջջային արժեքը փոխվում է Excel- ում:

Ինչպե՞ս գործարկել մակրո ՝ Excel- ում բջջային արժեքի հիման վրա:

Ինչպե՞ս գործարկել մակրո ՝ Excel- ում բացվող ցուցակից ընտրված արժեքի հիման վրա:

Ինչպե՞ս գործարկել մակրո ինքնաբերաբար, նախքան Excel- ում տպելը:

Ինչպե՞ս գործարկել մակրո, երբ թերթը ընտրվում է աշխատանքային գրքից:

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

🤖 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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
works well
This comment was minimized by the moderator on the site
Me sale un error:

Error de compilación:
No se ha definido Sub o Function
This comment was minimized by the moderator on the site
Olá,

Um dos poucos locais onde encontrei essa solução. Muito obrigado! Estou quase lá. Não estou usando uma célula para o hiperlink, mas uma imagem que inseri na planilha e indicando uma célula qualquer como referência. Fiz como indicado, mas não funciona (Só para verificação, fiz com uma célula e deu certo). Há alguma modificação a ser feita na macro?
This comment was minimized by the moderator on the site
Hello
This is very handy, thank you, however this only works if you are in the cell $B$8. I want to create the same hyperlink, which performs the same macro function, but in every row down the sheet.
ie. I have two tabs, sheet 1 and sheet 2. The user is in Sheet 1, and a macro is run which enters data in sheet 1 and sheet 2 on a row-by-row basis. This works fine, but then i want a macro so that the user can click a link in the next cell and it takes them back to their original row in sheet 1, offset a few cells. I can do this using the above, BUT only if the user is in a set row in sheet 2 (eg $B$8). How can i make it so the macro works when they are in sheet 2 B9, B10, B11....?
This comment was minimized by the moderator on the site
This will assign sheet1 column J, row 2 to 35 with a hyperlink to it's own cell with the text name

Sub whateverName()
For i = 2 To 35 Step 1
ActiveCell.FormulaR1C1 = "name"
Range("J" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'sheet1'!J" & i, TextToDisplay:="name"
Next

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations