住所から都道府県を抽出する関数です。
都道府県別に集計したい場合等にを使ってください。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「POPrefecture」が使用できます。
使い方は
ワークシート上で = POPrefecture (住所) の関数として使用することで、祝日を含めた曜日を取得できます。
【例】
POPrefecture((住所)
POPrefecture((“神奈川県横浜市神奈川区”)→ 神奈川県
POPrefecture((“東京都八王子市)→ 東京都
住所が東京特別区や政令指定市の場合、都道府県を取り除く
Function POPrefecture(A As String) As String
'住所から県取り出す関数
'POPrefecture(住所)
'POPrefecture("神奈川県横浜市神奈川区")→ 神奈川県
'POPrefecture("東京都新宿区西新宿") → 東京都
On Error GoTo EXITFUN
Dim i As Long
Dim PRE(1 To 47, 1)
PRE(1, 1) = "北海道"
PRE(2, 1) = "青森県"
PRE(3, 1) = "岩手県"
PRE(4, 1) = "宮城県"
PRE(5, 1) = "秋田県"
PRE(6, 1) = "山形県"
PRE(7, 1) = "福島県"
PRE(8, 1) = "茨城県"
PRE(9, 1) = "栃木県"
PRE(10, 1) = "群馬県"
PRE(11, 1) = "埼玉県"
PRE(12, 1) = "千葉県"
PRE(13, 1) = "東京都"
PRE(14, 1) = "神奈川県"
PRE(15, 1) = "新潟県"
PRE(16, 1) = "富山県"
PRE(17, 1) = "石川県"
PRE(18, 1) = "福井県"
PRE(19, 1) = "山梨県"
PRE(20, 1) = "長野県"
PRE(21, 1) = "岐阜県"
PRE(22, 1) = "静岡県"
PRE(23, 1) = "愛知県"
PRE(24, 1) = "三重県"
PRE(25, 1) = "滋賀県"
PRE(26, 1) = "京都府"
PRE(27, 1) = "大阪府"
PRE(28, 1) = "兵庫県"
PRE(29, 1) = "奈良県"
PRE(30, 1) = "和歌山県"
PRE(31, 1) = "鳥取県"
PRE(32, 1) = "島根県"
PRE(33, 1) = "岡山県"
PRE(34, 1) = "広島県"
PRE(35, 1) = "山口県"
PRE(36, 1) = "徳島県"
PRE(37, 1) = "香川県"
PRE(38, 1) = "愛媛県"
PRE(39, 1) = "高知県"
PRE(40, 1) = "福岡県"
PRE(41, 1) = "佐賀県"
PRE(42, 1) = "長崎県"
PRE(43, 1) = "熊本県"
PRE(44, 1) = "大分県"
PRE(45, 1) = "宮崎県"
PRE(46, 1) = "鹿児島県"
PRE(47, 1) = "沖縄県"
For i = 1 To 47
If InStr(A, PRE(i, 1)) > 0 Then
POPrefecture = PRE(i, 1)
End If
Next
EXITFUN:
End Functionここで紹介したコード使用による損害に対しては一切責任は負えません。