| |
▼Jaka さん：
>コピペのことを考えなくていいのなら。
ご指摘の通りコピペが問題になってきました。
やりたいことを具体的に書くと、
１．A列とB列の同じ行に文字が入力されたら処理する
２．A列とB列の複数行にコピペで入力されたらその行数分処理する
最初に頂いたアドバイスを元に下記のようにしてみましたが、
２．をどのようにしたらいいか分かりません。
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
Select Case .Column
Case 1
If .Value <> "" And .Offset(, 1).Value <> "" Then
MsgBox "OK"
End If
Case 2
If .Value <> "" And .Offset(, -1).Value <> "" Then
MsgBox "OK"
End If
End Select
ElseIf .Count > 1 Then
'ここで処理？？
End If
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
