Dear Sir
jeg er nødt til
-Sådan finder og erstatter du tekst i ark excel samme CTRL+H med VBA
Som jeg finder https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html om tekstboks og diagram
HVIS jeg har brug for "Find og erstat tekst i ark excel samme CTRL+H med VBA"
Tak
kunst
Denne kode min revision fungerer ikke henvise
jeg er nødt til
-Sådan finder og erstatter du tekst i ark excel samme CTRL+H med VBA
Som jeg finder https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html om tekstboks og diagram
HVIS jeg har brug for "Find og erstat tekst i ark excel samme CTRL+H med VBA"
Tak
kunst
Denne kode min revision fungerer ikke henvise
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