Dear Sir
jag behöver
-Hur man hittar och ersätter text i ark excel samma CTRL+H med VBA
Som jag finner https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html om textruta och diagram
OM jag behöver "Hitta och ersätt text i ark excel samma CTRL+H med VBA"
Tack
konst
Den här koden min översyn fungerar inte refererar
jag behöver
-Hur man hittar och ersätter text i ark excel samma CTRL+H med VBA
Som jag finner https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html om textruta och diagram
OM jag behöver "Hitta och ersätt text i ark excel samma CTRL+H med VBA"
Tack
konst
Den här koden min översyn fungerar inte refererar
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