[[20080206141924]]　『データーがなかったら、マクロを止める』（たろう）　ページの最後に飛ぶ

『データーがなかったら、マクロを止める』（たろう）

  A列に日付け（シリアル値）が入っていますが、
 昨日から10日前までのデーターがなかったらマクロを
 止めたいのですが、どのように書けば良いのでしょうか、
 教えてください。

 私が良くやる方法、環境に合わせて適当に手を加えてください。
 BJ

 Dim Hanni As String, KK As Long
 Hanni = "A1:A" & Range("A65536").End(xlUp).Row
 SK = "SUMPRODUCT((" & Hanni & ">=Today()-10)*(" & Hanni & "<=Today()-1))"
 KK = Application.Evaluate(SK)
 If KK = 0 Then
   MsgBox "無し"
   Exit sub
 Else
   MsgBox KK & " 個"
 End If

   EvaluateやらSUMPRODUCTなどややこしいのがでてきましたね。
 いまいち、理解できませんが
 上記で可能になりました。どうもありがとうございました。
                （たろう）

コメント返信：

[ 一覧(最新更新順) ]

[[20080206141924]] 『データーがなかったら、マクロを止める』（たろう） ページの最後に飛ぶ

[[20080206141924]]　『データーがなかったら、マクロを止める』（たろう）　ページの最後に飛ぶ