返回列表 上一主題 發帖

搜尋檔案中文字方塊

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

有物件的儲存格標黃色

TOP

        靜思自在 : 知識要用心體會,才能變成自己的智慧。
返回列表 上一主題