ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2019函数公式学习大典 不用妈妈陪默写神器 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2016实战技巧学习锦囊 WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 67327|回复: 149

[分享][转帖]十七种可用一行代码完成的技巧

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-4-14 00:17 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
十七种可用一行代码完成的技巧(有些我也没有试过) 编程要讲效率,尽管现在的计算机,速度是不成问题,但是,如果一行代码能完成,为什么要用更多的代码了? 1、下列代码,则是对逻辑运算不清楚造成。 If A=true Then C= Not B Else C= B End If 可以: C=A XOR B 2、如果加上下列代码: If C=true then D=28 Else D=29 End IF D=Iif((A XOR B),28,29) 3、布尔赋值,常被人忽略: 如: If A= 13 then B=True Else B=False End If 可以: B = A = 13 或者: B = (A = 13) 我更喜欢用后者,这样代码易于看懂。 4、字串有效性检测: If IsNull(StrOrg) Or StrOrg="" then 可以: If Len(StrOrg & "")<>0 then 5、字串重复次数 RepeatCount=Ubound(Split(StrOrg,StrFind)) 同样,如果要对字串有效性判断: RepeatCount=Iif((Len(StrOrg & "")=0), 0, Ubound(Split(StrOrg,StrFind)) 6、有时需要判断字串数组中是否有这一元素,这时最好不用数组,而用分隔符字串 于是: If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then 则表明,此元素不存在。 7、对数组初始化: 最好用变体,这样,也是一行语句: 如: IntArr=Array(12,28,29,30,31,52,24,60) 注意,此时需要用变量后缀。上面代码,如要定义为长整型,则 IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&) 要将IntArr 定义为变体 8、判断大小: IntMax = Iif((IntA > IntB), IntA, IntB) IntMin = Iif((IntA < IntB), IntA, IntB) 9、按索引的Select Case Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, "Speedy", "United", "Federal") End Function 10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样,否则会出错) Function MatchUp (CityName As String) Matchup =tch(CityName = "London", "English", CityName _ = "Rome", "Italian", CityName = "Paris", "French") End Function 11、使用Iif,前面已有。 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe > 1000, "Large", "Small") End Function 12、字串动态数组是否已初始化 If Len(Join(StrArr))=0 then 字串动态数组未初始化 13、指定只读CombBox的当前值,如果能确认这个值就在其中,一定不会错,则: Combbox=CurValue 注意,不可以写成:Combbox.text=CurValue 前者实际是写 _default 这个属性,而后者则是写Text 因为只读,则会导致错误 14、如果有下列代码: Select Case CombBox.text Case "London" Call FuncStrLang(3) Case "Rome" Call FuncStrLang(5) ...... End Select 则可以用ItemData属性 即:"London" 的 Itemdata=3 "Rome" 的 Itemdata=5 于是: Call FuncStrLang(CombBox.ItenData) 15、如果有下列代码: Select Case CombBox.text Case "London" Call ClsCity.CityIntr_London Case "Rome" Call ClsCity.CityIntr_Rome ...... End Select 只要: CallByName ClsCity, "CityIntr_" & CombBox.text, vbMethod 16、复制数组到另一变量中: Dim iOrgArr(30) as Integer Dim iDesArr as Variant ...... iDesArr = iOrgArr 即主变体直接取数组指针,则所有元素都复制了过去 17、如果有下列代码: Do While Not RsAdo.Eof If len(DesStr)<>0 then DesStr=DesStr & VbTab End if DesStr=RsAdo!Rec_id RsAdo.MoveNext loop 则只要: DesStr=RsAdo.GetString()
[此贴子已经被作者于2005-4-14 0:18:31编辑过]

TA的精华主题

TA的得分主题

发表于 2005-4-14 00:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

收到,谢谢

TA的精华主题

TA的得分主题

发表于 2005-4-14 02:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-4-14 05:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
经典、有用、直观

TA的精华主题

TA的得分主题

发表于 2005-4-14 07:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢大师教导!需要反复学习。

TA的精华主题

TA的得分主题

发表于 2005-4-14 08:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-4-14 08:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-4-14 08:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-4-14 09:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-4-14 09:09 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-19 10:38 , Processed in 0.054258 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表