都道府県を地方名に変換する
VBAを使用して都道府県名を入力すると地方名に変換して返却するプログラムを作成します。
以下は、参考までに変換表です。
| 地方名 | 都道府県名 |
|---|---|
| 北海道地方 | 北海道 |
| 東北地方 | 青森県, 岩手県, 秋田県, 宮城県, 山形県, 福島県 |
| 関東地方 | 茨城県, 栃木県, 群馬県, 埼玉県, 千葉県, 東京都, 神奈川県 |
| 中部地方 | 新潟県, 富山県, 石川県, 福井県, 山梨県, 長野県, 岐阜県, 静岡県, 愛知県 |
| 近畿地方 | 三重県, 滋賀県, 奈良県, 和歌山県, 京都府, 大阪府, 兵庫県 |
| 中国地方 | 岡山県, 広島県, 鳥取県, 島根県, 山口県 |
| 四国地方 | 香川県, 徳島県, 愛媛県, 高知県 |
| 九州地方 | 福岡県, 佐賀県, 長崎県, 大分県, 熊本県, 宮崎県, 鹿児島県, 沖縄県 |
SELECT CASEを使ったコード全体
Sub 都道府県を地方に変換()
Dim prefectures As String
prefectures = InputBox("都道府県を入力してください", "都道府県を地方に変換する", "")
Dim area As String
Select Case prefectures
Case "北海道"
area = "北海道地方"
Case "青森県", "岩手県", "秋田県", "宮城県", "山形県", "福島県"
area = "東北地方"
Case "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県"
area = "関東地方"
Case "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", "静岡県", "愛知県"
area = "中部地方"
Case "三重県", "滋賀県", "奈良県", "和歌山県", "京都府", "大阪府", "兵庫県"
area = "近畿地方"
Case "岡山県", "広島県", "鳥取県", "島根県", "山口県"
area = "中国地方"
Case "香川県", "徳島県", "愛媛県", "高知県"
area = "四国地方"
Case "福岡県", "佐賀県", "長崎県", "大分県", "熊本県", "宮崎県", "鹿児島県", "沖縄県"
area = "九州地方"
End Select
MsgBox (area)
End Sub
コレクションを使ったコード全体
Sub 都道府県を地方に変換2()
Dim prefectures As String
prefectures = InputBox("都道府県を入力してください", "都道府県を地方に変換する2", "")
Dim prefecturesList As New Collection
prefecturesList.Add "北海道地方", "北海道"
prefecturesList.Add "東北地方", "青森県"
prefecturesList.Add "東北地方", "岩手県"
prefecturesList.Add "東北地方", "秋田県"
prefecturesList.Add "東北地方", "宮城県"
prefecturesList.Add "東北地方", "山形県"
prefecturesList.Add "東北地方", "福島県"
prefecturesList.Add "関東地方", "茨城県"
prefecturesList.Add "関東地方", "栃木県"
prefecturesList.Add "関東地方", "群馬県"
prefecturesList.Add "関東地方", "埼玉県"
prefecturesList.Add "関東地方", "千葉県"
prefecturesList.Add "関東地方", "東京都"
prefecturesList.Add "関東地方", "神奈川県"
prefecturesList.Add "中部地方", "新潟県"
prefecturesList.Add "中部地方", "富山県"
prefecturesList.Add "中部地方", "石川県"
prefecturesList.Add "中部地方", "福井県"
prefecturesList.Add "中部地方", "山梨県"
prefecturesList.Add "中部地方", "長野県"
prefecturesList.Add "中部地方", "岐阜県"
prefecturesList.Add "中部地方", "静岡県"
prefecturesList.Add "中部地方", "愛知県"
prefecturesList.Add "近畿地方", "三重県"
prefecturesList.Add "近畿地方", "滋賀県"
prefecturesList.Add "近畿地方", "奈良県"
prefecturesList.Add "近畿地方", "和歌山県"
prefecturesList.Add "近畿地方", "京都府"
prefecturesList.Add "近畿地方", "大阪府"
prefecturesList.Add "近畿地方", "兵庫県"
prefecturesList.Add "中国地方", "岡山県"
prefecturesList.Add "中国地方", "広島県"
prefecturesList.Add "中国地方", "鳥取県"
prefecturesList.Add "中国地方", "島根県"
prefecturesList.Add "中国地方", "山口県"
prefecturesList.Add "四国地方", "香川県"
prefecturesList.Add "四国地方", "徳島県"
prefecturesList.Add "四国地方", "愛媛県"
prefecturesList.Add "四国地方", "高知県"
prefecturesList.Add "九州地方", "福岡県"
prefecturesList.Add "九州地方", "佐賀県"
prefecturesList.Add "九州地方", "長崎県"
prefecturesList.Add "九州地方", "大分県"
prefecturesList.Add "九州地方", "熊本県"
prefecturesList.Add "九州地方", "宮崎県"
prefecturesList.Add "九州地方", "鹿児島県"
prefecturesList.Add "九州地方", "沖縄県"
MsgBox (prefecturesList(prefectures))
End Sub
コメント