スキルアップ・問題解決なら、モーグにおまかせ！

初心者となります。
まずはイメージエクセル表を説明します。
（イメージエクセルの画像が添付できず伝わりにくいかもしれませんがどうぞよろしくお願いいたします。）
 
A1値＝"月日"
B1値＝"時間"
C1値＝"メモ"
D1値＝"確認"
と入力しております（つまりエクセルの1行目は項目名となります）
 
A列にはmm/ddの月日がはいります。（その都度、エクセルに手入力です）
B列にはhh:mmの時間がはいります。（その都度、エクセルに手入力です）
C列は任意でメモをいれる予定です。（今回のコードには関与しません）
D列は、プルダウンで"済"を選択できるようにします。（つまり、"空欄"or"済"　の2種類しか入力できないことになっております。
 
 
 
その表の横こにオートシェイプでボタンを設け、下記「Test」マクロを登録します。
「Test」マクロの作業は、D列が空欄である行を対象にし、A列とB列に登録した日時が、システム日時より24時間以上過去になる場合は、D列を赤色にするものです。
 
 

Public Sub Test()

      Dim testRange As Range
      Dim Table As Range

      Set Table = Range("A1").CurrentRegion
      Set Table = Table.Offset(1)
      Set Table = Table.Resize(Table.Rows.Count - 1)


          For Each testRange In Table.Rows

'�@条件　Table範囲のうち「D列が空欄」かつ「A列に値がある」かつ「B列に値がある」とき下記の作業をする

　　　　　　　If testRange.Cells(1,4).Value = "" And testRange.Cells(1,1).Value <> "" And testRange.Cells(1,2).Value <> "" Then

'作業�@日時がシステム日より2日以上前であればD列赤色にする

　　　　　　　　　If　testRange.Cells(1,1) <= Date -2 Then

                        testRange.Cells(1,4).Interior.ColorIndex = 3

'作業�A日時がシステム日の前日であり、時間がシステム時間より小さいときはD列を赤色にする（つまり24時間経過している）

　　　　　　　　　ElseIf testRange.Cells(1,1) = Date -1　And　testRange.Cells(1,2) <= Time Then

                        testRange.Cells(1,4).Interior.ColorIndex = 3

                  End If


　　　　　　　End If

          Next

End Sub

引用:
【疑問1】行数がたとえ1000行になっても速度は遅くならないのか？

引用:
【疑問2】VBA言語を使わなくても、エクセルの条件付き書式を使ったほうがファイルは軽いのか？

引用:
【疑問3】仮にエクセルの条件付き書式に書き込めたとしても、行いたい作業（Test）は、
 ファイルを開いた時に1回するだけであり、定期的（1時間ごと）に確認するには
 その都度ファイルを開き直さないといけないということか？
 （もしそれであれば今回のようにマクロを使ったほうが使いやすいのかな・・）

細かいことですが、
24時間経過判断個所で「Time」関数を「使っているが、
Time取得時点を、プロシジャ―開始時にした方がよいと思います。（分単位にしましょう）
 
 

＞【疑問1】
1000行が多いか少ないか、処理が重くなるのかならないのか、
やってみないと分からないかと思います。
（それぞれ使っているパソコンの能力もありますし。）
 
＞【疑問2】
昔のエクセルだと、個々に書式設定するとファイルが肥大化し重くなりました。
最近のエクセルだと改善されているかもです。
 
＞【疑問3】
定期的にマクロを実行することは可能です。
参考URL＞＞
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10233897815
 
＞【+α】もっといいコードがあれば参考に教え頂けると嬉しいです。
データの日時は順に入力されるのか？あるいは、バラバラなのか？
そして、昇順または降順に並び替えてもよいのか？
あと、作業列を追加してもよいのか？
例えば、日付と時間を分けてセルに入力する仕様のようですが、
計算に使うには一つにまとめる必要があります。
時間の差も一つ列を設ければ、条件付き書式設定等の数式も簡単になるかと
思います。（作業列がなくても出来ますが、長く複雑な数式は読みにくいので）
入力は、ユーザーフォームを使うと、誤入力の防止やデータの表示が制御しやすいかと思いました。
 

simple様
 
ありがとうございます。
 
【疑問1】
Timer関数は初めてしりました。
そして20列で計算してみたら0.015秒でしたので、100倍（2000列）だと1秒ほどと思えば、そこまでストレスはないのかなと思いました。
 
