سيدي العزيز
أنا بحاجة لــ
-كيفية البحث عن النص واستبداله في ورقة التفوق بنفس CTRL + H مع VBA
كما أجد https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html حول مربع النص والرسم البياني
إذا كنت بحاجة إلى "البحث عن النص واستبداله في الورقة، استخدم نفس CTRL + H مع VBA"
شكراً لك
فن
هذا الكود الذي قمت بمراجعته لا يعمل
أنا بحاجة لــ
-كيفية البحث عن النص واستبداله في ورقة التفوق بنفس CTRL + H مع VBA
كما أجد https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html حول مربع النص والرسم البياني
إذا كنت بحاجة إلى "البحث عن النص واستبداله في الورقة، استخدم نفس CTRL + H مع VBA"
شكراً لك
فن
هذا الكود الذي قمت بمراجعته لا يعمل
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