マクロについて教えてください、、

解決済

質問者：佐藤知
質問日時：2023/06/06 22:07
回答数：5件

表があります。
EEEより下のデータで判定します
20の場合、20の必須項目にデータがなければ背景色を塗る。
50の場合、50の必須項目にデータがなければ背景色を塗る。

※表は動的です。固定ではないので下にも横にも数値が増えます。

というマクロを作成したいです。

1．B3セルからお願いします

2.FFFの右側にGGG、HHHなどが増えるという認識であっております。
AAAの左側には増えないと理解して良いですか。←こちらも認識通りです、、

No.1の回答に寄せられた補足コメントです。補足日時：2023/06/06 22:54
通報する
【追記です】
もし必須項目にデータがなかったらアラートも出したいです。。

補足日時：2023/06/06 23:02
通報する
分かりずらくすみません。
メッセージボックスに警告を表示が希望です、

No.2の回答に寄せられた補足コメントです。補足日時：2023/06/06 23:36
通報する
ありがとうございます。

EEEのデータが20の場合、20の必須項目にデータがなければ背景色を塗る。
EEEのデータが50の場合、50の必須項目にデータがなければ背景色を塗る。

こちらの条件はコード上どこで設定されていますか、

No.4の回答に寄せられた補足コメントです。補足日時：2023/06/07 09:28
通報する

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： tatsumaru77
回答日時：2023/06/07 10:19

>EEEのデータが20の場合、20の必須項目にデータがなければ背景色を塗る。

>EEEのデータが50の場合、50の必須項目にデータがなければ背景色を塗る。
>こちらの条件はコード上どこで設定されていますか、

下記の「２．Dim flag() As Booleanの設定」がそれに該当するかと思います。

処理の概要を順に示します。
１．前処理
２行目の「○○の必須」とF列の○○が一致するセル位置を記憶する必要があります。
そのため、○○の必須から○○を取り出し、mvalに格納します。
mval(2)には50
mval(3)には20
mval(4)には50・・・が格納されます。
（31～34行の処理）

２．Dim flag() As Booleanの設定
flagが表示されているセルが必須項目か否かを示すフラグです。
添付図ではA1:G9の範囲を表しています。
このflagで1～３行目と６列（F列）は、本来使用しませんが、行番号と列番号で
このflagにアクセスするために、これらの行、列も含めています。
添付図でTRUEと表示されているセル位置にTRUEが設定されます。
例としては、C4がTUREにすべきなので、flag(4,3)=True 　となるように設定をします。
上記を行うために、
①F列の４行から最終行まで、各セルの値（○○）を取り出す。（○○は20又は50）
②この○○がmval中の値に一致するかチェックする。
　一致するれば、その位置に該当するflagにTrueを設定する。
　（50行の flag(wrow, wcol) = True）
③この○○がmval中の値に1件も一致しないなら、エラーとし、終了する。
（①～③は37～61行）