房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • VB大虾有兴趣否,为什么CCC表第7列都是红色的.

    Private Sub Command2_Click()Dim AAA As ObjectDim BBB As ObjectDim CCC As ObjectDim DDD As ObjectSet AAA = CreateObject("excel.application")AAA.Visible = TrueSet BBB = AAA.Workbooks.Open("J:\H\L.xls")Set CCC = BBB.worksheets(1)CCC.ActivateSet DDD = BBB.worksheets(2)DDD.ActivateDim i, j As Integeri = 6For j = 5 To 27 i = 6 Do While (i <= 115) If CCC.cells(i, 6) = DDD.cells(j, 8) Then CCC.cells(i, 7) = DDD.cells(j, 7) ElseIf Len(DDD.cells(j, 7).Value) = 0 Then CCC.cells(i, 7).Value = CCC.cells(i, 6).Value CCC.cells(i, 7).Interior.Color = RGB(255, 0, 0) End If i = i + 1 LoopNext jEnd Sub

    提问者：Office文档

    发布于2011-01-17

共1个回答
  • wzlxg02113 丨Lv 4
    LZ的这个问题很清楚的，为什么是红色，当然是因为下面的代码的效果了！CCC.cells(i, 7).Interior.Color = RGB(255, 0, 0) 这句话使用RGB函数，得到红色的颜色值，然后直接设置单元格第7列的内部颜色显示。你把这句话去掉，就会是默认的颜色了。
    +1 2011-01-18 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。