ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > E问E答 > Excel VBA > 如何通过点击按钮实现输出任意升序数字串？

如何通过点击按钮实现输出任意升序数字串？

作者：绿色风 分类： 时间：2022-08-17 浏览：105
楼主
omnw		 Q:如何通过点击按钮实现输出任意升序数字串？
A:
原理：
1、按照四组、每组10个数字的标准在窗体中添加40个按钮控件，将每个按钮的Caption修改为对应的数字，并按照组别对按钮的名称进行重名称，规则为：CommandButton级别_数字。如下图：

 
2、点击按钮时，通过判断按钮的背景是否为“粉红”来判断该按钮是否被选中，并且按钮在“粉红”和“无色”之间切换。
3、扫描所有的按钮，根据按钮的背景色创建升序的数字串。
窗体代码如下：
  1. Private Sub CommandButton1_0_Click() '修改按钮的背景色，同时扫描按钮生成数字串
  2.     Me.CommandButton1_0.BackColor = IIf(Me.CommandButton1_0.BackColor = -2147483633, 8421631, -2147483633)
  3.     Call 扫描按钮
  4. End Sub
  5. Private Sub CommandButton1_1_Click()
  6.     Me.CommandButton1_1.BackColor = IIf(Me.CommandButton1_1.BackColor = -2147483633, 8421631, -2147483633)
  7.     Call 扫描按钮
  8. End Sub
  9. Private Sub CommandButton1_2_Click()
  10.     Me.CommandButton1_2.BackColor = IIf(Me.CommandButton1_2.BackColor = -2147483633, 8421631, -2147483633)
  11.     Call 扫描按钮
  12. End Sub
  13. Private Sub CommandButton1_3_Click()
  14.     Me.CommandButton1_3.BackColor = IIf(Me.CommandButton1_3.BackColor = -2147483633, 8421631, -2147483633)
  15.     Call 扫描按钮
  16. End Sub
  17. Private Sub CommandButton1_4_Click()
  18.     Me.CommandButton1_4.BackColor = IIf(Me.CommandButton1_4.BackColor = -2147483633, 8421631, -2147483633)
  19.     Call 扫描按钮
  20. End Sub
  21. Private Sub CommandButton1_5_Click()
  22.     Me.CommandButton1_5.BackColor = IIf(Me.CommandButton1_5.BackColor = -2147483633, 8421631, -2147483633)
  23.     Call 扫描按钮
  24. End Sub
  25. Private Sub CommandButton1_6_Click()
  26.     Me.CommandButton1_6.BackColor = IIf(Me.CommandButton1_6.BackColor = -2147483633, 8421631, -2147483633)
  27.     Call 扫描按钮
  28. End Sub
  29. Private Sub CommandButton1_7_Click()
  30.     Me.CommandButton1_7.BackColor = IIf(Me.CommandButton1_7.BackColor = -2147483633, 8421631, -2147483633)
  31.     Call 扫描按钮
  32. End Sub
  33. Private Sub CommandButton1_8_Click()
  34.     Me.CommandButton1_8.BackColor = IIf(Me.CommandButton1_8.BackColor = -2147483633, 8421631, -2147483633)
  35.     Call 扫描按钮
  36. End Sub
  37. Private Sub CommandButton1_9_Click()
  38.     Me.CommandButton1_9.BackColor = IIf(Me.CommandButton1_9.BackColor = -2147483633, 8421631, -2147483633)
  39.     Call 扫描按钮
  40. End Sub
  41. Private Sub CommandButton2_0_Click()
  42.     Me.CommandButton2_0.BackColor = IIf(Me.CommandButton2_0.BackColor = -2147483633, 8421631, -2147483633)
  43.     Call 扫描按钮
  44. End Sub
  45. Private Sub CommandButton2_1_Click()
  46.     Me.CommandButton2_1.BackColor = IIf(Me.CommandButton2_1.BackColor = -2147483633, 8421631, -2147483633)
  47.     Call 扫描按钮
  48. End Sub
  49. Private Sub CommandButton2_2_Click()
  50.     Me.CommandButton2_2.BackColor = IIf(Me.CommandButton2_2.BackColor = -2147483633, 8421631, -2147483633)
  51.     Call 扫描按钮
  52. End Sub
  53. Private Sub CommandButton2_3_Click()
  54.     Me.CommandButton2_3.BackColor = IIf(Me.CommandButton2_3.BackColor = -2147483633, 8421631, -2147483633)
  55.     Call 扫描按钮
  56. End Sub
  57. Private Sub CommandButton2_4_Click()
  58.     Me.CommandButton2_4.BackColor = IIf(Me.CommandButton2_4.BackColor = -2147483633, 8421631, -2147483633)
  59.     Call 扫描按钮
  60. End Sub
  61. Private Sub CommandButton2_5_Click()
  62.     Me.CommandButton2_5.BackColor = IIf(Me.CommandButton2_5.BackColor = -2147483633, 8421631, -2147483633)
  63.     Call 扫描按钮
  64. End Sub
  65. Private Sub CommandButton2_6_Click()
  66.     Me.CommandButton2_6.BackColor = IIf(Me.CommandButton2_6.BackColor = -2147483633, 8421631, -2147483633)
  67.     Call 扫描按钮
  68. End Sub
  69. Private Sub CommandButton2_7_Click()
  70.     Me.CommandButton2_7.BackColor = IIf(Me.CommandButton2_7.BackColor = -2147483633, 8421631, -2147483633)
  71.     Call 扫描按钮
  72. End Sub
  73. Private Sub CommandButton2_8_Click()
  74.     Me.CommandButton2_8.BackColor = IIf(Me.CommandButton2_8.BackColor = -2147483633, 8421631, -2147483633)
  75.     Call 扫描按钮
  76. End Sub
  77. Private Sub CommandButton2_9_Click()
  78.     Me.CommandButton2_9.BackColor = IIf(Me.CommandButton2_9.BackColor = -2147483633, 8421631, -2147483633)
  79.     Call 扫描按钮
  80. End Sub
  81. Private Sub CommandButton3_0_Click()
  82.     Me.CommandButton3_0.BackColor = IIf(Me.CommandButton3_0.BackColor = -2147483633, 8421631, -2147483633)
  83.     Call 扫描按钮
  84. End Sub
  85. Private Sub CommandButton3_1_Click()
  86.     Me.CommandButton3_1.BackColor = IIf(Me.CommandButton3_1.BackColor = -2147483633, 8421631, -2147483633)
  87.     Call 扫描按钮
  88. End Sub
  89. Private Sub CommandButton3_2_Click()
  90.     Me.CommandButton3_2.BackColor = IIf(Me.CommandButton3_2.BackColor = -2147483633, 8421631, -2147483633)
  91.     Call 扫描按钮
  92. End Sub
  93. Private Sub CommandButton3_3_Click()
  94.     Me.CommandButton3_3.BackColor = IIf(Me.CommandButton3_3.BackColor = -2147483633, 8421631, -2147483633)
  95.     Call 扫描按钮
  96. End Sub
  97. Private Sub CommandButton3_4_Click()
  98.     Me.CommandButton3_4.BackColor = IIf(Me.CommandButton3_4.BackColor = -2147483633, 8421631, -2147483633)
  99.     Call 扫描按钮
  100. End Sub
  101. Private Sub CommandButton3_5_Click()
  102.     Me.CommandButton3_5.BackColor = IIf(Me.CommandButton3_5.BackColor = -2147483633, 8421631, -2147483633)
  103.     Call 扫描按钮
  104. End Sub
  105. Private Sub CommandButton3_6_Click()
  106.     Me.CommandButton3_6.BackColor = IIf(Me.CommandButton3_6.BackColor = -2147483633, 8421631, -2147483633)
  107.     Call 扫描按钮
  108. End Sub
  109. Private Sub CommandButton3_7_Click()
  110.     Me.CommandButton3_7.BackColor = IIf(Me.CommandButton3_7.BackColor = -2147483633, 8421631, -2147483633)
  111.     Call 扫描按钮
  112. End Sub
  113. Private Sub CommandButton3_8_Click()
  114.     Me.CommandButton3_8.BackColor = IIf(Me.CommandButton3_8.BackColor = -2147483633, 8421631, -2147483633)
  115.     Call 扫描按钮
  116. End Sub
  117. Private Sub CommandButton3_9_Click()
  118.     Me.CommandButton3_9.BackColor = IIf(Me.CommandButton3_9.BackColor = -2147483633, 8421631, -2147483633)
  119.     Call 扫描按钮
  120. End Sub
  121. Private Sub CommandButton4_0_Click()
  122.     Me.CommandButton4_0.BackColor = IIf(Me.CommandButton4_0.BackColor = -2147483633, 8421631, -2147483633)
  123.     Call 扫描按钮
  124. End Sub
  125. Private Sub CommandButton4_1_Click()
  126.     Me.CommandButton4_1.BackColor = IIf(Me.CommandButton4_1.BackColor = -2147483633, 8421631, -2147483633)
  127.     Call 扫描按钮
  128. End Sub
  129. Private Sub CommandButton4_2_Click()
  130.     Me.CommandButton4_2.BackColor = IIf(Me.CommandButton4_2.BackColor = -2147483633, 8421631, -2147483633)
  131.     Call 扫描按钮
  132. End Sub
  133. Private Sub CommandButton4_3_Click()
  134.     Me.CommandButton4_3.BackColor = IIf(Me.CommandButton4_3.BackColor = -2147483633, 8421631, -2147483633)
  135.     Call 扫描按钮
  136. End Sub
  137. Private Sub CommandButton4_4_Click()
  138.     Me.CommandButton4_4.BackColor = IIf(Me.CommandButton4_4.BackColor = -2147483633, 8421631, -2147483633)
  139.     Call 扫描按钮
  140. End Sub
  141. Private Sub CommandButton4_5_Click()
  142.     Me.CommandButton4_5.BackColor = IIf(Me.CommandButton4_5.BackColor = -2147483633, 8421631, -2147483633)
  143.     Call 扫描按钮
  144. End Sub
  145. Private Sub CommandButton4_6_Click()
  146.     Me.CommandButton4_6.BackColor = IIf(Me.CommandButton4_6.BackColor = -2147483633, 8421631, -2147483633)
  147.     Call 扫描按钮
  148. End Sub
  149. Private Sub CommandButton4_7_Click()
  150.     Me.CommandButton4_7.BackColor = IIf(Me.CommandButton4_7.BackColor = -2147483633, 8421631, -2147483633)
  151.     Call 扫描按钮
  152. End Sub
  153. Private Sub CommandButton4_8_Click()
  154.     Me.CommandButton4_8.BackColor = IIf(Me.CommandButton4_8.BackColor = -2147483633, 8421631, -2147483633)
  155.     Call 扫描按钮
  156. End Sub
  157. Private Sub CommandButton4_9_Click()
  158.     Me.CommandButton4_9.BackColor = IIf(Me.CommandButton4_9.BackColor = -2147483633, 8421631, -2147483633)
  159.     Call 扫描按钮
  160. End Sub
  161. Private Sub CommandButton71_Click() '清空文本框
  162.     Me.TextBox1 = ""
  163.     Me.TextBox2 = ""
  164.     Me.TextBox3 = ""
  165.     Me.TextBox4 = ""
  166. End Sub
  167. Private Sub CommandButton72_Click() '输出数字串
  168.     [M6] = Me.TextBox1
  169.     [M7] = Me.TextBox2
  170.     [M8] = Me.TextBox3
  171.     [M9] = Me.TextBox4
  172. End Sub
  173. Private Sub CommandButton73_Click() '关闭窗体
  174.     Unload Me
  175. End Sub

模块代码如下：
  1. Sub 扫描按钮()
  2.     Dim Mybutton As Control, I As Integer, J As Integer
  3.     With UserForm1
  4.         For I = 1 To 4 '遍历所有的按钮
  5.             .Controls("TextBox" & I).Text = "" '清空文本框内容
  6.             For J = 0 To 9
  7.                 If .Controls("CommandButton" & I & "_" & J).BackColor = 8421631 Then .Controls("TextBox" & I).Text = .Controls("TextBox" & I).Text & .Controls("CommandButton" & I & "_" & J).Caption '根据按钮的背景色是否为“粉红”，生成数字串
  8.             Next J
  9.         Next I
  10.     End With
  11. End Sub

如何通过点击按钮实现输出任意升序数字串？.zip
2楼
亡者天下		 这么一长串代码，看着眼睛就花

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap