ドロップダウンリストで選んだデータを、選んだ直後に、対応する別データに置換して入力したい

セル値の変化を監視するマクロで実行できますワークシート上でセルの内容が変更されたときに発生する Worksheet_Change イベントを使います。具体的には、次のようなマクロで、範囲 "F4:F30" のセルの値が変更された場合に、関数 GetData を呼び出して新しい値に変更します。
Private Sub Worksheet_Change(ByVal Target As Range) 　On Error Resume Next 　If Not Intersect(Target, Range("F4:F30")) Is Nothing Then 　　Application.EnableEvents = False 　　Target.Value = GetData(Target.Value) 　　Application.EnableEvents = True 　End If 　On Error GoTo 0 End Sub 　 Function GetData(selectedValue As String) As String ' ここでドロップダウンリストの選択に基づいてデータを返す処理を行います　Select Case selectedValue 　　Case "30分" 　　　GetData = "0:30" 　　Case "45分" 　　　GetData = "0:45" 　　Case "1時間" 　　　GetData = "1:00" 　　Case "1時間30分" 　　　GetData = "1:30" 　End Select End Function

	①作例では、F4～F30のセル範囲に、左図のようなドロップダウンリストが設定されています
	②Visual Basicを開いて、ドロップダウンリストが設定されているシートをダブルクリックし、そのコードとして左図のようなマクロを記述しますこのVBAコードは、ワークシート上でセルの内容が変更された際に処理を行うための、イベントハンドラと関数の組み合わせです。
