excel用自定义函数获取某月中指定日期的数量
发布时间：2022-05-30 15:32:29
如果我们要获取某月中指定日期的数量，例如，2009年1月中有几个星期一？用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入自定义函数：
Function WeekDaysInMonth(iYear As Integer, iMonth As Integer, iDay As Integer)
Dim i, iDaysInMonth As Integer
Dim LastDateInMonth As Date
If iMonth < 1 Or iMonth > 12 Or iDay < 1 Or iDay > 7 Then
WeekDaysInMonth = "错误"
Exit Function
End If
iDaysInMonth = day(DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)))
LastDateInMonth = DateSerial(iYear, iMonth, iDaysInMonth)
For i = iDaysInMonth – 1 To 0 Step -1
If Weekday(LastDateInMonth – i, vbMonday) = iDay Then
WeekDaysInMonth = WeekDaysInMonth + 1
End If
Next i
End Function
这个自定义函数有3个整数参数，即年、月和代表星期的数值。最后一个参数用1-7的数值表示星期一至星期日。
使用方法是在单元格中输入
=weekdaysinmonth(年，月，星期数值)
例如要获取2009年12月中星期日的数量，在单元格中输入公式：
=weekdaysinmonth(2009,12,7)
公式结果返回4，表示2009年12月中有4个星期日。另外，输入的参数如果超出范围，如输入“=weekdaysinmonth(2009,12,10)”，最后一个参数超出范围，公式返回“错误”。
0
投稿猜你喜欢
最近有很多win7系统用户反映，在连接无线网络的时候，出现提示“windows玩法连接到这个网络”，导致了无线网络连接失败，无法上网，用户反- 很多人在使用office2007写文档的时候都遇到了不知道怎么查看Word文档的页数，因为在使用全屏模式的时候office2007不会在下面
- 怎么删除我们电脑的开机密码呢?很多用户朋友刚开始购买电脑的时候为了安全和隐私的考虑都会给自己电脑设置开机密码，那么怎么删除呢?下面，小编就为
- 毫无疑问一张合适的图片在视觉上的冲击力都是要吊打任何干巴巴的文字和图表的，本教程教脚本之家的各位powerpoint教程学习者如何制作好看的
- 最近有不少朋友向笔者反馈一个这样的电脑故障问题，说电脑关机不知道为什么变得很慢，有的直接说电脑关机没反应了。对于关机很慢以前笔者确实接触到不
- 在Excel2010中，无法输入字符：/ ，而是在键盘上按下按键时出现悬浮的快捷键。如下图所示： 方法/步骤解决办
- 曾在今年4月份被暴雪官方封停的《魔兽世界》最大 * Nostalrius在11月份重新恢复了测试，并受到玩家们的热烈欢迎。在上周完成第三次测试
- Win系统在使用浏览器提示安全证书有问题该怎么办？最近有用户使用浏览器浏览网页时总是会提示“此站的安全证书有问题”，对于这个问题该怎么解决呢
- 合并单元格很简单，只需要选取要合并的多个单元格，点合并就可以把单元格合并成一个了。如下图所示。 excel2007
- 微软Win11自带播放器不能加载字幕怎么办？很多Win11小伙伴都反映使用自带播放器无法使用加载字幕，这种情况需要怎么解决呢？下面就来看看吧
- 电脑蓝屏代码0x000000CE怎么办？我们在使用电脑的过程中经常会遇到各种各样的问题，总是让我们头疼不已，但是遇到也是没有办法的事情，那么
- 在Excel加载规划求解器的时候出现找不到ProPlusWW.msi安装包的问题，导致无法加载。上网搜索了一下，尝试下载其他版本
- win10兼容性视图怎么设置？在win10系统里，已经默认使用edge浏览器进行默认的浏览，但是在某些特殊场景中，需要用到ie的兼容性视图，
- 任务栏中的“任务视图”按钮已经变成了传说已久的“时间轴/时间线（Timeline）”样式。看来这一天终于来了，在Win10秋季创意者更新跳票
- 很多网友都有这个烦恼，在打开住页面时，页面就会开始变化，不再是自己熟悉的版本主页，所以要解决IE8被篡改的问题，我们就要充分的挖掘Windo
- 小影记如何调整视频时长？小影记是一款相册影片制作APP软件，用户们可通过小影记轻松的将照片制作成短视频，那么当我们制作完短视频后该如何调整视
- 首先我们来看看今天要学习的内容效果图：本节课要给大家分享的是高光的制作，看到这个月亮形状和发光的椭圆，就是本节课的重点讲解内容。效果图展示重
- 最近有朋友问称电脑开始都是正常的，后面突然电脑就没声音了，不知道怎么回事。对于这种电脑没声音的情况，其实无非就是硬件与软件以及设备的问题，下
- 用户在使用Win11电脑的时候，打开移动热点出现电脑无法上网但是通过其他电子设备连接电脑的热点却可以上网，这是怎么回事呢？下面小编就带着大家
- PPT制作技巧：如何用PPT绘制设计月牙形环形图表达？有同学问“我找了一个奇怪的图形，不知道你能不能搞定？看上去好像还挺难的！”
