ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > 我的酷贴 > Excel VBA > VBA从入门到精通例子学习讲解

VBA从入门到精通例子学习讲解

作者：绿色风 分类： 时间：2022-08-18 浏览：108
楼主
wise		 为督促自己好好系统学习VBA，特意开这样一个帖子。请大家不要跟帖回复，本帖为本人学习之用

Date常量：判断某日为星期几的自定义函数
思路：通过一个weekday函数来判断，然后通过条件语句来进行条件判断。
解法1：

  2. Public Function week(mydate As Date) As String
  3.   If Weekday(mydate) = vbMonday Then
  4.      week = "星期一"
  5.   ElseIf Weekday(mydate) = vbTuesday Then
  6.      week = "星期二"
  7.   ElseIf Weekday(mydate) = vbWednesday Then
  8.      week = "星期三"
  9.   ElseIf Weekday(mydate) = vbThursday Then
  10.      week = "星期四"
  11.   ElseIf Weekday(mydate) = vbFriday Then
  12.     week = "星期五"
  13.   ElseIf Weekday(mydate) = vbSaturday Then
  14.     week = "星期六"
  15.   ElseIf Weekday(mydate) = vbSunday Then
  16.     week = "星期日"
  17.   End If
  18. End Function
解法2：

  2. Function getweek(mydate As Date) As String
  3.   Select Case Weekday(mydate)
  4.   Case vbMonday
  5.       getweek = "星期一"
  6.   Case vbTuesday
  7.       getweek = "星期二"
  8.   Case vbWednesday
  9.       getweek = "星期三"
  10.   Case vbThursday
  11.       getweek = "星期四"
  12.   Case vbFriday
  13.       getweek = "星期五"
  14.   Case vbSaturday
  15.       getweek = "星期六"
  16.   Case vbSunday
  17.       getweek = "星期日"
  18.   End Select
  19. End Function
2楼
wise		 MsgBox参数常量的使用举例：
  1. Sub StudyMsgbox()
  2.    If MsgBox("喜欢逛ET社区？", vbYesNoCancel + vbDefaultButton3 + vbQuestion, "经常喜欢来逛") = vbNo Then Exit Sub
  3. End Sub
Msgbox图标与按钮常数详解：
常数值描述
vbOKOnly0只有 OK 按钮（缺省值）
vbOKCancel1OK 和 Cancel 按钮
vbAbortRetryIgnore2Abort、Retry，和 Ignore 按钮
vbYesNoCancel3Yes、No，和 Cancel 按钮
vbYesNo4Yes 和 No 按钮
vbRetryCancel5Retry 和 Cancel 按钮
vbCritical16关键消息
vbQuestion32警告询问
vbExc**tion48警告消息
vbInformation64通知消息
vbDefaultButton10第一个按钮是缺省的（缺省值）
vbDefaultButton2256第二个按钮是缺省的
vbDefaultButton3512第三个按钮是缺省的
vbDefaultButton4768第四个按钮是缺省的
vbApplicationModal0应用程序形态的消息框（缺省值）
vbSystemModal4096系统强制返回的消息框
vbMsgBoxHelpButton16384添加Help按钮到消息框
VbMsgBoxSetForeground65536指定消息框窗口作为前景窗口
vbMsgBoxRight524288文本是右对齐的
vbMsgBoxRtlReading1048576指定在希伯来语和阿拉伯语系统中，文本应当显示为从右到左读

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap