VBA常用技巧代码解析

yuanzhuping

技巧156         获得当月的最后一天
       在实际工作中经常需要根据给定的日期计算其所属月份的最后一天，此时可以使用DateSerial函数完成计算，如下面的代码所示。

1. #001  Sub Serial()
   
2. #002      Dim DateStr As Byte
   
3. #003      DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
4. #004      MsgBox "本月的最后一天是" & Month(Date) & "月" & DateStr & "号"
   
5. #005  End Sub

复制代码

代码解析：
       Serial过程配合使用了4个VBA内置函数Year、Month、Day和DateSerial完成计算并使用消息框显示当月最后一天的日期。
       Year、Month和Day函数分别返回代表指定日期的年、月、日的整数，语法如下：
       Year(Date)
       Month(Date)
       Day(Date)
       其中参数Date可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。
       DateSerial函数返回包含指定的年、月、日的Variant (Date)，语法如下：
       DateSerial(year, month, day)
       其中参数year、 month、day分别表示指定的年、月、日。
       为了指定某个日期， DateSerial 函数中的每个参数的取值范围应该是可接受的，即日的取值范围应在1-31之间，而月的取值范围应在1-12之间。但是，当一个数值表达式表示某日之前或其后的年、月、日数时，也可以为每个使用这个数值表达式的参数指定相对日期。当任何一个参数的取值超出可接受的范围时，它会自动地在可接受的时间单位进行调整，例如本例中的day参数设置为0，则被解释成month参数指定月的前一天，即表达式Month(Date) + 1指定的下一个月的前一天，也就是本月的最后一天。
       运行Serial过程结果如图所示。
      

ykx042907

袁版主：您好！
    再次麻烦您！
    本人重新制作了一个，可以禁用了。但之前有个工作薄，当我运行AddPrivateNames这个过程时，却出现错误提示，最终不能使用“关于禁用宏则关闭工作薄”之代码。请问是怎么回事呀？非常感谢！

carpe_diem

版主辛苦了
做了这么多整理搜集工作。

ykx042907

上面问题的附件！

firemars5261

太感谢版主了,学习中...

ljx63426

尊敬的袁老师：您好！
   您为了贡献于人类，花费您大量地时间与精力，实在难能可贵；
   您为了我们这些EXCEL VBA菜鸟们，不辞辛劳，实在令人敬佩；
   在这里，本人由衷地感谢您的功绩！谢谢！谢谢！谢谢~~~~~~

迎风轻扬

不是感谢就可以表达的，楼主是无私奉献！
如果不好好学习，就对不起楼主了。

ashhp230406

感谢版主！！！

huangmm_124

dddddddddddddddddddddd

yuanzhuping

技巧157         四舍五入运算
       在实际工作中经常需要对数值或计算结果进行四舍五入运算，此时可以使用VBA内置的Round函数。Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果，语法如下：
       Round(expression [,numdecimalplaces])
       参数expression是必需的，要进行四舍五入运算的数值表达式。
       参数numdecimalplaces是可选的，数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。
       但是VBA内置的Round函数在对数值进行四舍五入运算时实行的是Bankre舍入，而不是算术舍入。按Bankre舍入规则，如果保留位数的下一个数字正好是5则其后没有其他有效数字，则按保留位最后一位“偶舍奇入”的方法进行处理。比如Round(1.5)的保留位最后为1，是奇数，小数位的5入上去，因此Round(1.5)的运算结果是2；而Round(4.5)的保留位最后为4，是偶数，小数位的5舍去，因此Round(4.5) 的运算结果是4而不是5。
       Bankre舍入规则虽然有其合理性，但不符合实际工作的需要。在实际应用中使用以下两种方法避免Bankre舍入：
157-1        极小值修正法
       在使用Round函数时对需要舍入的数值先加上极小值再调用VBA内置的Round函数，如下面的代码所示。

1. #001  Sub aTestRound()
   
2. #002      MsgBox "Round(4.5)=" & Round(4.5) & Chr(13) & "Round(4.5)=" & Round(4.5 + 0.0000001)
   
3. #003  End Sub

复制代码

代码解析：
       aTestRound过程分别调用VBA内置的Round函数和加上极小值再调用VBA内置的Round函数在洗染店框中显示两者运算结果，如图所示。
      
       从运算结果中可以发现，加上极小值后Round(4.5)已正确运算为5而不是4。
157-2        调用工作表函数法
       还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。

1. #001  Sub bTestRound()
   
2. #002      MsgBox "Round(4.5)=" & Round(4.5) & Chr(13) & "Round(4.5)=" & Application.Round(4.5, 0)
   
3. #003  End Sub

复制代码

代码解析：
       bTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果，如图所示。
      
       从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。

[ 本帖最后由 yuanzhuping 于 2009-5-22 07:07 编辑 ]