21/05/18 10:24:09.21 YksSPXpR0.net
入力チェックがザル。
特に市区町村コードのチェックが無いのは信じられん。
接種対象地域の住民かどうかを確認するために、市区町村コードの頭２桁(東京都なら２）を見ているだけなのだろう。
市町村など1000程度しかないのだから、テーブルを用意して、Findかけて判定すればいい。
誰でも知ってる、EXCELLの場合、
Function SampleCheck(Byval Code As String) As Boolean
Dim RngScope As Range ' 検索範囲
Dim RngResult As Range ' 検索結果
Set RngScope = Range("A1:A1000") ' ←実際には市町村コードのテーブルの範囲を指定
Set RngResult = RngScope.Find(Code)
SampleCheck = Not (RngResult Is Nothing)
End Function
のような関数作って、チェックするだけ。
このシステム、学生さんのプログラム実習でも、落第のレベルだよ。