Skip to main content

 Conas macra a reáchtáil trí hipearnasc a chliceáil in Excel?

D’fhéadfadh macra-chód a bheith an-chabhrach dúinn roinnt post casta in Excel a réiteach, de ghnáth, is féidir linn é a fhorghníomhú sa Microsoft Visual Basic d’iarratais fhuinneog trí chliceáil Rith cnaipe nó brúigh F5 eochair. Ach, an ndearna tú iarracht riamh na macraí a reáchtáil trí chliceáil ar na hipearnasc coibhneasta sa bhileog oibre?

Rith nó forghníomhaigh an macra trí chliceáil ar hipearnasc le cód VBA


mboilgeog cheart gorm saighead Rith nó forghníomhaigh an macra trí chliceáil ar hipearnasc le cód VBA

D’fhéadfadh sé a bheith suimiúil dúinn macra a spreagadh trí hipearnasc a chliceáil in Excel, is féidir leis an modh seo a leanas cabhrú leat an tasc seo a bhaint amach céim ar chéim:

1. Cruthaigh hipearnasc a theastaíonn uait a úsáid chun na macra-chóid a fhorghníomhú. Cliceáil cill le do thoil agus hipearnasc a chruthú chun nasc a dhéanamh leis féin, féach an scáileán:

rith macra ó hipearnasc 1

2. Déan an chéim thuas arís chun hipearnasc eile a chruthú a theastaíonn uait a úsáid mar a leanas an pictiúr a thaispeántar:

rith macra ó hipearnasc 2

3. Ansin cliceáil ar dheis ar an táb bileog ina bhfuil na hipearnasc a theastaíonn uait a úsáid, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, agus san oscailt Microsoft Visual Basic d’iarratais an cód seo a leanas a fhuinneogú, a chóipeáil agus a ghreamú isteach sa Mhodúl bán:

Cód VBA: Rith macra-chóid ó hipearnasc:

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

rith macra ó hipearnasc 3

nótaí: Sa chód thuas, B6 agus B8 an bhfuil hipearnasc sna cealla is mian leat a úsáid, agus Macra1 agus Macra2 is iad na macra-ainmneacha cód, athraigh iad le do riachtanas le do thoil.

4. Ansin sábháil agus dún fuinneog an chóid, as seo amach, nuair a chliceálann tú an hipearnasc, déanfar an macra-chód sonrach a fhorghníomhú ag an am céanna.


Earraí gaolmhara:

Conas macra a rith nuair a athraíonn luach cille in Excel?

Conas macra a reáchtáil bunaithe ar luach cille in Excel?

Conas macra a reáchtáil bunaithe ar luach a roghnaíodh ón liosta anuas in Excel?

Conas macra a reáchtáil go huathoibríoch sula ndéantar é a phriontáil in Excel?

Conas macra a reáchtáil nuair a roghnaítear bileog ó leabhar oibre?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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