[已解决]请帮助编写添加数据代码

ymq123

请帮助编写添加数据代码

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-2-18 09:47

1. Private Sub co13_Click()
   
2.     Dim x, y As Integer, arr, rg1, rg2
   
3.     rg1 = Application.CountA(Range("a1:n1"))
   
4.     x = Range("a1:n1").SpecialCells(xlCellTypeBlanks).Count
   
5.     K = 5 - rg1
   
6.     Do While K > 0
   
7.         s = Int(Rnd * 13 + 1)
   
8.         If Cells(1, s) = "" Then
   
9.             Cells(1, s) = s
   
10.             K = K - 1
    
11.         End If
    
12.     Loop
    
13. End Sub

复制代码

跳转到最佳答案楼层

cbg2008

添加数据是随机还是什么规律？
rg1 <> 3 时，怎么变？
只要添加一次数据还是不断地添加？
我没时间做了，请其它朋友帮忙吧，但你得把情况说清楚。

那么的帅

1. Private Sub co13_Click()
   
2.     Dim x, y As Integer, arr, rg1, rg2
   
3.     rg1 = Application.CountA(Range("a1:n1"))
   
4.     x = Range("a1:n1").SpecialCells(xlCellTypeBlanks).Count
   
5.     K = 5 - rg1
   
6.     Do While K > 0
   
7.         s = Int(Rnd * 13 + 1)
   
8.         If Cells(1, s) = "" Then
   
9.             Cells(1, s) = s
   
10.             K = K - 1
    
11.         End If
    
12.     Loop
    
13. End Sub

复制代码