Question

VBA 如何和复选框的内容 添加到一个单元格里





若以下回答无法解决问题，邀请你更新回答

Answer 1

不明白你的意思

追问

多复选框选中后，按确定，能把多个复选框的值添加到一个单元格里面

追答

可以啊，

不知道你复选框的命称。。估计叫checkbox1,checkbox2吧

range("m9")=iif(checkbox1.value,checkbox1.caption&",","")&iif(checkbox2.value,checkbox2.caption,"")
单元格自己定，
或者用循环
dim r
for r =1 to 2
if me.controls("checkbox"& r).value then
cells(1,1)=iif(len(cells(1,1))=0,"",cells(1,1)&",")& me.controls("checkbox"& r).caption
next r
end if

追问

单元格自己定，什么意思啊。。。。。

追答

呃，你想写入那个单元格不写入那个单元格，按你上面的，可能是
cells(xrow,"m")=iif(checkbox1.value,checkbox1.caption&",","")&iif(checkbox2.value,checkbox2.caption,"")

追问

类型声明字符与声明的数据类型不符？？？？？

还有

追答

在哪一段错误？上面代码内又没有错啊，xrow的值大于32767了
&号前后加一个空格

追问

追答

唉，点击到这两个复选框，截图，注意把属性窗口也带上。

追问

追答

如方便，传文件吧，jhtt-666@163.com