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

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

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

AMP変換ソフト作成 メニューへ

スポンサーリンク





AMP変換結果のシート

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

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

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

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

スポンサーリンク






AMP変換ソフト作成 メニューへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved