Step30：削除変更のHTML変換と画像ファイルの有無の結果を背景色で通知し、NGの場合コメント文を追加しない｜Excel VBA

ファイルの更新日時とサイズをAMPファイルにコメント文で追加し、比較することで次回更新がなければ変換しないようにしていましたが、削除変更のHTML変換ができていない場合や、画像ファイルが無い場合は、コメント文を追加しないで次回も変換できるようにします。

セルの背景色は Interior.Color = RGB(R値,G値,B値)でできます、クリアするには Interior.ColorIndex = 0になります。

AMP変換結果のシート

削除の有無と結果の数が合わない場合、変更の有無と結果の数が合わない場合、画像ファイルがない場合、下のようにセルの背景色を付けるようにしました。
これにより、背景色があるファイルは修正が必要になることになります。


もう一度変換すると、正常に終了し元ファイルが更新されていない場合、下のように未更新にマークが入り変換されません。これで大幅な変換の時間短縮になります。
前回うまく変換出来なかったファイルは再度変換を行っています。

セルの背景色で通知するVBA

削除・変更・画像のプロシージャの戻り値によって、背景色を付けるか付けないか判定しています。
画像ファイルは、一つでも見つからなければ背景色を付けます。


・ngCount変数を追加し、これが1以上ならばAMPファイルに更新日時とサイズを追加しません。

                MyDelHtml n1, n2
                Cells(nrow, 10) = n1
                Cells(nrow, 11) = n2
                If n1 <> n2 Then
                    Cells(nrow, 11).Interior.Color = RGB(250, 219, 218)
                    ngCount = ngCount + 1
                Else
                    Cells(nrow, 11).Interior.ColorIndex = 0
                End If
                
                MyChangeHtml n1, n2
                Cells(nrow, 12) = n1
                Cells(nrow, 13) = n2
                If n1 <> n2 Then
                    Cells(nrow, 13).Interior.Color = RGB(250, 219, 218)
                    ngCount = ngCount + 1
                Else
                    Cells(nrow, 13).Interior.ColorIndex = 0
                End If
            
                MyAddHtml
            
                n1 = MyPicChange(Range("G2") & Cells(nrow, 7))
                Cells(nrow, 14) = n1
                If n1 > 0 Then
                    Cells(nrow, 14).Interior.Color = RGB(250, 219, 218)
                    ngCount = ngCount + 1
                Else
                    Cells(nrow, 14).Interior.ColorIndex = 0
                End If
            
                If ngCount = 0 Then
                    MyModifiedSizeAddHtml Cells(nrow, 8), Cells(nrow, 9)
                End If