Excel VBA質問箱 IV

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

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


37595 / 76732 ←次へ | 前へ→

【44300】Re:照合のチェック
回答  Kein  - 06/11/12(日) 15:52 -

引用なし
パスワード
   それなら、このようなコードになると思います。

Sub Data_Check()
  Dim LRw As Long

  LRw = Range("C65536").End(xlUp).Row
  With Range("C1:C" & LRw).Offset(, 1)
   .Formula = _
   "=IF(COUNTIF($A$1:$B$" & LRw & ",$C1)>0,""○"",""×"")"
   .Value = .Value
  End With
End Sub

0 hits

【44269】照合のチェック Toni 06/11/11(土) 22:06 質問
【44271】Re:照合のチェック ponpon 06/11/11(土) 22:23 発言
【44272】Re:照合のチェック Kein 06/11/11(土) 22:54 回答
【44273】Re:照合のチェック Toni 06/11/11(土) 23:37 質問
【44274】Re:照合のチェック Kein 06/11/11(土) 23:45 発言
【44275】Re:照合のチェック ponpon 06/11/11(土) 23:50 発言
【44279】Re:照合のチェック Kein 06/11/12(日) 0:18 発言
【44284】Re:照合のチェック ponpon 06/11/12(日) 0:44 発言
【44290】Re:照合のチェック Toni 06/11/12(日) 8:58 質問
【44300】Re:照合のチェック Kein 06/11/12(日) 15:52 回答
【44303】Re:照合のチェック Toni 06/11/12(日) 19:21 質問
【44304】Re:照合のチェック Toni 06/11/12(日) 19:23 お礼

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