[已解决]求助！！如何实现点击输入后，自动清除选项按钮选定内容

guanghui2099

    利用ComboBox1.Text = ""  和 TextBox2.Text = "" 代码已经实现每次点击输入后，自动清除复合框和文字框内容，但是选项按钮（红色框内）的选定状态无法清除，求大神帮忙。
{:041:}

最佳答案

月排行榜 / 总排行榜

grf1973

2014-5-6 11:36

这是窗体控件的遍历问题。在输入按钮的最后一段加上下面代码：
Dim op As Control
For Each op In Me.Controls
    If TypeName(op) = "OptionButton" Then op = False
Next

跳转到最佳答案楼层

bene

先围观了，待高手出现

guanghui2099

bene 发表于 2014-5-6 11:22
先围观了，待高手出现

刚看到新消息，还激动了一把，心想这么快大神就出现了{:101:}

bene

guanghui2099 发表于 2014-5-6 11:25
刚看到新消息，还激动了一把，心想这么快大神就出现了

大神这个点都还在忙，只有我这样的水客，先围观帮你顶下帖子

guanghui2099

bene 发表于 2014-5-6 11:27
大神这个点都还在忙，只有我这样的水客，先围观帮你顶下帖子

那也十分感谢了

grf1973

这是窗体控件的遍历问题。在输入按钮的最后一段加上下面代码：
Dim op As Control
For Each op In Me.Controls
    If TypeName(op) = "OptionButton" Then op = False
Next

guanghui2099

问题已解决，上传完整版，供参考

grf1973

你的代码有点啰嗦，简化一下。

1. Private Sub CommandButton1_Click()
   
2.     Dim mrow As Long
   
3.     mrow = Range("A65536").End(xlUp).Row + 1
   
4.     Range("a" & mrow) = ComboBox1.Value
   
5.     Range("b" & mrow) = TextBox1.Value
   
6.     Dim op As Control
   
7.     For Each op In Me.Controls
   
8.         If TypeName(op) = "OptionButton" Then
   
9.             If op = True Then
   
10.                 c = Val(Replace(op.Name, "OptionButton", ""))
    
11.                 If c <= 4 Then col = "C"
    
12.                 If c > 4 And c <= 8 Then col = "D"
    
13.                 If c > 9 And c <= 12 Then col = "E"
    
14.                 If c > 12 And c <= 16 Then col = "F"
    
15.                 If c > 16 And c <= 20 Then col = "G"
    
16.                 Cells(mrow, col) = op.Caption
    
17.                 op = False
    
18.             End If
    
19.         End If
    
20.     Next
    
21.     Range("h" & mrow) = TextBox2.Value
    
22.     ComboBox1.Text = ""
    
23.     TextBox2.Text = ""
    
24. End Sub

复制代码

grf1973

由于你的OPtionButton排列得很有规律，因此代码还可以进一步简化。

1. Private Sub CommandButton1_Click()
   
2.     Dim mrow As Long
   
3.     mrow = Range("A65536").End(xlUp).Row + 1
   
4.     Range("a" & mrow) = ComboBox1.Value
   
5.     Range("b" & mrow) = TextBox1.Value
   
6.     Dim op As Control
   
7.     For i = 1 To 20
   
8.         Set op = Me.Controls("OptionButton" & i)
   
9.         If op = True Then
   
10.            col = 3 + Int((i - 1) / 4)  '根据op的序号取得工作表对应列数
    
11.             Cells(mrow, col) = op.Caption
    
12.             op = False
    
13.         End If
    
14.     Next
    
15.     Range("h" & mrow) = TextBox2.Value
    
16.     ComboBox1.Text = ""
    
17.     TextBox2.Text = ""
    
18. End Sub

复制代码

guanghui2099

grf1973 发表于 2014-5-6 14:43
由于你的OPtionButton排列得很有规律，因此代码还可以进一步简化。

{:181:}我就一菜鸟入门级小白，代码都是东拼西凑的