回答編集履歴

119行目を修正しました。

2025/03/03 10:22

投稿

スコア1040

test CHANGED Viewed

@@ -121,7 +121,7 @@
         End If
         If (Not rngStartDraw Is Nothing) And (Not rngEndDraw Is Nothing) Then
-            If rngStartDraw.Value > rngEndDraw.Value Then
+            If rngStartWorkDate.Value > rngEndWorkDate.Value Then
                 Set rngDrawArea = Nothing
             Else
                 Set rngDrawArea = wsTarget.Range(rngStartDraw, rngEndDraw)