如何用VBA提取复选框中的数字

hbhsfeng

谢谢你的帮助。

hbhsfeng

microyip 发表于 2018-8-6 14:56
这种~赌~博~用的，应该找那些提供有偿服务的专业人士处理啊

我是做数据对比用的，与赌博没有任何关系。

hbhsfeng

microyip 发表于 2018-8-6 14:56
这种~赌~博~用的，应该找那些提供有偿服务的专业人士处理啊

我是做数据对比用的，与赌博没有任何关系。

hzruziniu

1. Sub yyyy()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim i%, n%, m%
   
5.     For i = 1 To 33
   
6.         If Sheet1.OLEObjects("CheckBox" & i).Object.Value = True Then
   
7.             n = n + 1
   
8.             Cells(5, n + 2).Value = Format(i, "00")
   
9.         End If
   
10.     Next
    
11.     For i = 34 To 49
    
12.         If Sheet1.OLEObjects("CheckBox" & i).Object.Value = True Then
    
13.             m = m + 1
    
14.             Cells(6, m + 2).Value = Format(i - 33, "00")
    
15.         End If
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18.     Application.DisplayAlerts = True
    
19. End Sub

复制代码

hzruziniu

少一段清除代码

1. Sub tttt()
   
2.     Dim i%, n%, m%
   
3.     For i = 1 To 49
   
4.         Sheet1.OLEObjects("CheckBox" & i).Object.Value = False
   
5.     Next
   
6.     Range("c5:AI7") = ""
   
7. End Sub

复制代码

hbhsfeng

hzruziniu 发表于 2018-8-6 17:04

你的代码也要点两下，先打钩，再点按钮。
还有一个小问题。去钩（去掉前面的数字，不是最大的数字）后，再点按钮，出现最后的数字往前移的现象，并重复出现。
但是清除代码只点一下，就可以清除。

ERICCPJ

hbhsfeng 发表于 2018-8-6 16:40
我是为了做数据对比，才发这样的帖子，这与赌博没有关系。别人做的表格好，但是没有蓝球号码。

楼主既然是做研究用，花点时间学习下VBA吧，网上的东西虽然好，但终归有不如你意的时候，那时候你想改却有心无力

hbhsfeng

VBA太难学，对于零基础如何学？我连录制宏都不会，如何学VBA？