网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月23日
漏签
0
天
vba吧
关注:
16,895
贴子:
65,713
看贴
图片
吧主推荐
游戏
13
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
for each BX in selection ar
只看楼主
收藏
回复
Jason_CH_Zhou
武林新贵
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
for each BX in selection
arrBx(i)=BX.Text
i=i+1
next BX
选中几个文本框,运行以上代码,我想象的结果是他会把所有文本框的内容读取到数组里面,可实际上只是重复工作表第一个文本框的文本内容
Jason_CH_Zhou
武林新贵
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
有对VBA深入研究的,私信加好友大家沟通经验
ISD_狮子座
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
可以加我QQ24823610
首先你用的是in selection,所以只会对当前你选的文件框取值了,你这个是WORD还是EXCEL呢?应该用in Shapes
ISD_狮子座
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
Sub test()
Dim arrbx()
ReDim arrbx(Selection.Count)
For Each BX In Selection
arrbx(i) = BX.Text
i = i + 1
Next BX
End Sub
实测是正常的,不知道你是哪里出错了
_forever_允儿
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
不知道 你的实际需求 ,如果选择的文本框 固定那么几个
3楼 说的, 历遍 shapes ,当控件名称与你需要的文本框名称 匹配时 ,值写入数组
贴吧用户_Q12DaVK
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
Sub test()
Dim arrbx()
ReDim arrbx(Selection.Count)
For Each BX In Selection
i = i + 1
arrbx(i) = BX.Tex
Next BX
End Sub
实测正常,建议把计数器i = i + 1放在arrbx(i) = BX.Tex前面
贴吧用户_Q12DaVK
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
楼主不会只选中了一个文本框吧
贴吧用户_Q12DaVK
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
贴吧用户_Q12DaVK
人中龙凤
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示