/ 用excelvba写的日历代码
用excelvba写的日历代码
用excelvba写的日历代码
用excelvba写的日历部分代码如下PrivateSubCalendar(ByValiyear,ByValimonth)Foricol=1To7Forirow=3To8Cells(irow,icol)=""NextNextiday=DateSerial(iyear,imonth,1)'获得相应年月第一天的日期irow=3icol=Weekday(iday)'计算该天是星期几DoCells(irow,icol)=Day(iday)'在单元格填入日期IfWeekday(iday)=vbSaturdayThen'星期六则的换行irow=irow+1icol=1Elseicol=icol+1EndIfiday=DateAdd("d",1,iday)'日期递增LoopWhile(Day(iday))<＞1EndSub 本软件ID:3790682
用excelvba写的日历部分代码如下PrivateSubCalendar(ByValiyear,ByValimonth)Foricol=1To7Forirow=3To8Cells(irow,icol)=""NextNextiday=DateSerial(iyear,imonth,1)'获得相应年月第一天的日期irow=3icol=Weekday(iday)'计算该天是星期几DoCells(irow,icol)=Day(iday)'在单元格填入日期IfWeekday(iday)=vbSaturdayThen'星期六则的换行irow=irow+1icol=1Elseicol=icol+1EndIfiday=DateAdd("d",1,iday)'日期递增LoopWhile(Day(iday))<＞1EndSub 本软件ID:3790682
文件下载
资源详情
联网
评论信息
-
-
-
qibujinglong110:用在公司的项目上,正好,谢谢了2015-09-10 -
cobolcmd:挺好的，下载用了一下呢。学习之用不错2014-10-25
-
ywjsaillimited:给学生上课找个例子，还不错。2014-06-05
-
zjuben:不适合我的项目，不过做的不错2014-06-01
其他资源
- NGUI2020.1.5
- AByteofPython(简明Python教程)(第4版)中文版+书中配套源码-Python其他资源
- VSCodeUserSetup-x64-1.41.1(1).exe
- 堡哥自定义悬浮窗类库.rar
- 大数据技术脑图
- 自学是门手艺(整理自GitHub李笑来)
- awesome-network-js：用纯JS编写的收集层资源列表-源码
- 校园小商品交易系统源码20131225
- ca-archive：在WebExtensions启示录之前创建的经典Firefox附加组件的目录-源码
- msp430f5529三种频率PWM定时输入
- 最快、最简单的实现底部标签导航（仿闲鱼）
- 百度地图JavaScriptAPI离线版亲测可用.rar
- html仿微信领取宝密码弹出框
- Labview图片分割
- 华工编译原理实验（词法分析+语法分析）
- 基于VC的机器人路径规划仿真平台
- 计算机图形学实践教程代码实验六.cpp
- 百度地图坐标拾取器（可转换为高德坐标）
- 彗星撞地球（64K动画）
- DS_AW9523B_EN_Multi-FunctionLEDDriverAndGPIOControllerWithIICInterface_V
免责申明
【好快吧下载】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【好快吧下载】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【好快吧下载】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明