[VBA]遍历表中所有表单控件，并将控件的文本复制到另一个表中，控件名(checkbox xx）不定

[VBA]遍历表中所有表单控件，并将控件的文本复制到另一个表中，控件名(checkbox xx）不定

#用VBA遍历CheckBox#可以先遍历所有shaps,再根据名称判断是否复选框。
Sub 遍历CheckBox()
    Dim shp As Shape, i
    i = 1
    For Each shp In Sheet1.Shapes
        If shp.Name Like "Check Box" & "*" Then
            Sheet1.Cells(i, 1) = shp.Name
            shp.Select
            Sheet1.Cells(i, 2) = Selection.Characters.Text
            i = i + 1
        End If
    Next
End Sub 
 
-------【如有疑问，可加新浪微博@芐雨】------

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息