返回列表 上一主題 發帖

搜尋檔案中文字方塊

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

有物件的儲存格標黃色

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題