[已解决]求助如何根据单选项按纽的医院名称写入到B1黄色单元格。谢谢

qinhuan66

求助如何在单项按纽选择后点击选择按纽提交到B1单元格
求助.rar (9.95 KB, 下载次数: 7)

2013-5-25 09:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-25 09:38

1. Private Sub CommandButton1_Click()
   
2. 
   
3.         Dim objControl As Control
   
4.         For Each objControl In Me.Controls
   
5.             If TypeName(objControl) Like "OptionButton" Then
   
6.                 If objControl.Value Then
   
7.                     [b1].Value = objControl.Caption
   
8.                     Exit Sub
   
9.                 End If
   
10.             End If
    
11.         Next
    
12.         MsgBox "没有选择项"
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

跟上一个方法差不多。
用SELECT CASE最好。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2. 
   
3.         Dim objControl As Control
   
4.         For Each objControl In Me.Controls
   
5.             If TypeName(objControl) Like "OptionButton" Then
   
6.                 If objControl.Value Then
   
7.                     [b1].Value = objControl.Caption
   
8.                     Exit Sub
   
9.                 End If
   
10.             End If
    
11.         Next
    
12.         MsgBox "没有选择项"
    
13. End Sub

复制代码

qinhuan66

hwc2ycy 发表于 2013-5-25 09:34
跟上一个方法差不多。
用SELECT CASE最好。

知识好深奥，一时难于理解。唉，读书不努力，现在努力学知识。

hwc2ycy

1.     Dim str$
   
2.     Select Case True
   
3.         Case Me.OptionButton1.Value
   
4.             str = Me.OptionButton1.Caption
   
5.         Case Me.OptionButton2.Value
   
6.             str = Me.OptionButton2.Caption
   
7.         Case Me.OptionButton3.Value
   
8.             str = Me.OptionButton3.Caption
   
9.         Case Me.OptionButton4.Value
   
10.             str = Me.OptionButton4.Caption
    
11.         Case Me.OptionButton5.Value
    
12.             str = Me.OptionButton5.Caption
    
13.         Case Me.OptionButton6.Value
    
14.             str = Me.OptionButton6.Caption
    
15.     End Select
    
16.     If Len(str) > 0 Then
    
17.         [b1].Value = str
    
18.     Else
    
19.         MsgBox "请选择一项"
    
20.     End If

复制代码

项数少时可以这样。