[已解决]用vba表示相连数字

喜欢电子表格

0个黄.zip (26.9 KB, 下载次数: 9)

2013-3-6 08:35 上传

点击文件名下载附件 谢谢你的帮助----------------------------

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-6 08:58

0个黄.rar (25.45 KB, 下载次数: 10)

2013-3-6 08:58 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Sub 设置背景色()
   
2.     Dim rg As Range
   
3.     Dim blStart As Boolean
   
4.     Dim lRow As Long, lCol As Long
   
5. 
   
6.     For lRow = 1 To 11
   
7.         For lCol = 24 To 70
   
8.             Select Case blStart
   
9.             Case True:
   
10.                 If Len(Cells(lRow, lCol)) > 0 Then
    
11.                     If rg Is Nothing Then
    
12.                         Set rg = Cells(lRow, lCol)
    
13.                     Else
    
14.                         Set rg = Union(rg, Cells(lRow, lCol))
    
15.                     End If
    
16. 
    
17.                     If Len(Cells(lRow, lCol + 1)) = 0 Then
    
18.                         blStart = False
    
19.                     End If
    
20.                 End If
    
21.             Case False
    
22.                 If Len(Cells(lRow, lCol)) > 0 And Len(Cells(lRow, lCol + 1)) > 0 Then
    
23.                     If rg Is Nothing Then
    
24.                         Set rg = Cells(lRow, lCol)
    
25.                     Else
    
26.                         Set rg = Union(rg, Cells(lRow, lCol))
    
27.                     End If
    
28.                     'Cells(lRow, lCol).Interior.ColorIndex = 3
    
29.                     blStart = True
    
30.                 End If
    
31.             End Select
    
32.         Next
    
33.         
    
34.         If blStart Then
    
35.             If rg Is Nothing Then
    
36.                 Set rg = Cells(lRow, lCol)
    
37.             Else
    
38.                 Set rg = Union(rg, Cells(lRow, lCol))
    
39.             End If
    
40.         End If
    
41.         blStart = False
    
42.     Next
    
43.     rg.Interior.ColorIndex = 6
    
44. End Sub

复制代码

hwc2ycy

我用的红色标注的，颜色要是不合适的话，直接改

1. rg.Interior.ColorIndex = 3

复制代码

就成了。

黄色的已经设置了， 是

1. rg.Interior.ColorIndex = 6

复制代码

zjdh

1. Sub 单元格底色()
   
2.     Application.ScreenUpdating = False
   
3.     取消底色
   
4.     With Sheets("sheet1")
   
5.         row1 = .Range("A" & .Rows.Count).End(xlUp).Row
   
6.         For I = 1 To row1
   
7.             For J = 24 To 118
   
8.                 If .Cells(I, J) <> "" And .Cells(I, J + 1) <> "" Then
   
9.                     .Cells(I, J).Interior.Color = 65535
   
10.                     .Cells(I, J + 1).Interior.Color = 65535
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

zjdh

0个黄.rar (25.45 KB, 下载次数: 10)

2013-3-6 08:58 上传

点击文件名下载附件

喜欢电子表格

zjdh 发表于 2013-3-6 08:58

非常感谢-----------------------------------------

喜欢电子表格

hwc2ycy 发表于 2013-3-6 08:55
我用的红色标注的，颜色要是不合适的话，直接改就成了。

黄色的已经设置了， 是

f非常感谢------------------------------------