Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2962 / 13644 ツリー ←次へ | 前へ→

【65032】異なるデータを検索する 八家九僧陀 10/4/5(月) 21:35 質問[未読]
【65041】Re:異なるデータを検索する にぃ 10/4/6(火) 15:34 回答[未読]
【65043】Re:異なるデータを検索する 八家九僧陀 10/4/6(火) 21:53 お礼[未読]

【65032】異なるデータを検索する
質問  八家九僧陀  - 10/4/5(月) 21:35 -

引用なし
パスワード
   Sheet2のA列(A1は見出し)のデータ中に、Sheet1のF5と異なるデータの有無を判定し、無ければ「public sub 印刷()」を実行し、異なるデータがあった場合、「異なるデータが〇件あります。削除してください。」との警告をメッセージして、その異なるデータ行を黄色に着色してsheet2をactiveにするVBAの記述を教えてください。

【65041】Re:異なるデータを検索する
回答  にぃ  - 10/4/6(火) 15:34 -

引用なし
パスワード
   ▼八家九僧陀 さん:
こんにちは!

>Sheet2のA列(A1は見出し)のデータ中に、Sheet1のF5と異なるデータの有無を判定し、無ければ「public sub 印刷()」を実行し、異なるデータがあった場合、「異なるデータが〇件あります。削除してください。」との警告をメッセージして、その異なるデータ行を黄色に着色してsheet2を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

【65043】Re:異なるデータを検索する
お礼  八家九僧陀  - 10/4/6(火) 21:53 -

引用なし
パスワード
   にぃ さんへ
>  Dim LastRow As Long
>    rastrow = .Range("A" & .Rows.Count).End(xlUp).Row
rastrow を LastRowにして、無事思ったとおりの処理ができました。

一行一行、勉強して活用(盗用)させてもらいます。
ありがとうございました。

2962 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free