office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

access在报表中把符合条件的数据圈出来

2020-09-01 08:00:00
tmtony8
原创
165

在报表展示的数据中,我们有时希望突出显示某些符合条件的数据。

对于数据高亮显示,比较简单的办法可以通过条件格式。可以设置各种突出的样式

这里介绍一下在报表中,把指定范围的数据集 用椭圆圈释出来


通过下面代码,把价钱小于等于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函数画出指定大小的椭圆

分享