(excel VBA) 如何用滑鼠點儲存格來著色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex <> 3 Then
ActiveCell.Interior.ColorIndex = 3
ElseIf ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = 0
End If
End Sub

ColorIndex

http://www.funp.net/459961

2012-11-05 22:03:48 補充：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Target.Interior.ColorIndex <> 3 Then
Target.Interior.ColorIndex = 3
ElseIf Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 0
End If
End With
End Sub

2012-11-05 22:05:59 補充：
不知道是不是你想要的功能?

選取的儲存格列 反白



Private SubWorksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex= 0 '背景顏色

Rows(ActiveCell.Row).Interior.ColorIndex= 10 '列顏色

End Sub

1、將滑鼠在作用中的工作表(例:Sheet1)的標籤上，按右鍵後在出現

選單中，按左鍵點選[檢視程式碼]。

2、將上列程式碼複製貼於跳出的Visual Basic視窗的右邊空白處。
3、程式碼貼上完成後，再按[Alt] +[F11] 切回Excel頁面

2012-11-05 14:22:27 補充：
下載地址 http://www.FunP.Net/21271


~~~ 我是路過 ~ ~ ~ 來亂的 ~.~.~ 快跑!!