Excel - たくさんの条件付き書式をVBAに変換

Excelスプレッドシートのオーダーフォームでは、行78からデータがなくなるまで、1つのマクロを持つすべての行に条件付き書式を適用する方法が必要です。Excel - たくさんの条件付き書式をVBAに変換

各列には、独自の条件付き書式があります。いくつかは複数の公式を持つ。私はレコードマクロ機能を使用しようとしましたが、それほど多くのことが起こっているので、結果として生じるVBAコードは面倒です。すべての方法を組み合わせる方法がわかりません。

私はすべてのコードを書く必要はありませんが、私はすべてのコードを実行する方法を理解するための少しの指針を得ることができると期待しています。

条件付き書式設定が必要な約15列があります。

A78：

式：ここでは私が働いているかを示すために、いくつかの列です= AND（$ A $ 78 = ""、COUNTA（78:78）> = 1）|白いテキスト、赤い塗りつぶし| を停止真

C78の場合：

フォーマット> Mで始まる含まれた細胞のみ>特定のテキスト> | フォーマットなし| Trueの場合は停止します。

> F>で始まる>特定のテキストを含むセルのみをフォーマットします。フォーマットなし| Trueの場合は停止する

>エラーなし|赤色の背景には、白いテキスト

D78：

セルの値は、あなたがDO-WHILE Loopでかなり簡単にこれを行うことができます300

出典

2016-09-28 Robby

あなたは誰かがコードのすべてを**あなたのために書いて欲しくないと言うでしょうか？ –

[ステップ1 - マクロレコーダーで開始]（https://support.office.com/en-us/article/Step-1-Start-with-the-macro-recorder-6DC53056-1DE1-4483-AA07- 63E4E0EFE3C2）。 – Jeeped

私はすでに言ったように、私はすでにレコーダーを使ってみました。私はそれを後に実行すると、それは正しく動作しません。私が上に掲げたもののコードを誰かに助けてもらえれば、残りのことができると思います。 – Robby

よりも大きいです。私は "D78"を始めるつもりだし、あなたは残りを終えることができるはずです。

sub formatCells() 

    Dim count as Integer 
    Range("D78").Activate 

    count = 0 
    Do While ActiveCell.Offset(count, 0).Value <> "" 
     If ActiveCell.Offset(count, 0).Value > 300 Then 
      'Do Stuff 
     End If 
     count = count + 1 
    Loop 
End Sub

出典

2016-09-28 15:51:13

ありがとう、しかし、少なくともその方法で、それは私のために働くつもりはありません。そして、私が望むものは、VBAではまったく不可能です。私はあなたの必要なものであなたの "ものを"置き換えましたが、私はそれがセルの値が300未満の数に変更された場合、デフォルトの塗りつぶしを保持することです。 – Robby

Excel - たくさんの条件付き書式をVBAに変換

答えて

関連する問題