xyz 發問時間: 電腦與網際網路軟體 · 5 年前

VBA,限EXCEL區域,點選儲存格變色且秀指定字元.

請教excel vba高手...希望功能:

限制如下述c6:c8,e6:e8...等區域

(1)在這區域中,點選儲存格任一格,除了該儲存格變深灰色,且該儲存格秀出"正常"字樣

(2)若已被點選之儲存格(深灰色且秀正常)再點選一次,就會恢復原狀

下述VBA需如何修改????

-----------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If .Count > 1 Then Exit Sub

If Not Intersect([c6:c8,e6:e8,g6:g8,d18:d28,c30:c32,e30:e32,g30:g32,c34:c36,e34:e36,g34:g36,c39:c41,e39:e41,g39:g41], .Cells) Is Nothing Then

.Interior.ColorIndex = -(.Interior.ColorIndex <> 16) * 16

.Value = "正常"

End If

End With

End Sub

2 個解答

評分
  • 5 年前
    最佳解答

    .Value = "正常"

    改成

    If .Value = "" Then .Value = "正常": Exit Sub

    If .Value = "正常" Then .Value = ""

    試試

    2015-06-28 07:51:54 補充:

    .Value = "正常"

    改成

    If .Value = "" Then .Value = "正常": Exit Sub

    If .Value = "正常" Then .Value = ""

    試試

  • 5 年前

    cascade 大大.....可達題目要求..請至回答區作答...以奉上點數..謝謝...

還有問題?馬上發問,尋求解答。