Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2248|回复: 7

[已解决]求助如何根据打勾的病种名称写入到B1黄色单元格。谢谢

[复制链接]
发表于 2013-5-24 21:31 | 显示全部楼层 |阅读模式
求助.rar (7.5 KB, 下载次数: 8)
发表于 2013-5-24 21:34 | 显示全部楼层
遍历CONTROL,过滤非OPTIONBUTTON类型的。
回复

使用道具 举报

发表于 2013-5-24 21:43 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton1_Click()
  2.     Dim strTemp$
  3.     Dim objControl As Control
  4.     For Each objControl In Me.Controls
  5.         If TypeName(objControl) Like "CheckBox" Then
  6.             If objControl.Value Then
  7.                 strTemp = strTemp & objControl.Caption & ";"
  8.             End If
  9.         End If
  10.     Next
  11.     If Len(strTemp) > 0 Then
  12.         strTemp = Left(strTemp, Len(strTemp) - 1)
  13.         [b1].Value = strTemp
  14.     Else
  15.         MsgBox "没有选中项"
  16.         [b1].ClearContents
  17.     End If
  18. End Sub

  19. Private Sub CommandButton2_Click()
  20.     Dim objControl As Control
  21.     For Each objControl In Me.Controls
  22.         If TypeName(objControl) Like "CheckBox" Then
  23.             objControl.Value = False
  24.         End If
  25.     Next
  26. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
qinhuan66 + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2013-5-24 21:47 | 显示全部楼层
看看是否符合你的要求?

求助.rar

11.88 KB, 下载次数: 3

评分

参与人数 1 +2 收起 理由
qinhuan66 + 2 谢谢您

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-5-25 08:25 | 显示全部楼层
hwc2ycy 发表于 2013-5-24 21:43

谢谢您hwc2ycy老师。
回复

使用道具 举报

 楼主| 发表于 2013-5-25 08:30 | 显示全部楼层
xdd_sky 发表于 2013-5-24 21:47
看看是否符合你的要求?

谢谢您了。谢谢你的帮忙。不过经测试你的代码如果没有选择项目就点击输入会出错。谢谢。hwc2ycy老师的代码就想到这一点。不过还是谢谢您的参与。
回复

使用道具 举报

 楼主| 发表于 2013-5-25 08:52 | 显示全部楼层
hwc2ycy 发表于 2013-5-24 21:43

老师如果加一个全选的命令按纽又怎么写呢?谢谢
回复

使用道具 举报

发表于 2013-5-25 09:01 | 显示全部楼层
  1.     Dim objControl As Control
  2.     For Each objControl In Me.Controls
  3.         If TypeName(objControl) Like "CheckBox" Then
  4.             objControl.Value = TRUE
  5.         End If
  6.     Next
复制代码

评分

参与人数 1 +3 收起 理由
qinhuan66 + 3 很给力!谢谢

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:26 , Processed in 0.947200 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表