|
かみちゃん長々申し訳ありません端的に書きます
まず現在のコードです
Private Sub Worksheet_Change(ByVal Target As Range)
Dim hinmei As String, keijyou As String
Dim myRange As Range
Dim endRow As Long
Dim a As Variant
Dim i As Variant
With Target
On Error GoTo errEnd
If .Column <= 1 Or .Column >= 3 Or _
.Row = 1 Then End
Select Case .Column
Case 1
If .Offset(, 1).Value = "" Then Exit Sub
hinmei = .Value
keijyou = .Offset(, 1).Value
GoTo kakuninEvent
Case 2
If .Offset(, -1).Value = "" Then Exit Sub
hinmei = .Offset(, -1).Value
keijyou = .Value
GoTo kakuninEvent
End Select
Exit Sub
kakuninEvent:
Set myRange = Range("A2", Cells(Cells.Rows.Count, 1).End(xlUp).Offset(-1)).Resize(, 5)
a = myRange.Value
Application.EnableEvents = False
Range("C" & .Row).ClearContents
Range("E" & .Row).ClearContents
Application.EnableEvents = True
For i = 1 To myRange.Rows.Count
If hinmei = a(i, 1) And keijyou = a(i, 2) Then
Application.EnableEvents = False
Range("C" & .Row).Value = a(i, 3)
Range("E" & .Row).Value = a(i, 5)
Application.EnableEvents = True
Exit For
End If
Next i
End With
errEnd:
End Sub
↑でB列を削除してもC,E列の値そのまま残ってしまいます
^^^^^^^^^^^^^^^^^^^^^^^^^^
★C,E列がクリアにならないのです。★ここを何とかしたいのですが
>そうです。まずは、試してみませんか?
試した結果を報告したつもりだったのですが失礼しました
>> これだとするとC,E列いままでOKだった数値が表示されなくなってしまう
↑すみません正常に戻っています
>C列、E列の他の行の値まで消すものではありません。。。
はい他は結構です
>あと、発言後に訂正や追加発言があるようですが、投稿時にパスワードを入力して
>おくことによって発言した内容を削除することができます。
>訂正や追加発言があるならば、いったん削除して再投稿していただけないでしょう>か?
>スレッドが伸びて、どこの発言にレスをつけたらいいかわからなくなりますし、そ
>もそも質問の全体像がつかめなくなります。
注意します
よろしくお願いします。
|
|