• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

【变量批量“释放”】重新赋值写法 [复制链接]

1#
本帖最后由 we似曾相识 于 2011-5-27 17:13 编辑

一般脚本用途不大,变量很多有需要重置变量值时用它方便

'Option Explicit
Dim a, b, c, d
a=1
b=2
c=3
d=4
Msgbox a &vbcrlf& b &vbcrlf& c &vbcrlf& d
Call EraseVal("a, c, d", 0) '批量定义变量, 逗号隔开
Msgbox a &vbcrlf& b &vbcrlf& c &vbcrlf& d
'子程序内容回复可见

Sub EraseVal(Str, Var) '变量字符串集合(逗号隔开),对象变量值
Dim Str_Split, i
If Str="" Then Exit Sub '加上Option Explicit可强制声明变量
Str_Split = Split(Str, ",")
For i=0 to UBound(Str_Split)
Execute(Str_Split(i) & "=" & Var)
Next
End Sub


活动就要结束啦,大家都在拉票,我也拉拉票。
希望朋友们多多支持,非常感谢!
我和按键精灵的故事——we似曾相识
http://bbs.vrbrothers.com/redirect.php?tid=220696&goto=lastpost#lastpost

We're brothers that is why we are called vrbrothers

[新手密卷]“诱惑”高手帮忙有高招!
2#

Good!!!!!!!!

3#

活动就要结束啦,大家都在拉票,我也拉拉票。
希望朋友们多多支持,非常感谢!

正在撰写博客,按键代码之手到擒来篇
4#

66666666666

5#

31231312

6#

感谢大佬

7#

大家分享學習

8#

谢谢分享

9#

66666大佬牛逼~~~~~

10#

RE:【变量批量“释放”】重新赋值写法

11#

学习一下

12#


13#

hhhhhjj

14#

膜拜一下

15#

学习学习

16#


17#

刚好需要

18#

来迟了!

19#

酷酷酷

20#

该用户帖子内容已被屏蔽

发新话题 回复该主题