VBA 複数セルの値を反映させたい

Question

入力された値が、下の図のように反映されるマクロを制作しているのですが、どのように書けばよいのか分かりません。

符号、個数、番号の順番に入力していき、空だった番号のセルが入力されたときに
括弧つきで個数も反映されたいのです。

引数Targetを使った下のようなコードを考えているのですが、指定したセルと
隣の列セルを指定する方法がわからず詰まっています。
どのようにすればいいのか、アドバイスお願いします。
また、違う方法もあれば教えていただければ幸いです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 Then　　　'C列に入力すると作用

	If Not Target <>"" Then　　　　 'セルが空ではない場合
			Target.Value =( "(" &個数の値　& ")"& 入力した番号の値　）
	Endif

Else
End If

End Sub

Answer 1

皆様のお陰で自己解決できました。
ありがとうございました。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Rows.Count <= 1 Then 'C列のセルを選び、1行目も含めたセルを選ぶ
If Target.Value <> "" Then '選んだセルが空ではない場合
Target.Value = "(" & Target.Offset(0, -1).Value & ")" & Target.Value
End If
End If
Application.EnableEvents = True
End Sub

Comments

[memem12]

頭から何行目は変えないなど、特定行を対象に外せないので未解決に戻しました。

[退会済みユーザー]

他人のコードをコピペして自己解決したという前にコードの意味を調べましょう

Answer 2

なぜOn Error Resume Nextで誤魔化しているのか不思議でしたがエラー頻発で動きませんね。
バグをバグで修正すると終わらないので使わない方がいいです。
個人的には変換ボタンを準備して一括変換した方がエラー対応もしやすいのですが、逐一変換で作成しました。
offset操作はしていませんが、配列操作を覚える用で使ってください。

'Worksheet_SelectionChange=選択範囲の変更時イベント
Private Sub Worksheet_Change(ByVal Target As Range)v
    '範囲選択エラー対応
    If Target.Column = 3 And Target.Rows.Count <= 1 Then
        '範囲選択エラー対応
        If Target.Value <> "" Then
        　　'必要なデータを配列取得
            Dim List
            List = Range(Cells(Target.Row, 1), Cells(Target.Row, 7))
            '配列内データで修正
            List(1, 5) = List(1, 1)
            List(1, 6) = List(1, 2)
            List(1, 7) = ("(" & List(1, 2) & ")" & List(1, 3))
            '配列データで範囲上書き
            Range(Cells(Target.Row, 1), Cells(Target.Row, UBound(List, 2))) = List
        End If
    End If
End Sub

Answer 3

これで如何でしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Intersect(Target, Columns("C")) Is Nothing Then
        Exit Sub
    ElseIf Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    ElseIf Target.Value = "" Then
        Application.EnableEvents = True
        Exit Sub
    Else
        Target.Value = "(" & Target.Offset(0, -1).Value & ")" & Target.Value
    End If
    
    Application.EnableEvents = True

End Sub

Comments

[memem12]

コードありがとうございます。
このコードを基に空いたセルに書き込まれた時でも反映されるように書いてみます。

Answer 4

入力値ならTarget.Value
単純に左をさすならTarget.Offset(, -1).Value
ですが、他にも色々問題はありそう。

---

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

With Target
If .Column = 3 And .Row > 1 And .Value <> "" Then
    If InStr(.Value, "(") = 0 Then
        .Value = "(" & .Offset(0, -1).Value & ")" & .Value
    End If
End If
End With

Application.EnableEvents = True
End Sub