我与疫情相关的VBA源码
时 间:2020-02-08 10:22:47
作 者:张志 ID:8 城市:上海 QQ:2851379730
摘 要:学习一下自定义函数。
正 文:
一、背景
1、我现在在沅陵农村,打算回家,家在无锡,身份证是无锡的
2、无锡的家距离老家沅陵1300公里
3、无锡检查站规则:凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返
4、沅陵检查站规则:外地人一律劝返
二、源码
Public Sub 我要回家() Dim i As Long i = 0 100 If 无锡检查口("湖南", "江苏") = "劝返" Then i = i + 1 If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "无锡不准下高速,你打算原路返回 【沅陵】 吗?", _ vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then '高速调头去沅陵 i = i + 1 If 湖南沅陵检查口("江苏") = "劝返" Then If MsgBox("已开 【" & 1300 * i & "】 公里!" + vbNewLine + "沅陵不准下高速,你打算原路返回 【无锡】 吗?", _ vbExclamation + vbYesNo + vbDefaultButton2, "下一步打算怎么办?") = vbYes Then GoTo 100 Else MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区!", vbCritical, "回家之路" Exit Sub End If End If Else MsgBox "已开 【" & 1300 * i & "】 公里!" + vbNewLine + "心好累!把家安在高速服务区", vbCritical, "回家之路" Exit Sub End If End If End Sub Public Function 无锡检查口(问你从哪里来 As String, 身份证哪里的 As String) As String '凡从湖北、浙江、广东、河南、湖南、安徽、江西七省来锡人员一律劝返 '年前去湖南老家过春节,现在回无锡,开车1300公里 '到了无锡检查口,工作人员问从哪来 Select Case 问你从哪里来 Case "湖北" 无锡检查口 = "劝返" '高速调头回去 Case "浙江" 无锡检查口 = "劝返" '高速调头回去 Case "广东" 无锡检查口 = "劝返" '高速调头回去 Case "河南" 无锡检查口 = "劝返" '高速调头回去 Case "湖南" 无锡检查口 = "劝返" '高速调头回去 Case "安徽" 无锡检查口 = "劝返" '高速调头回去 Case "江西" 无锡检查口 = "劝返" '高速调头回去 End Select '开车1300公里终于到了湖南老家检查口,工作人员请你出示身份证 If 身份证哪里的 = "江苏" Then 无锡检查口 = "劝返" '凡是外地人,劝返 End If End Function Public Function 湖南沅陵检查口(身份证哪里的 As String) As String '凡是外地人,劝返 '从无锡开车1300公里终于到了湖南老家沅陵检查口,工作人员请你出示身份证 If 身份证哪里的 = "江苏" Then 湖南沅陵检查口 = "劝返" End If End Function
三、示例下载
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)