Sub 十字閱讀模式(c As Range)
Cells.Interior.Color = xlNone '全部單元格為無顔色
c.EntireRow.Interior.Color = vbYellow '橫為黃色
c.EntireColumn.Interior.Color = vbRed '列為紅色
End Sub
寫入表格的私自代碼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'十字閱讀模式,這是表格觸發事件,必須寫在裡面
Call 模塊1.十字閱讀模式(Target)
End Sub
,
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!