鼠标选中F A,D,F 就自动变成橙色...请看附件

linn339q · 发表于 2018-9-1 10:52

我用鼠标选中FA,D,F 就自动变成橙色。
鼠标点到其他的位置，颜色又恢复原来的样子。
谢谢

microyip · 发表于 2018-9-1 11:03

录制一个变色的宏，把代码放到WorkSheet_SelectChange里并修改一下就可以了

linn339q · 发表于 2018-9-1 11:17

microyip 发表于 2018-9-1 11:03
录制一个变色的宏，把代码放到WorkSheet_SelectChange里并修改一下就可以了

无从下手,请教一下。

一把小刀闯天下 · 发表于 2018-9-1 11:37

本帖最后由一把小刀闯天下于 2018-9-1 12:34 编辑

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim mark, i, j
  ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
  mark = Split("$B$10 $C$11 $D$11 $D$14")
  For i = 0 To UBound(mark)
If Target.Address = mark(i) Then
   Debug.Print Timer
   For j = 0 To UBound(mark)
      Range(mark(j)).Interior.Color = vbRed
   Next
   Exit Sub
End If
  Next
  mark = Split("$C$27 $B$26 $B$27")
  If Target.Address = mark(0) Then
For i = 0 To UBound(mark)
   Range(mark(i)).Interior.Color = vbYellow
Next
  End If
End Sub

蓝桥玄霜 · 发表于 2018-9-1 12:17

请见代码。

linn339q · 发表于 2018-9-1 12:52

蓝桥玄霜发表于 2018-9-1 12:17
请见代码。

ElseIf Target = "A" Then '我想把"D", "F", 添加到前面那句话应该怎样改。

蓝桥玄霜 · 发表于 2018-9-7 13:22

ElseIf Target = "A" Or Target="D" Or Target="F" Then

		自动登录	找回密码
密码			免费注册

[求助] 鼠标选中F A,D,F 就自动变成橙色...请看附件

评分