Dear Sir
ho bisogno di
-Come trovare e sostituire il testo nel foglio excel stesso CTRL+H con VBA
Come trovo https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html su Casella di testo e grafico
SE ho bisogno di "Trova e sostituisci testo nel foglio excel stesso CTRL+H con VBA"
Grazie
arte
Questo codice la mia revisione non funziona fare riferimento
ho bisogno di
-Come trovare e sostituire il testo nel foglio excel stesso CTRL+H con VBA
Come trovo https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html su Casella di testo e grafico
SE ho bisogno di "Trova e sostituisci testo nel foglio excel stesso CTRL+H con VBA"
Grazie
arte
Questo codice la mia revisione non funziona fare riferimento
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