请教大神，不知道利用控件按钮，能否实现自动添加

sxstysghb

请教大神，不知道利用控件按钮，能否实现自动添加，而且是按照顺序自动添加

请各位大神指教，是通过函数公式编写实现呢，还是通过VBA实现，还是根本就实现不了。


请大神帮帮忙！非常感谢！！！

chaohuahch

你看一下，是这样的效果嘛？

1. Private Sub CommandButton1_Click()
   
2. Dim rng As Range, arr, i%, j%
   
3. Set ran = Range("C12:G14")
   
4. arr = ran
   
5. For i = 1 To UBound(arr, 2)
   
6.      For j = 1 To UBound(arr, 1)
   
7.        If arr(j, i) = "" Then
   
8.           Cells(j + 11, i + 2) = "对"
   
9.           Exit Sub
   
10.         End If
    
11.        Next j
    
12.    Next i
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton2_Click()
    
16. Dim rng As Range, arr, i%, j%
    
17. Set ran = Range("C12:G14")
    
18. arr = ran
    
19. For i = 1 To UBound(arr, 2)
    
20.      For j = 1 To UBound(arr, 1)
    
21.        If arr(j, i) = "" Then
    
22.           Cells(j + 11, i + 2) = "错"
    
23.           Exit Sub
    
24.         End If
    
25.        Next j
    
26.    Next i
    
27. End Sub
    

复制代码

sxstysghb

chaohuahch 发表于 2018-7-20 23:28
你看一下，是这样的效果嘛？

是这个样子，非常感谢，我今天好好研究一下