【疑問2】
そうですよね・・
エクセルの機能でできてしまうなら、そっちで作業をしたほうがいいですよね。
無駄にファイルを複雑化している気がしました。（私が）
（とはいってもエクセル関数については、さらに初心者なのでsimple様の式を参考にしながら、入れ子？を使って作ってみたいと思います。）
 
【疑問3】
なるほどですね（変な日本語ですみません）！。
G1にNOWをボタンポチでその都度更新し、そのG1の値に基づいて常に計算式をエクセルで組むということですかね。（リンクいただいた簡易時計も一応つかってみました。確かにオーバースペックかもしれませんが、なんか豪華がエクセルになりそうなので実用するかどうかは検討したいと思います。

WinArrow　様
 
ありがとうございます。
全然細かくて大丈夫です（1個ずつ不完全な部分は潰していきたいのです）。
 
ElseIf testRange.Cells(1,1) = Date -1　And　testRange.Cells(1,2) <= Time Then
 
のことですかね。
 

引用:
Time取得時点を、プロシジャ―開始時にした方がよいと思います。（分単位にしましょう）

mattuwan44　様
 
ありがとうございます。
 
【疑問1】
【疑問2】
そうですよね、一旦Timer関数を使って時間計算したる、エクセル関数版を作って実験してみます。
  
【疑問3】
リンクありがとうございます。
これも1分毎で条件書式発動でよいかと思うので参考にしたいと思います。
  
【+α】
イメージとしては、シェアポイントにエクセルを格納させて、会社のスタッフが毎日、各自入力していくとものなのです。
 
そのため日付は基本てきにはバラバラでなく、昇順になると思います。
ただし、8/19が30件　8/20が10件　8/21が15件と、同じ日時が数個はいることになります。
それぞれ時間は各スタッフがいつその仕事を渡されたを入力する時間なので、バラバラになります。
並び替えをすると、共有ファイルなので他のユーザーに迷惑をかけてしまうため、「並び替えはできない」想定でございます。
（だから、24時間こえたら、わかりやすいように赤色になるようにしてくれと言われたのです）
 

引用:
あと、作業列を追加してもよいのか？
例えば、日付と時間を分けてセルに入力する仕様のようですが、
計算に使うには一つにまとめる必要があります。
時間の差も一つ列を設ければ、条件付き書式設定等の数式も簡単になるかと
思います。（作業列がなくても出来ますが、長く複雑な数式は読みにくいので）

引用:
ただ・・すみません、私の理解がおいつかず・・・どいうことでしょうか…泣

＞これも1分毎で条件書式発動でよいかと思う
 
条件付き書式設定なら、リアルタイムで更新されるのではないでしょうか？
 
＞並び替えをすると、共有ファイルなので他のユーザーに迷惑をかけてしまうため、
＞「並び替えはできない」想定でございます。
＞（だから、24時間こえたら、わかりやすいように赤色になるようにしてくれと言われたのです）
 
並び替えが出来ない理由がよくわかりませんし、入力順が重要なら、
マクロで順番を記録しておけば、すぐに復帰はできるかなぁ。。。
簡易データベースとして使用するシートと見せるシートと分けるのもありかも？
なんならオートフィルターやらピボットテーブルやらで、
見たいものだけ表示させたほうがいいかも？
1000件2000件とデータが増えたら、かなり見難いことになるかも。

揮発性関数を使っていた場合、
単純な件数倍という計算は当てはまらないのでは？

WinArrow　様
 
ありがとうございます。
TIME関数の盲点（？）でした。
分単位の意味がわかりました。
また補足もありがとうございます。
 
はい、時刻として使えるかのチェックについては自分でまずは考えてみます！
 

mattuwan44　様
 
ありがとうございます。
確かに並び替えしたほうが見やすいですし、そのほうが24時間経過条件ももっとシンプルにできそうな気がしてきました…。
根本的なことになるかもしれませんが、その点をもう一度検討したいとおもいました（汗
 
また、色んな案もいただきありがとうございます！いずれも一度持ち帰って自分で整理したいと思います。
 
 
 
 
 

皆様
 
この度はご教示、および色んなご意見をいただきありがとうございます。
 
今回は、一旦エクセル関数を挑戦しつつ、簡易時計マクロをおくか、別途現在時間セルを作ってみようと思います。
 
また計算の重さについても、
 

引用:
揮発性関数を使っていた場合、単純な件数倍という計算は当てはまらないのでは？