Private Sub Worksheet_Change(ByVal Target As Range) 　On Error Resume Next 　If Not Intersect(Target, Range("F4:F30")) Is Nothing Then 　　Application.EnableEvents = False 　　Target.Value = GetData(Target.Value) 　　Application.EnableEvents = True 　End If 　On Error GoTo 0 End Sub ワークシート上でセルの内容が変更されたときに発生する Worksheet_Change イベントに対するハンドラです。具体的には、範囲 "F4:F30" のセルの値が変更された場合に、関数 GetData を呼び出して新しい値に変更します。 On Error Resume Next: エラーが発生した場合に次の行に進むようにします。これはエラーが無視されるという意味です。 If Not Intersect(Target, Range("F4:F30")) Is Nothing Then: 変更されたセルが範囲 "F4:F30" に含まれている場合に処理を行います。 Application.EnableEvents = False: イベントの無効化。これにより、値を変更しても再帰的なイベントが発生しないようになります。 Target.Value = GetData(Target.Value): GetData 関数を呼び出して、選択された値に基づいて新しい値に変更します。 Application.EnableEvents = True: イベントの再有効化。これにより、再びイベントが発生するようになります。 On Error GoTo 0: エラーハンドリングを元に戻します。　 Function GetData(selectedValue As String) As String 　' ここでドロップダウンリストの選択に基づいてデータを返す処理を行います　Select Case selectedValue 　　Case "30分" 　　　GetData = "0:30" 　　Case "45分" 　　　GetData = "0:45" 　　Case "1時間" 　　　GetData = "1:00" 　　Case "1時間30分" 　　　GetData = "1:30" 　End Select End Function この GetData 関数は、引数として受け取った文字列 selectedValue に基づいて、ドロップダウンリストの選択に応じたデータを返します。具体的には、Select Case ステートメントを使用して、異なる選択肢に対して対応するデータを返しています。例えば、"30分" が選択された場合には "0:30" を返します。これにより、ワークシート上で特定のセルの値が変更されたときに、その変更に対応する特定の処理が実行されるようになります。
	③ドロップダウンリストで選択したデータに対応する、別のデータが入力されるようになります
















	●10行程度のマクロを使って、用意した置換リストにしたがい、複数の置換をまとめて行えるようにします

	関連する他のページ
	ドロップダウンリストで、データを入力したい「データ」タブの「データの入力規則」を使います勤怠情報を、ドロップダウンリストで入力したい「データの入力規則」を使うと、ドロップダウンリストを設定できますコース名をドロップダウンリストから入力したい「データの入力規則」を使いますドロップダウンリストでプランを選びたい「データの入力規則」で任意のドロップダウンリストを設定できます都道府県名をドロップダウンリストで入力したい都道府県が入力されているセル範囲を、「データの入力規則」のリストとして設定すれば、ドロップダウンリストで選べるようになりますあとから見てもわかりやすいVLOOKUP関数式にしたい「範囲」として指定するセル範囲に、あらかじめ適当な名前を付けておけば、VLOOKUP関数式でもそれを使えるのでわかりやすくなります一意の項目に該当する、同一行内のデータを取り出したい INDEXとMATCHの関数を組み合わせると、検索列の左側であっても、該当するデータを取り出すことができます日別のシフト表から、個人の勤怠データを抜き出して表示したい日別勤怠表のシート名を数式で作りながら、 VLOOKUP関数で参照する方法があります隔列のセル値を参照したい値を参照する列の指定を、数式で行う方法があります日別の勤務表から、個人別の勤務表を作りたいシートタブ名が日にちしてあれば、それを使ったVLOOKUP参照が可能です成績一覧から上位10名を選び出して表示したい同順が含まれる場合に備えて、順位を表す数値に固有の小数を付加し、それを使って順位から表引きを行います住所から都道府県を取り出したいあらかじめ都道府県の頭3文字を抜き出したリストを用意して、それを使ってVLOOKUP関数による表引きを行いますアンケートをピボットテーブルで集計したい数値で入力されている選択肢の情報を、文字列に直してから集計します顧客番号から顧客名を表引きしたい VLOOKUP関数を使います納品書の明細もVLOOKUP関数で転記したい納品番号に行番号を追加すれば、それを使って各明細行の表引きが可能です納品書の日付と顧客名を自動転記したい元表がテーブル化されていれば、そのテーブル名と項目列名を指定して、納品番号から表引きできます顧客名の顧客コードを表引きしたい検索する「顧客名」を左端に移動して、 VLOOKUP関数で表引きしますテーブル化した商品リストから、商品コードで商品情報を表引きしたい表引きする側とされる側の両方をテーブル化すれば、項目列名で表引きすることができます住所から都道府県名を取り出したい都道府県名の一覧を用意すれば、 VLOOKUP関数で住所から都道府県名を取り出せます出退の時刻を簡単に記録したい簡単なマクロを作れば、「出社」や「退社」をクリック（タップ）するだけで現在日時を入力できるタイムカードを用意できます『名前』に右隣セルの『ふりがな』を登録したい簡単なマクロを作って、ふりがな登録する方法がありますセル範囲を対象とするユーザー定義関数を作りたい For Each...Next ステートメントを使って、選択範囲に含まれるセルを順番に処理しますオリジナルの関数（ユーザー定義関数）を作りたい Functionプロシージャとして、Visual Basicで作成できますマクロを作りたい「開発」タブを表示しておけば、そこから「Visual Basic」を実行してマクロを作ることができますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述しますマイナス値をゼロに置換したい④ If...ThenステートメントによるVBAマクロを使えば、マイナス値をまとめてゼロに置換できます “縮小して表全体を表示する”のマクロを、クイックアクセスツールバーから実行したいクイックアクセスツールバーにマクロを登録すれば、マウスからでも、キーボードからでも、簡単に実行できるようになります “縮小して表全体を表示する”のマクロを使って、表の選択から一気に処理したい Range.CurrentRegion プロパティを使えば、アクティブセル領域となっている表全体をマクロで選択できます “縮小して表全体を表示する”を、ショートカットキーですばやく実行したい実行手順をマクロとして記録すれば、ショートカットキーでその一連の手順をすばやく実行できるようになります “セキュリティの警告”が表示されるんだけど・・・マクロを含むブックを開くときには、注意を促すべく、「セキュリティの警告」が表示されますマクロ有効ファイルって何？マクロを含むブックは、マクロ有効ファイル（マクロ有効ブック）として保存しなければ、マクロが失われてしまいます 100行程度の表で、5行おきに、新しい行を挿入したいあまり大きくない表でのパターン化された処理なら、一定の手順をマクロ記録すると便利ですオートシェイプをクリックするたびに、枠線の表示と非表示を切り替えたい枠線の表示と非表示の切り替えマクロを、オートシェイプに登録すれば、オートシェイプをクリックするだけでそのマクロが実行されるようになりますオートシェイプの枠線の表示と非表示を、一つのマクロで切り替えたい If～Then～Elseの構文を使えば、オートシェイプの状態に応じて、表示と非表示を一つのマクロで切り替えられますオートシェイプの枠線の表示の有無を、マクロで切り替えたい Shape.LineのVisibleプロパティの設定を変えることで、枠線を表示したり非表示にしたりすることができますマクロを右クリックで実行したい Worksheet_BeforeRightClickイベントのプロシージャにマクロを記述すると、指定シートを右クリックしたときにそのマクロが実行されますブックを閉じるときに、マクロを自動的に実行したいそのブックのWorkbook.BeforeClose イベントに、マクロを実行するコードを記述します２つのフォルダへの保存マクロを、汎用的なものにしたいファイル名の部分を、編集中のブックの名前を表すActiveWorkbook.Nameにすると、編集中のブックならどれでもマルチ保存が可能になりますマクロ実行時に表示されるダイアログボックスを無視したい Application.DisplayAlerts プロパティをFalseにすると、マクロの実行中に警告やメッセージが表示されなくなります編集中のブックを、現在のフォルダとは別のフォルダにも、すばやく保存したい手間のかかる操作は、マクロ化すれば、簡単に処理できるようになりますブックにたくさんのシートがあり、それぞれのB2セルに入力してあるデータを、それぞれのシートの名前にしたい For Each...Next ステートメントを使えば、編集中のブックに含まれるすべてのシートを対象にして、同じ処理を実行することができますマクロのコードを、見た目にわかりやすく、簡潔に記述したい With ステートメントを使えば、作業の対象となるオブジェクトの記述が１回で済みます B2セルに入力してあるデータを、そのシートの名前にしたいシートの名前は、Worksheet.Name プロパティで変えることができますリスト内の各データを、順番に個別で表示したい専用のユーザーフォームにスクロールバーを追加すれば、リスト内のデータを順番に表示できますリスト内の各データを、必要に応じて個別で表示したいマクロを使えば、ダブルクリックしたデータを、専用のユーザーフォームで表示することができます指定したページだけを、とびとびで印刷したいマクロを使えば、指定したページだけを連続して印刷することは可能ですどのブックからでも利用できるマクロを作りたい「個人用マクロブック」に登録すれば、どのブックからでもそのマクロを実行できるようになります

