Conas tagairt cille a bhaint as foirmlí in Excel?
Má cheaptar go bhfuil roinnt foirmlí fada agat, agus anois, ba mhaith leat gach tagairt cille a bhaint as na foirmlí mar a leanas an pictiúr a thaispeántar. Conas a d’fhéadfá na tagairtí cille a bhaint as foirmlí chomh tapa agus is féidir leat?
Sliocht tagairtí cille ó fhoirmlí le Feidhm Sainithe ag an Úsáideoir
Sliocht tagairtí cille ó fhoirmlí le Feidhm Sainithe ag an Úsáideoir
Chun na tagairtí cille a bhaint as foirmlí, féadfaidh an cód VBA thíos fabhar a thabhairt duit. Déan mar a leanas le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sliocht tagairtí cille ó fhoirmlí:
Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
Dim xRetList As Object
Dim xRegEx As Object
Dim I As Long
Dim xRet As String
Application.Volatile
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
.Global = True
.MultiLine = True
.IgnoreCase = False
End With
Set xRetList = xRegEx.Execute(Rg.Formula)
If xRetList.Count > 0 Then
For I = 0 To xRetList.Count - 1
xRet = xRet & xRetList.Item(I) & ", "
Next
ExtractCellRefs = Left(xRet, Len(xRet) - 2)
Else
ExtractCellRefs = "No Matches"
End If
End Function
3. Tar éis duit an cód a ghreamú, sábháil an cód agus téigh ar ais chuig an mbileog oibre, agus iontráil an fhoirmle seo: = extractcellrefs (G2) (G2 an cill ina bhfuil an fhoirmle is mian leat na tagairtí cille a bhaint di) i gcill inar mian leat an toradh a fháil, agus ansin brúigh Iontráil eochair, baineadh na tagairtí cille go léir ón bhfoirmle, féach an scáileán:
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á!
