2013 年 6 月 27 日の形式で各行の先頭に日付を含む Excel シートがあります。今日の現在の日付で始まるシート内のすべての行を選択できるようにしたいので、次のコードを書きました。
CurrentD = Format(Now(), "M/DD/YYYY")
Workbooks("01 StatorLine.xlsx").Sheets("Downtime tracking").Activate
Range("A4").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = CurrentD
データを含む最初の行を選択し、今日の日付を含む最初の行に到達するまで行を下に移動し続ける必要があります。唯一の問題は、形式がまったく同じであるにもかかわらず、ループが日付を認識しないことです。CurrentD を数値に変更してから、その数値をスプレッドシートに入力してみました。この場合、マクロを実行すると、その数値で停止しますが、何らかの理由でスラッシュが含まれていると、セルの値が認識されず、ループし続けます。VBAを使ったことがないので、教えていただけると助かります。解決策はかなり単純なはずです。
ありがとう!