ドロップダウンリストで選んだデータを、 選んだ直後に、 対応する別データに置換して入力したい

セル値の変化を監視するマクロで実行できます

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("F4:F30")) Is Nothing Then

Application.EnableEvents = False

Target.Value = GetData(Target.Value)

Application.EnableEvents = True

End If

On Error GoTo 0

End Sub

Function GetData(selectedValue As String) As String

' ここでドロップダウンリストの選択に基づいてデータを返す処理を行います

Select Case selectedValue

Case "30分"

GetData = "0:30"

Case "45分"

GetData = "0:45"

Case "1時間"

GetData = "1:00"

Case "1時間30分"

GetData = "1:30"

End Select

End Function

①作例では、F4～F30のセル範囲に、左図のようなドロップダウンリストが設定されています

②Visual Basicを開いて、ドロップダウンリストが設定されているシートをダブルクリックし、そのコードとして左図のようなマクロを記述します

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("F4:F30")) Is Nothing Then

Application.EnableEvents = False

Target.Value = GetData(Target.Value)

Application.EnableEvents = True

End If

On Error GoTo 0

End Sub

Function GetData(selectedValue As String) As String

' ここでドロップダウンリストの選択に基づいてデータを返す処理を行います

Select Case selectedValue

Case "30分"

GetData = "0:30"

Case "45分"

GetData = "0:45"

Case "1時間"

GetData = "1:00"

Case "1時間30分"

GetData = "1:30"

End Select

End Function

③ドロップダウンリストで選択したデータに対応する、別のデータが入力されるようになります

●10行程度のマクロを使って、 用意した置換リストにしたがい、 複数の置換をまとめて行えるようにします

関連する他のページ

ドロップダウンリストで選んだデータを、選んだ直後に、対応する別データに置換して入力したい

　On Error Resume Next

　If Not Intersect(Target, Range("F4:F30")) Is Nothing Then

　　Application.EnableEvents = False

　　Target.Value = GetData(Target.Value)

　　Application.EnableEvents = True

　End If

　On Error GoTo 0

　Select Case selectedValue

　　Case "30分"

　　　GetData = "0:30"

　　Case "45分"

　　　GetData = "0:45"

　　Case "1時間"

　　　GetData = "1:00"

　　Case "1時間30分"

　　　GetData = "1:30"

　End Select

　On Error Resume Next

　If Not Intersect(Target, Range("F4:F30")) Is Nothing Then

　　Application.EnableEvents = False

　　Target.Value = GetData(Target.Value)

　　Application.EnableEvents = True

　End If

　On Error GoTo 0

　' ここでドロップダウンリストの選択に基づいてデータを返す処理を行います

　Select Case selectedValue

　　Case "30分"

　　　GetData = "0:30"

　　Case "45分"

　　　GetData = "0:45"

　　Case "1時間"

　　　GetData = "1:00"

　　Case "1時間30分"

　　　GetData = "1:30"

　End Select

●10行程度のマクロを使って、用意した置換リストにしたがい、複数の置換をまとめて行えるようにします