|
▼飛ばない豚 さん:
>>> Case 3
>>> Target.Offset(0, 1).Select
>> Case 3 'C列に入力
>> If Target.Value = "台" Then
>> Target.Offset(0, 1).Value = 2
>> Target.Offset(0, 4).Select
>> Else
>> Target.Offset(0, 1).Select
>> End If
>>
>>と、条件分岐処理を入れると良いです。
>ありがとうございました。バッチリです
>こんなに早く解決できてうれしいです。
再度すみません別のコードと組み合わせたらエラーが出てしまうのですが
対処方法を教えて下さい
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim tg As Range
Dim fr As Range
Dim s As String
If Not Intersect(Me.Range("B2:B65536"), Target) Is Nothing Then
Set tg = Target.EntireRow.Cells
s = tg(1).Value & tg(2).Value
tg(8).Value = s
Set fr = Me.Columns(8).Find(s, , xlValues, xlWhole)
If Not fr Is Nothing Then
Set fr = fr.EntireRow.Cells
Application.EnableEvents = False
tg(3).Value = fr(3).Value
tg(5).Value = fr(5).Value
Application.EnableEvents = True
Set fr = Nothing
End If
Set tg = Nothing
End If
Select Case Target.Column
If Target.Value = "台" Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~ココでエラー
コンパイルエラーSelectCaseと最初のCaseの間のステートメントおよびラベルが
適切ではありません。
Target.Offset(0, 1).Value = 2
Target.Offset(0, 4).Select
Else
Target.Offset(0, 1).Select
End If
Case 7
Target.Offset(1, -6).Select
End Select
End Sub
|
|