[已解决]窗体控件代码完善

坐以待币 · 发表于 2014-1-13 13:20

本帖最后由坐以待币于 2014-1-13 15:51 编辑

窗体控件代码完善.zip (6.76 KB, 下载次数: 5)

zjdh · 发表于 2014-1-13 13:46

窗体控件代码完善.rar (8.58 KB, 下载次数: 27)

坐以待币 · 发表于 2014-1-13 13:51

zjdh 发表于 2014-1-13 13:46

功能符合要求，就是我基础不好，代码看不太懂，很吃力。
如果能稍为注释下就最好了

zjdh · 发表于 2014-1-13 16:58

这可是最简单的啦！

Private Sub CommandButton1_Click()
Range("A65536").End(3)(2) = ComboBox1
For I = 1 To 3  '循环检查选项
      If Controls("OptionButton" & I) = True Then '若被选中
         Range("A65536").End(3).Offset(0, 1) = Controls("OptionButton" & I).Caption
         'A列最后一单元的右一列单元填上选项的标识
         Exit For '退出循环
      End If
Next
For I = 1 To 3  '循环检查复选项
      If Controls("CheckBox" & I) = True Then  '若被选中
         t = t & " 、" & Controls("CheckBox" & I).Caption '选项的标识赋给变量
      End If
Next
If t = "" Then Exit Sub  '若没有被选中，则退出
Range("A65536").End(3).Offset(0, 2) = Right(t, Len(t) - 2)
'变量除去前面的空格和“、”，填入A列最后一单元的右第2列单元
End Sub
Private Sub CommandButton2_Click()
Unload Me  '退出窗体
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("男", "女") 'ComboBox1赋值
End Sub

坐以待币 · 发表于 2014-1-14 12:10

zjdh 发表于 2014-1-13 16:58
这可是最简单的啦！

Private Sub CommandButton1_Click()

难者不会，会者不难
对于像你这么厉害的人来说肯定不难了，但对于我们刚接触代码不久的新手来说就很难了
谢谢你的解答，万分感激！

		自动登录	找回密码
密码			注册