Wordで表のセルを色付けする方法が速く

私はVBAを使用して、csvファイルからWordで表を作成します。多くのテーブルが存在する可能性があるためWordで表のセルを色付けする方法が速く

Set tbl = ActiveDocument.Tables(ActiveDocument.Tables.Count) 
    For Each ce In tbl.Range.Cells 
     a = ce.Range.Text 
     If InStr(a, "&") Then 
      a = Replace(a, "&", "") 
      ce.Range.Text = a 
      ce.Shading.BackgroundPatternColor = wdColorGray20 
     End If 
    Next

：私はテーブルのセルをループを使用すると

....... 
1,234 6,789 &4,321e+05 
&-5,55 1,999 0,00 
.......

：これらの値のために、私は、元のCSVファイル内の文字「&」を使用するように、いくつかの細胞は、色付けされなければなりませんテーブルがかなり大きくなることがありますが、これは時には非常に遅いです。それを行うより速い方法がありますか？

出典

2017-07-31 Michael O.

ドキュメントからセルを1つずつ読み込み、いくつかの関数を実行してその値をペイントして置き換えるため、処理が遅くなります。最良の方法は、すべてのテーブルデータを配列に変換し、マクロを実行し、別の配列にペイントされるすべてのセルのアドレスを保存し、その配列をループしてセルをペイントし、そこから特殊文字を削除することです。配列内のループは、ループスルー範囲よりもはるかに高速です。 – Ibo

@Ibo提案をいただき、ありがとうございます。 –

結果をお知らせください！ – Ibo

これは画面の更新をオフにします。つまり、マクロの実行は視覚的に表示されませんが、速度が向上します。

Application.ScreenUpdating = False

出典

2017-07-31 20:42:44 APW

はい、使用しますが、ファイルを作成するのに最大15分かかります。 –

Wordで表のセルを色付けする方法が速く

答えて

関連する問題