どなたか教えて下さい。
Access2002を使っています。
フォームの条件付書式を使い売上が100000円以上なら赤に背景色を変えようと思っています。
VBAの勉強の為に、ツールバーの条件付き書式を使わずにvbaで挑戦してみました。
Private Sub Form_Open(Cancel As Integer)
If Me.売上.Value >=100000 Then
Me.売上.BackColor = RGB(255, 0, 0)
End If
End Sub
単票形式ならば上手くいくのですが、フォームのデータシートタイプで表示すると反応しません。
但し、ツールバーの条件付き書式からの設定ではデータシートでも反応します。
上記のIF文では条件付書式にはなっていないのでしょうか?
helpでDatasheetBackColor プロパティというのを探せましたが、全体の背景色の変更になってしまいます。
ツールバーにあるからには、VBAで出来るだろうと考えるのは間違えでしょうか?
もしもデーターシートの条件にあったセルのみ背景色をvbaで変えられることを知っている方、よろしくお願いします。
haru
No.2ベストアンサー
- 回答日時:
例えば、こんな感じで出来ます。
フォームの「読み込み時」イベントに次のように記述します。
Access VBA のヘルプで FormatConditions オブジェクトを
ご覧ください。
Private Sub Form_Load()
With Me.Controls("売上").FormatConditions _
.Add(acFieldValue, acGreaterThanOrEqual, "10000")
.BackColor = RGB(255, 200, 200)
.ForeColor = RGB(0, 0, 0)
End With
End Sub
データシートの場合、FormatConditionsを使う以外無いでしょう。
この回答への補足
ありがとうございます。
FormatConditionsが条件付書式と言うことを始めて知りました。
また、ご丁寧にコードまで書いていただき感謝します。
HELPでも見つけられましたので、よく研究します。
ありがとうございました。
haru
No.1
- 回答日時:
私も素人ですが、考えることを述べさせていただきます。
参考になりますように。
>単票形式ならば上手くいくのですが
>フォームのデータシートタイプで表示すると反応しません。
ホンとに、上手く行きますか。
私は下記でテストしました。
Private Sub Form_Current()
Me.フィールド3.BackColor = RGB(255, 255, 255)
If Me.フィールド3.Value >= 100 Then
Me.フィールド3.BackColor = RGB(255, 0, 0)
End If
End Sub(手持ちデータの関係で質問とフィールド名、条件値を変えています)
----
プログラムが実行されるのは、キッカケを貰わないと動きません。VB・VBAではイベントです。今の場合Form_Open
なんです。それはイベントを使っていると言う点で良いでしょう。
そしてFormがOpenされたとして、このルーチンに飛んできます。Me.売上.Value はレコード(各行)の値に関するものです。列(フィールド)全体では意味をなしません。列全体では、行により、10万より大きいのや小さいのがあって、真偽をいえないからです。Me.売上.BackColorも列は指定していて、判るのですが、行が判るものがありません。(私のプログラムでは、「現に読みこんだレコード1つについて」なので、真偽が言えるのです。)
もし、フォームをOpenしたら各行を1つずつ、読んであるフィールドの値で判断してくれて、全行を1つずつ処理してくれる機能を持たせてくれていれば、このプログラムで良いでしょう。しかし実際はそうでありません。Formでする(すべき)ことは、フォーム全体について、大きさを変えるとか、色を指定するとかに関することだけのはずです。
>ツールバーの条件付き書式からの設定ではデータシートでも反応します。
----
このように、ソフトで「操作で何かを行う」時は、レコードの考えを、システムは見えないようにしてしまいます。そして裏で、(前述した)「各行を1つずつ、読んであるフィールドの値で判断してくれて、全行を1つずつ処理してくれる」ことを繰り返しを行います。それは見せず、結果だけ見せます。そのような深いところでのプログラムのし方を勿論MSの技術者は知っていて、多分C++で組んだプログラムが走ります。
エクセルなどでは、マクロという形で提供しているものが
あります(例Sortなど)。
>ツールバーにあるからには、VBAで出来るだろうと考えるのは間違えでしょうか?
まず間違いではないにしても、今自分がやっているForm_Openで出来るかどうか、知っている範囲のやり方で出来るかとの議論とは違います。
アクセスVBAには何千と言うメソッド・プロパティ・イベントがあります。適切なものを探し出すのが勉強であり、大変です。充分知っている人なら多分VBAでも出きるでしょう。
>IF文では条件付書式にはなっていないのでしょうか?
条件付書式というメソッド(マクロ)がもしあればそれ指すのでしょうが、ない、またはあっても知らないからIF文で処理しようとしたわけです。「なっていない」は「条件付書式と同じ処理にならないのでしょうか?」と聞くべきで、結論からして、ならないのは、質問の事実が証明しています。しかしIF文が間違いと言うわけではないと思います。マクロ様のものがなければ、IF文を使わねばならない
でしょう。
>結局データシートタイプの場合の各セルの捉え方を勉強しなければならないと言うことだと思います。エクセルではCells(i,j)のようなものです。あるかないかから調べる必要があります。またそのセルがBackColor プロパティを持っていることが必要です。
私も知らないので勉強します。
早々のアドバイスありがとうございます。
最初は何が書いてあるのか理解するのに時間がかかってしまいました。
なるほど私のフォームの1件目の売上が100000円以上なのでそのデータに対し反応し、以降1件目のせいで色が出ているのがわかりました。ちなみに100000以下にしたら反応しなくなりました。大きな発見です。ありがとうございます。do loop と組み合わせて考えて見ます。
丁寧なご回答ありがとうございます。
haru
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) マクロ、条件付き書式のfont.color 1 2023/03/28 01:10
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- その他(Microsoft Office) googleスプレットシートで左右の数値を比較して色判別させたい 2 2022/06/06 18:33
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
ACCESSのクエリー抽出条件にIIFを使用して
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
5
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
Excel 書式を関数で判断。
-
Excel 条件付書式で土日の左・...
-
excelで選択範囲の反転をしたい...
-
Excel 条件付書式で二つの条件...
-
エクセル:一定以上の数値にな...
-
エクセルで2つのシートで重複し...
-
条件付き書式が選択できない?!
-
エクセル→貼り付けのオプション...
-
エクセルでの日程表で土日に背...
-
Excel2007で、条件付き書式の一...
-
EXCEL 条件書式で反応したもの...
-
条件付書式で色づけしたセルの...
-
エクセルです。入力して実行す...
-
指定した期限が近づくとセルの...
-
VBAで転記すると元のシートの条...
-
Excel2007 経過年数の自動色分け
-
VBAでシート書式の自動変換を作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
Excel 書式を関数で判断。
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
excelで選択範囲の反転をしたい...
-
エクセル:一定以上の数値にな...
-
エクセルで、書式は変えずに連...
-
Excel 条件付書式で土日の左・...
-
Excel 条件付書式で二つの条件...
-
エクセルのピボットテーブルの...
-
条件付き書式の条件に時刻を指...
-
エクセルで1年前の日付になった...
-
エクセルで2つのシートで重複し...
-
エクセル→貼り付けのオプション...
-
条件付き書式(色変更)は、予...
-
VBAで転記すると元のシートの条...
-
Excelで、塗りつぶしを含め同じ...
-
Excelで4勤2休のカレンダーを作...
-
Excel2007で、条件付き書式の一...
-
VBAでシート書式の自動変換を作...
おすすめ情報