Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

求助VBA自定义函数:求空间某一个点距离它最近的一条直线

钟庆泉 等级: 普通会员 积分:5 金币:0 来自:佛山Access交流中心 发表于:2016-08-26 17:02:15   已结帖
楼主

本人初学VBA,求助偏个小程序如题:

平面中某点(x,y),分别计算其到直线D1:X+Y-1=0,直线D2:X+Y+2=0的距离

然后找出两者中的距离最小的直线。

谢谢!

试编如下:

Private Sub X_AfterUpdate()
Me.最近线 = CC(Me.X, Me.Y)
End Sub

Function CC(X As Double, Y As Double) As String
Dim D1, D2
D1 = Abs(X + Y - 1) / Sqr(1 ^ 2 + 1 ^ 2) '计算D1、D2距离,D1\D2是直线的代码
D2 = Abs(X + Y + 2) / Sqr(1 ^ 2 + 1 ^ 2)
CC= Min(D1, D2)               '取最小值所对应的代码,结果要输出代码D1或D2,不要具体数值
End Function

 

access培训  诚聘access开发人员

    钟庆泉
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的20篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

钟庆泉 等级:普通会员 积分:5 金币:0 来自:佛山Access交流中心 发表于2016/8/26 17:07:42 
1楼 得分: 0

min()函数VBA居然无法识别

求解



    钟庆泉
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的20篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
煮江品茶 等级:荣誉管理员★★★★★ 积分:5172 金币:17920 来自:武汉Access交流中心 发表于2016/8/28 10:55:51 最佳答案
2楼 得分: 2

vba中没有Min函数吧?可以写一个自定义求最小值得函数。

Function myMin(ByVal x As Double, ByVal y As Double) As Double
    Dim min As Double
    min = x
    If y < x Then min = y
    myMin = min
End Function

 



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    煮江品茶
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的7篇;
      协助社区成员:协助他人(即回帖)4989篇,其中被设为【最佳答案】的1593篇;
      协助我们社区:发布技术文章448篇,邀请了47名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
钟庆泉 等级:普通会员 积分:5 金币:0 来自:佛山Access交流中心 发表于2016/8/29 14:01:17 
3楼 得分: 0

谢谢,楼上的回复。

但我的问题是,如果要求的最小值不是2个数,而是多个数时,如何处理?

且我想要的是最小值对应的直线代码,不是最小的数值是多少.我改了一下,看这样代表是不是更容易理解

Private Sub X_AfterUpdate()
Me.最近线 = CC(Me.X, Me.Y)
End Sub

Function CC(X As Double, Y As Double) As String
Dim A, B, C As String
Dim a1, b1, c1, min As Double
Dim arr() As Variant
arr = [{"A","a1";"B","b1";"C","c1"}]
a1 = Abs(X + Y - 1) / Sqr(1 ^ 2 + 1 ^ 2) '计算A、B、C距离a1\b1\c1
b1 = Abs(X + Y + 2) / Sqr(1 ^ 2 + 1 ^ 2)
c1 = Abs(X + Y + 5) / Sqr(1 ^ 2 + 1 ^ 2)
min = DMin(a1, b1, c1)         '取最小值所对应的代码,结果要输出A、B、C,不要具体数值
CC=dlookup(                    '对应代码是.....不会写了
End Function




    钟庆泉
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的20篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
zhaoyoulong 等级:一星会员 积分:540 金币:400 来自:南京Access交流中心 发表于2016/8/29 17:25:17 
4楼 得分: 0
Function MyMin(MyArray() As Variant)
    Dim i As Integer
    Dim currentVal As Variant
    currentVal = MyArray(0)
    For i = 0 To UBound(MyArray)
        If FieldArray(i) < currentVal Then
            currentVal =MyArray(i)
        End If
    Next i
   MyMin= currentVal
End Function


    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    zhaoyoulong
      获得社区协助:请教问题(即发帖)19篇,其中获得解决的12篇;
      协助社区成员:协助他人(即回帖)663篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章10篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
钟庆泉 等级:普通会员 积分:5 金币:0 来自:佛山Access交流中心 发表于2016/8/30 21:02:40 
5楼 得分: 0
谢谢两的回复,给我很大的提示,问题得以解决

    钟庆泉
      获得社区协助:请教问题(即发帖)23篇,其中获得解决的20篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:5篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。