平特肖公式规律|真虎骨平特肖114|
5個免費課程
網站公告
·Access快速平臺QQ群號:156702533    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

我與疫情相關的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群 (群號:198348076)       access源碼網店

最新評論 查看更多評論(1)

2020/2/12 13:38:28鄉下人
來我這兒吧!我有特別通行證,我在高速路口夾道歡迎您!這么大一寶貝人才沒人敢要了。

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助