搜尋檔案中文字方塊

1^# 跳轉到 »

發表於 2016-9-1 18:18 | 顯示全部帖子

Sub test()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
　　Shp.TopLeftCell.Interior.Color = vbYellow
Next
End Sub

有物件的儲存格標黃色

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。