[已解决]当在B列某单元格点击右键自动弹出窗体，写入所多选择的项目到刚才右键的单元

qinhuan66

求助：当在B列某单元格点击右键自动弹出窗体，写入所多选择的项目到刚才右键的单元格。谢谢　　　例如在点击B4右键时弹出窗体写入所打勾的内容到B4单元格每个内容用、号分开。

学生课外运动调查统计表.zip (291.93 KB, 下载次数: 12)

2017-10-23 17:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

0126

2017-10-23 18:02

dim st as string ,x as long
For x = 1 To 15
  If Me.Controls("CheckBox" & x) = True Then st = st & "," & Me.Controls("CheckBox" & x).Caption '选择的数据放入st变量
Next
ActiveCell = Right(st, Len(st) - 1) '粘贴数据到当前选择的单元格

跳转到最佳答案楼层

0126

dim st as string ,x as long
For x = 1 To 15
  If Me.Controls("CheckBox" & x) = True Then st = st & "," & Me.Controls("CheckBox" & x).Caption '选择的数据放入st变量
Next
ActiveCell = Right(st, Len(st) - 1) '粘贴数据到当前选择的单元格

qinhuan66

求助楼上的兄弟，能否在写入的前提下，当选择下面任何一个单选时在此行相应的单元格内打勾。谢谢



学生课外运动调查统计表1.zip (288.84 KB, 下载次数: 24)

2017-10-24 08:17 上传

点击文件名下载附件

0126

qinhuan66 发表于 2017-10-24 08:20
求助楼上的兄弟，能否在写入的前提下，当选择下面任何一个单选时在此行相应的单元格内打勾。谢谢

For x = 1 To 3
  If Me.Controls("OptionButton" & x) = True Then st = Left(Me.Controls("OptionButton" & x).Caption, 1) :exit for  '截取名字第一个字符并结束循环
Next
If st Like "[A-Z]" Then Application.Intersect(ActiveCell.EntireRow, Columns(st)) = "√" Else MsgBox "名字第一位不为字母"  '判断st是否为单个字母, 是 选取当前单元格行和st列共同区域输入值

hoo_yee

正需要。谢谢分享！