office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access在報錶中把符閤條件的數據圈齣來

2020-09-01 08:00:00
tmtony8
原創
364

在報錶展示的數據中,我們有時希望突齣顯示某些符閤條件的數據。

對於數據高亮顯示,比較簡單的辦法可以通過條件格式。可以設置各種突齣的樣式

這裡介紹一下在報錶中,把指定範圍的數據集 用橢圓圈釋齣來


通過下麵代碼,把價錢小於等於5的價錢用紅色的橢圓圈齣來

Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer)
    Dim sH As Single
    Dim sV As Single
    Dim sW As Single
 
    If Me.價錢<= 5 Then 
     With Me.價錢 
       sH = .Left + .Width / 2 '橢圓的位置 
       sV = .Top + .Height / 2 sW = .Width / 2 '設置橢圓的寬度 
     End With 
     Me.Circle (sH, sV), sW, vbRed, , , 0.3 '畵橢圓 
    End If 
End Sub 


此代碼主要是通過定位到指定條件的位置,用Circle函數畵齣指定大小的橢圓

分享