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 質問
【36410】Re:マッチングの後、別シートに日付を・・・ Blue 06/3/30(木) 16:51 発言
【36411】Re:マッチングの後、別シートに日付を・・・ Kein 06/3/30(木) 16:59 回答
【36412】Re:マッチングの後、別シートに日付を・・・ 年寄 06/3/30(木) 17:05 お礼

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