自定义函数--提取单元格内多个被分开的数字

YZC51 · 发表于 2020-1-7 12:40

本帖最后由 YZC51 于 2020-1-7 19:07 编辑

谢谢 wj2368 老师的代码。谢谢老师！

Function jw(x, y) As Double '四舍六入五成双
Dim ij As Double
x = x * (10 ^ y)
x1 = Int(x)
x2 = Format(x - x1, "0.00")
x3 = x1 Mod 2
If x2 > 0.5 Or (x2 = 0.5 And x3 <> 0) Then
x1 = x1 + 1
End If
jw = x1 * (10 ^ (-y))
End Function

sxz4494 · 发表于 2020-1-7 12:42

YZC51 发表于 2020-1-7 12:37
老师好！这个没试过！

现在的手机拍照，可以选择保留地理位置，就有GPS信息了，我搜索了很久也找不到类似的工具，如果，能够把GPS信息提取出来就更好了，如果再根据gps信息再得到地理位置就更好了

YZC51 · 发表于 2020-1-7 12:47

sxz4494 发表于 2020-1-7 12:42
现在的手机拍照，可以选择保留地理位置，就有GPS信息了，我搜索了很久也找不到类似的工具，如果，能够把G ...

你说的功能真不错！

yes363001640 · 发表于 2020-1-7 14:50

YZC51 发表于 2019-7-5 11:29
上面两个自定义函数的示例文件。

这种帖子没发不点赞啊。太有用了。

YZC51 · 发表于 2020-1-7 14:53

yes363001640 发表于 2020-1-7 14:50
这种帖子没发不点赞啊。太有用了。

谢谢老师鼓励！

yes363001640 · 发表于 2020-1-7 14:57

YZC51 发表于 2019-8-11 10:25
图形聚光灯-V1.4版
学习老师们的文件，在此谢谢老师们！
为回馈论坛，特发此附件。请老师们斧正！

居然用图型做聚光灯的，厉害厉害

YZC51 · 发表于 2020-1-7 15:34

yes363001640 发表于 2020-1-7 14:57
居然用图型做聚光灯的，厉害厉害

谢谢！老师过奖啦！！！

YZC51 · 发表于 2020-1-8 15:36

本帖最后由 YZC51 于 2020-1-12 12:46 编辑

优化下
Function yjw(x, y) As Double '四舍六入五成双
xx = Len(Mid(x, InStr(x, "."))) + 2: x = x * (10 ^ y): x1 = Int(x)
x2 = Format(CDec(x - x1), "0." & String(xx, "0")): x3 = x1 Mod 2
If Val(x2) > 0.5 Or (x2 = 0.5 And x3 <> 0) Then x1 = x1 + 1
yjw = x1 * (10 ^ (-y))
End Function

YZC51 · 发表于 2020-1-10 10:34

本帖最后由 YZC51 于 2020-1-11 11:08 编辑

全国地市行政区县查询系统2018

全国地市行政区县查询系统2018-3.rar (232.07 KB, 下载次数: 38)

YZC51 · 发表于 2020-1-12 21:19

不记得哪位的求助，自己来领取吧

求三级菜单 V4.rar (53.21 KB, 下载次数: 31)

		自动登录	找回密码
密码			免费注册

[讨论] 自定义函数--提取单元格内多个被分开的数字

评分

评分

评分

评分