同一値の行全体の背景色を変えて表示させる　 次の文書

Private Sub Form_Current()
　'レコード移動時
　Dim avarContorol() As Variant
　Dim iintLoop As Integer

　'このフォーム内の対象コントロールを配列に設定
　avarContorol = Array("取込番号", "注文者氏名", "送付先氏名", "送付先住所", "商品番号")

　'すべての対象コントロールのループ
　For iintLoop = 0 To UBound(avarContorol)
　　　With Me(avarContorol(iintLoop)).FormatConditions
　　　　'既存の条件付き書式を削除
　　　　.Delete
　　　　'新しい条件付き書式を追加
　　　　 '（取込番号がカレント行の取込番号と等しいときの条件を設定）
　　　　With .Add(acExpression, , "[取込番号] = " & Me!取込番号)
　　　　'背景色を設定
　　　　.BackColor = 52377
　　　　'フォントを太字に設定
　　　　.FontBold = True
　　　End With
　　End With
　Next iintLoop
End Sub

参考 URL
http://homepage1.nifty.com/tsware/tips/tips_392.htm


　
背景色を行選択時に変更する



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)