Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45318 / 76732

←次へ　｜　前へ→


	【36411】Re:マッチングの後、別シートに日付を・・・

Kein - 06/3/30(木) 16:59 -


	引用なし

	パスワード

てゆーか、同一人物でしょうね。あちらはマルチポストは禁止されてますが、
こちらはOKで「後から書き込むのだから大丈夫」とみなしたわけですね。
ま、殆ど変更するところもないので、あちらのコードをコピぺ&一部書き直し、
ということで・・

Sub Data_Check()
　 Dim MyR As Range, C As Range
　 Dim St As String
　 Dim Ck As Variant

　 On Error GoTo ELine
　 With Sheets("Sheet1")
　　　 With .Range("A1", .Range("A65536").End(xlUp)).Offset(, 26)
　　　　　 .Formula = "=IF($B1=""OK"",$A1,1)"
　　　　　 Set MyR = .SpecialCells(3, 2)
　　　 End With
　 End With
　 St = Format(Date, "yyyy/mm/dd") & " 完了"
　 With Sheets("Sheet2")
　　　 For Each C In MyR
　　　　　Ck = Application.Match(C.Value, .Range("B:B"), 0)
　　　　　If IsError(Ck) Then
　　　　　　 C.Offset(, -26).Resize(, 2).Font.ColorIndex = 3
　　　　　Else
　　　　　　 .Cells(Ck, 11).Value = St
　　　　　　　　　　　　 '↑ここを3から11にするだけ
　　　　　End If
　　　 Next
　　　 .Columns(3).AutoFit
　　End With
　　Sheets("Sheet1").Range("AA:AA").ClearContents
　　Set MyR = Nothing: Exit Sub
ELine:
　　MsgBox "「OK」のチェックがついたデータがありません", 48
End Sub

*あちらは解決マーク付けておいて下さい。

4 hits

▼

【36408】マッチングの後、別シートに日付を・・・ 年寄 06/3/30(木) 16:46