| |
▼八家九僧陀 さん：
こんにちは！
>Sheet２のA列(A1は見出し）のデータ中に、Sheet１のF5と異なるデータの有無を判定し、無ければ「public sub 印刷()」を実行し、異なるデータがあった場合、「異なるデータが〇件あります。削除してください。」との警告をメッセージして、その異なるデータ行を黄色に着色してsheet２をactiveにするVBAの記述を教えてください。
検証していませんが、動くはずです。
お試しください。
Sub Col_Check()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim LastRow As Long
Dim i As Long, j As Long
Set Ws1 = ThisWorkbook.Worksheets("Sheet1")
Set Ws2 = ThisWorkbook.Worksheets("Sheet2")
With Ws2
rastrow = .Range("A" & .Rows.Count).End(xlUp).Row
j = 0
For i = 2 To rastrow
If .Range("A" & i).Value <> Ws1.Range("F5").Value Then
.Range("A" & i).EntireRow.Interior.ColorIndex = 36
j = j + 1
End If
Next
End With
If j = 0 Then
Call 印刷
Else
MsgBox "異なるデータが" & j & "件あります。削除してください。"
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
