☰

Excel で、セルの内容が特定の値に等しい場合に自動的に変更するにはどうすればよいでしょうか。

tag-icon • tag-icon microsoft-excel microsoft-excel-2010
Excel で、セルの内容が特定の値に等しい場合に自動的に変更するにはどうすればよいでしょうか。

現在、値のセットに対応するデータ列 (数値) を操作していますが、データ/数値を正しい対応する値に自動的に置き換えるにはどうすればよいか知りたいです。(以下に、私が意味するところを示す図を用意しました) ご協力ありがとうございます。

開始データ

ここに画像の説明を入力してください

最終結果

ここに画像の説明を入力してください

答え1

ワークシート変更イベントでは、次のような操作を実行できます。エントリを実行する列は A であり、ルックアップのレイアウトは例のとおり K&J であると想定しています。範囲は必要に応じて調整できます。

Private Sub Worksheet_Change(ByVal Target As Range)
  'should check you are doing entry in column A first
If Target.Column = 1 Then
 Application.EnableEvents = False
 Dim R1 As Range
 Dim R2 As Range
 Dim rngStart As Range
 Dim varFind As Variant
 Dim InRange As Boolean
   Set R1 = Range(Target.Address)
    Set R2 = Range("J:J")
      Set rngStart = Range("J1")

   If R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
    , SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then

     Application.EnableEvents = True
        Set R1 = Nothing
        Set R2 = Nothing

     Exit Sub
   Else
    varFind = R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
    , SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address

      Set varFind = Range(varFind)
        R1.Value = varFind.Offset(0, -1)
   Application.EnableEvents = True
      Set R1 = Nothing
      Set R2 = Nothing
      Set rngStart = Nothing
      Set varFind = Nothing
   End If
  Else
    Exit Sub
 End If
End Sub

関連情報