请问下excel怎么不破坏原有色让所在单元格行列变色!!!!
答案:1 悬赏:20 手机版
解决时间 2021-01-29 01:10
- 提问者网友：未信
- 2021-01-28 16:07
请问下excel怎么不破坏原有色让所在单元格行列变色!!!!
最佳答案
- 五星知识达人网友：不如潦草
- 2021-01-28 17:18
你说的是不是高亮度显示Dim n As Byte
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
n = IIf(Application.CutCopyMode = xlCopy, 0, 1)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 33
Target.EntireColumn.Interior.ColorIndex = 33
End Sub
放在THISWORKBOOK里 不是sheet里边
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
n = IIf(Application.CutCopyMode = xlCopy, 0, 1)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 33
Target.EntireColumn.Interior.ColorIndex = 33
End Sub
放在THISWORKBOOK里 不是sheet里边
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