Sir
caithfidh mé
-Conas Téacs a Aimsiú agus a Ionadú Ar an mbileog excel CTRL+H céanna le VBA
Mar a fhaighim https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html faoi Bosca téacs agus cairt
MÁ Teastaíonn uaim “Faigh agus Ionadaigh Téacs Sa Bhileog excel CTRL+H céanna le VBA”
Go raibh maith agat
ealaín
Tagraíonn an cód seo nach bhfuil mo athbhreithniú ag obair
caithfidh mé
-Conas Téacs a Aimsiú agus a Ionadú Ar an mbileog excel CTRL+H céanna le VBA
Mar a fhaighim https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html faoi Bosca téacs agus cairt
MÁ Teastaíonn uaim “Faigh agus Ionadaigh Téacs Sa Bhileog excel CTRL+H céanna le VBA”
Go raibh maith agat
ealaín
Tagraíonn an cód seo nach bhfuil mo athbhreithniú ag obair
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
Dim YY As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For
Each YY In xWs.Worksheest("Sheet1").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet2").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet3").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet4").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub