[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

 

 

-------【如有疑问，可加新浪微博@芐雨】------

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yye7v22f2evxejj3xe.html