我与疫情相关的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

三、示例下载

单击此下载示例