Office中国论坛/Access中国论坛

标题: 请教:如何把一个区域中单元格底纹为白色的数据去掉! [打印本页]

作者: 天啸 时间: 2006-10-12 20:58
标题: 请教:如何把一个区域中单元格底纹为白色的数据去掉!
请指点迷津!

如何将单元格底纹为白色的数据去掉或改为0

[attach]20843[/attach]

作者: tangqp 时间: 2006-10-12 21:32
双色球,我也常买

Sub main()
For i = 2 To 50
      For j = 2 To 6
         Sheet1.Cells(j, i).Select
         If Selection.Interior.ColorIndex = 2 Then
            Cells(j, i) = ""
         End If
      Next j
Next i
End Sub

实际情况需做些改动

作者: 天啸 时间: 2006-10-13 05:53
先谢，可是我要把它放在哪儿呢[em04]

作者: aydl1014 时间: 2006-10-13 22:17
提示: 作者被禁止或删除内容自动屏蔽

作者: 天啸 时间: 2006-10-14 08:31
解决了，我做一小小改动，因为有些单元格的底纹是设为自动的

Sub main()
For i = 2 To 50
      For j = 24 To 266
         Sheet1.Cells(j, i).Select
         If Selection.Interior.ColorIndex <＝ 2 Then
            Cells(j, i) = ""
         End If
      Next j
Next i
End Sub

多谢tangqp[em02]

[此贴子已经被作者于2006-10-14 0:45:56编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)