求教vba老师们
答案:1 悬赏:50 手机版
解决时间 2021-04-01 07:33
- 提问者网友：富士山上尢
- 2021-03-31 18:01
求教vba老师们
最佳答案
- 五星知识达人网友：怙棘
- 2021-03-31 18:17
以下代码，为依次显示文本框中的内容
如果是变量调用，自己改动即可
Sub main()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
MsgBox shp.OLEFormat.Object.Text
Next
End Sub追问如果要让框框里面的值为系统日期的话该怎么写，我是这样写的，可是跑不过去：worksheets(3).shapes.textbox22.OLEFormat.Object.Text=Date
如果是变量调用，自己改动即可
Sub main()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
MsgBox shp.OLEFormat.Object.Text
Next
End Sub追问如果要让框框里面的值为系统日期的话该怎么写，我是这样写的，可是跑不过去：worksheets(3).shapes.textbox22.OLEFormat.Object.Text=Date
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