Conas léim go tapa chuig an gcill in aice láimhe bunaithe ar an roghnú i liosta anuas Excel?
An ndearna tú íomháú riamh chun léim go dtí an cill in aice láimhe bunaithe ar an roghnú i liosta anuas in Excel? Mar shampla, anseo tá liosta anuas agam i gcill C1 a chuimsíonn ainmneacha na seachtaine, is é colún A liosta na ndátaí, agus is é colún B liosta na n-amanna. Anois nuair a roghnaíonn mé ainm i rith na seachtaine ón liosta anuas, mar shampla, Déardaoin, léimeann an cúrsóir go B5 atá cóngarach don Déardaoin i gcolún A. In Excel, níl aon ghné ionsuite ann chun an tasc seo a réiteach, ach le is féidir leis an gcód cumhachtach VBA.
Léim go cill in aice láimhe bunaithe ar luach sa liosta anuas de réir VBA
Léim go cill in aice láimhe bunaithe ar luach sa liosta anuas de réir VBA
1. Roghnaigh lá is mian leat a úsáid ón liosta anuas, ansin brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, greamaigh thíos an cód leis an Modúil.
VBA: Léim go cill in aice láimhe bunaithe ar luach
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. Brúigh F5 eochair, ansin léimeann an cúrsóir go dtí an cill in aice láimhe bunaithe ar an luach sa liosta anuas.
Sa chód VBA, is é A2: A8 an liosta ina bhfuil na luachanna a mheaitseálann leis na luachanna ar an liosta anuas, is féidir leat an tagairt seo a athrú de réir mar is gá duit.
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!
