住所入力時に都道府県から 入力させる 　　 要VBA/サンプル有 TOP＞Excel/Word/PowerPoint ○ポイントは「県」以外の条件分け 　EXCELの住所録で、〜県から入力されている場合と、〜市から入力されている場合とでは、管理も大変。そこで、住所録を入力して貰う場合に、予め都道府県から入力してもらうように、メッセージを出す方法を紹介します。 (1) [開発]タブ＞「コード」グループの[Visual Basic]をクリックしてVisual Basic for Application(VBE)を起動。 (2)　該当するワークシートに、下記のイベントプロシージャを作成。 （このコード例は、シート1のA列が住所入力欄の場合です） Dim prfDat As String Dim myClm As Integer, myRec As Integer 'イベントプロシージャ Private Sub Worksheet_Change(ByVal Target As Range) myClm = 1 '住所を入力する列を指定 myRec = Range(Cells(ActiveSheet.Rows.Count, myClm) _ .End(xlUp).Address).Row On Error GoTo ERRHAND If Target.Column <> myClm Then Exit Sub prfDat = Right(Left(Target.Value, 3), 1) If prfDat = "" Then Exit Sub If prfDat = "県" Then Exit Sub prfDat = Left(Target.Value, 3) If prfDat = "大阪府" Or _ prfDat = "京都府" Or _ prfDat = "東京都" Or _ prfDat = "北海道" Then Exit Sub prfDat = Left(Target.Value, 4) If prfDat = "鹿児島県" Or _ prfDat = "神奈川県" Or _ prfDat = "和歌山県" Then Exit Sub MsgBox "都道府県から入力して下さい" Exit Sub ERRHAND: If Err.Number = 13 Then Call PREFECTURE_CHECK End Sub 'コピー&ペーストほか列削除時のエラー回避 Sub PREFECTURE_CHECK() For i = 2 To myRec prfDat = Right(Left(Cells(i, myClm).Value, 3), 1) If prfDat = "" Or prfDat = "県" Then Else prfDat = Left(Cells(i, myClm).Value, 3) If prfDat = "大阪府" Or _ prfDat = "京都府" Or _ prfDat = "東京都" Or _ prfDat = "北海道" Then Else prfDat = Left(Cells(i, myClm).Value, 4) If prfDat = "鹿児島県" Or _ prfDat = "神奈川県" Or _ prfDat = "和歌山県" Then Else MsgBox "都道府県から入力して下さい" & i & "行目" End If End If End If Next i End Sub ○こんな時に使える ・複数の人が住所録を作成。 ・複数の人で住所録を更新。 ・VBAで入力規制したい。 ○応用またはその他の方法 ・ワークシート関数で隣セルに警告を出す。 ・都道府県の入力列を分ける。 ○サンプル ・ サンプルファイルはこちら（要解凍） 16KB ○注意 ・大量のデータをコピー＆ペーストすると処理に時間がかかります。