1. 在工作表名上右鍵view code進(jìn)入VBA編輯器
2. 進(jìn)入菜單 view------->project explorer或Ctrl+R打開項(xiàng)目視圖长搀，可以在左邊窗口中查看到各個(gè)工作表名顽聂。
3. 在項(xiàng)目視圖中雙擊相應(yīng)表名，在右邊的編輯窗口中添加如下函數(shù)：
4. 點(diǎn)擊菜單上的三角運(yùn)行圖標(biāo)執(zhí)行函數(shù)痰腮，看看對(duì)應(yīng)表中的內(nèi)容是否已全部替換？。
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Sub文本框中的文本替換()
? Dim tb As Object
? For Each tb In ActiveSheet.Shapes
? ? If tb.Type = msoTextBox Then
tb.DrawingObject.Caption = Replace(tb.DrawingObject.Caption, "查找內(nèi)容", "替換內(nèi)容")
? ? End If
? Next
End Sub
