[已解决]窗体复选框的信息能不能抓取到单元格里？

JANEY

窗体复选框，如果没有事先在属性里设置链接，能不能通过VBA批量抓取到单元格里呢？ JOsbGFsJ.rar (1.9 KB, 下载次数: 6)

2009-11-17 13:35 上传

点击文件名下载附件
窗体复选框的信息能不能抓取到单元格里？

最佳答案

月排行榜 / 总排行榜

yuhe0008

2009-11-17 15:59

Sub test()
Dim i As Integer, s As String, arr As Variant
For i = 1 To 3
If Sheet1.CheckBoxes("复选框 " & i).Value = 1 Then
s = s & Sheet1.CheckBoxes("复选框 " & i).Text & ","
End If
Next
If s = "" Then
MsgBox "一个都不选？"
Exit Sub
End If
s = Left(s, Len(s) - 1)
arr = Split(s, ",")
[a11:a13].ClearContents
[a11].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

跳转到最佳答案楼层

canlly

你是谁的谁?[em09]

hhzjxss

阿淘帮都帮写了代码，还是回一下帖子吧！[em01]

yuhe0008

Sub test()
Dim i As Integer, s As String, arr As Variant
For i = 1 To 3
If Sheet1.CheckBoxes("复选框 " & i).Value = 1 Then
s = s & Sheet1.CheckBoxes("复选框 " & i).Text & ","
End If
Next
If s = "" Then
MsgBox "一个都不选？"
Exit Sub
End If
s = Left(s, Len(s) - 1)
arr = Split(s, ",")
[a11:a13].ClearContents
[a11].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

yuhe0008

Sub test()
Dim i As Integer, s As String, arr As Variant
For i = 1 To 3
If Sheet1.CheckBoxes("复选框 " & i).Value = 1 Then
s = s & Sheet1.CheckBoxes("复选框 " & i).Text & ","
End If
Next
If s = "" Then
MsgBox "一个都不选？"
Exit Sub
End If
s = Left(s, Len(s) - 1)
arr = Split(s, ",")
[a11:a13].ClearContents
[a11].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

windvchina

............

居然是checkboxes....晕下...

zsd5237

学习[em02][em02]