搜尋檔案中文字方塊

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

有物件的儲存格標黃色

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。