[已解决]请老师帮助编写代码

ymq123

请老师帮助编写代码。谢谢！

最佳答案

月排行榜 / 总排行榜

redsheep

2013-3-28 18:28

1. Sub aaa()
   
2. For I = 2 To 17
   
3.     X = 0
   
4.     Select Case I
   
5.         Case 2 To 5
   
6.             y = 1
   
7.             Z = 65535
   
8.         Case 6 To 9
   
9.             y = 2
   
10.             Z = 65280
    
11.         Case 10 To 13
    
12.             y = 3
    
13.             Z = 16737843
    
14.         Case Else
    
15.             y = 4
    
16.             Z = 13408767
    
17.     End Select
    
18.    
    
19.     For Each Rng In ActiveSheet.Range(Cells(I, 1), Cells(I, 8))
    
20.         If Rng.Value = "" Then X = X + 1
    
21.         If X = y Then
    
22.             Rng.Interior.Color = Z
    
23.             Rng.Value = Rng.Column
    
24.             Exit For
    
25.         End If
    
26.     Next Rng
    
27.    
    
28. Next
    
29.         
    
30. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

随意填数字么？

hwc2ycy

1. Sub 填数()
   
2.     Dim i As Byte
   
3.     Dim j As Byte
   
4.     For i = 2 To 17
   
5.         For j = 1 To 8
   
6.             If Len(Cells(i, j)) = 0 Then
   
7.                 Cells(i, j) = j
   
8.                 Exit For
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码

hwc2ycy

原来有颜色规律了，重写下。

hwc2ycy

1. Sub 填数()
   
2.     Dim i As Byte
   
3.     Dim j As Byte
   
4.     For i = 2 To 17
   
5.         For j = 1 To 8
   
6.             If Cells(i, j).Interior.ColorIndex <> -4142 Then
   
7.                 Cells(i, j) = j
   
8.                 Exit For
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

redsheep

1. Sub aaa()
   
2. For I = 2 To 17
   
3.     X = 0
   
4.     Select Case I
   
5.         Case 2 To 5
   
6.             y = 1
   
7.             Z = 65535
   
8.         Case 6 To 9
   
9.             y = 2
   
10.             Z = 65280
    
11.         Case 10 To 13
    
12.             y = 3
    
13.             Z = 16737843
    
14.         Case Else
    
15.             y = 4
    
16.             Z = 13408767
    
17.     End Select
    
18.    
    
19.     For Each Rng In ActiveSheet.Range(Cells(I, 1), Cells(I, 8))
    
20.         If Rng.Value = "" Then X = X + 1
    
21.         If X = y Then
    
22.             Rng.Interior.Color = Z
    
23.             Rng.Value = Rng.Column
    
24.             Exit For
    
25.         End If
    
26.     Next Rng
    
27.    
    
28. Next
    
29.         
    
30. End Sub
    

复制代码

chinatanke

真好，慢慢研究之中

ymq123

redsheep 发表于 2013-3-28 18:28

还要麻烦你：Z = 65535 中 65535是怎么得到的。谢谢！

hwc2ycy

原来是要上色？
会错意了，

redsheep

ymq123 发表于 2013-3-28 19:18
还要麻烦你：Z = 65535 中 65535是怎么得到的。谢谢！

我是看你自己用的颜色  

比如可以在代码窗口这么写个宏

1. Sub col()
   
2. Debug.Print  ActiveSheet.Range("C3").Interior.Color
   
3. End Sub

复制代码

然后在视图菜单里勾选"立即窗口"  运行一次就能看到了

或者你可以录制宏  然后给单元格上色  然后再查看中间那个 .color 等于几