Conas dath táscaire trácht a athrú in Excel?
In Excel, tar éis trácht a chur isteach, tá táscaire triantán beag dearg le feiceáil sa chúinne uachtarach ar dheis den chill. D’fhéadfadh go mbeadh iontas ar go leor úsáideoirí Excel an féidir dath an táscaire dearg a athrú go dathanna eile is maith leo. San alt seo, labhróidh mé faoi bhealach oibre chun an tasc seo a chríochnú.
Athraigh dath an táscaire tráchta le cód VBA
Athraigh dath an táscaire tráchta le cód VBA
Níl aon bhealach díreach ann dúinn dath na dtáscairí tráchta a athrú go tapa agus go héasca, ach, is féidir leis an gcód VBA seo a leanas cabhrú leat cruth triantánach a tharraingt anuas ar gach táscaire trácht le dath ar leith a theastaíonn uait ar an mbileog ghníomhach.
1. Gníomhachtaigh do bhileog oibre gur mian leat dath na dtáscairí trácht a athrú.
2. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Athraigh dath an táscaire trácht ar an mbileog ghníomhach
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. Tar éis an cód a ghreamú, brúigh F5 eochair chun an cód a fhorghníomhú, agus clúdaítear na táscairí triantáin dearga go léir leis na triantáin ghorma mar a thaispeántar na scáileáin scáileáin seo a leanas:
Nótaí:
1. Sa chód thuas, is féidir leat an dath gorm a athrú go dtí do leithéidí ach an t-innéacs dathanna sa script a athrú .Fill.ForeColor.SchemeColor = 12.
2. Athrófar an cruth triantáin a chuireann tú leis os cionn VBA a mhéid nuair a athraíonn tú an cill.
3. Más mian leat na cruthanna triantáin daite go léir a bhaint láithreach, cuirfidh an cód VBA seo a leanas foighne ort:
Cód VBA: Bain cruthanna triantánacha thar na táscairí tráchta
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Earraí gaolmhara:
Conas aird a tharraingt ar gach cealla le tráchtanna in Excel?
Conas gach trácht agus táscaire tráchta in Excel a thaispeáint nó a cheilt?
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á!