请教老师，单元格背景设置问题

7016427

我想把sheet1，b列单元格不为空，鼠标选中这个单元格时，该单元格背景颜色为红色，否则为白色。请问老师，这个代码如何写？

热浪2006

{:soso_e103:}

hbpaopao

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. If Target.Count > 1 Then Exit Sub
   
4. If Target.Column <> 2 Then Exit Sub
   
5. If Selection = "" Then
   
6.     Selection.Interior.ColorIndex = 3
   
7. Else
   
8.     Selection.Interior.ColorIndex = xlNone
   
9. End If
   
10. End Sub
    

复制代码

放到相应的工作表下，或者复制内容风道工作簿下

7016427

hbpaopao 发表于 2012-11-16 20:27
放到相应的工作表下，或者复制内容风道工作簿下

请问老师，能否鼠标离开该单元格时，仍恢复白色背景？

sscylh

借贵贴练习下vsto:

1.    Private Sub Sheet1_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.SelectionChange
   
2.         If Left(Target.Address, 2) <> "$B" Or Len(Target.Value) > 0 Then
   
3.             Target.Interior.ColorIndex = Excel.XlColorIndex.xlColorIndexNone
   
4.         Else
   
5.             Target.Interior.ColorIndex = 12
   
6.         End If
   
7.     End Sub

复制代码

7016427

sscylh 发表于 2012-11-16 20:45
借贵贴练习下vsto:

测试无响应

热浪2006

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   [B:B].Interior.ColorIndex = xlNone
   If Target.Column <> 2 Then Exit Sub
   If Target = "" Then Exit Sub
   Target.Interior.ColorIndex = 3
End Sub

7016427

热浪2006 发表于 2012-11-16 21:02
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
...

请问：If Target.Count > 1 Then Exit Sub是什么意思？

hbpaopao

7016427 发表于 2012-11-16 20:41
请问老师，能否鼠标离开该单元格时，仍恢复白色背景？

你的离开是什么意思？选中其他单元格吗？

热浪2006

If Target.Count > 1 Then Exit Sub '选中的不只是1个单元格