自动填入参数范围，求老师帮助！

yysfcq1 · 发表于 2024-3-5 15:14

本帖最后由 yysfcq1 于 2024-3-5 18:08 编辑

yysfcq1 · 发表于 2024-3-5 16:09

求老师帮助，感激不尽！

lisongmei · 发表于 2024-3-5 16:44

Function fn(rng As Range)
Dim arr, num
Application.Volatile True
arr = VBA.Split(rng.Value, "-")
num = Format((VBA.Rnd() * (Val(arr(1)) * 10 - Val(arr(0)) * 10) + Val(arr(0)) * 10) / 10, "0.0")
fn = num
End Function

写了个填数的函数。至于打印，你自己录个宏咯。。供参考

yysfcq1 · 发表于 2024-3-5 16:52

lisongmei 发表于 2024-3-5 16:44
Function fn(rng As Range)
Dim arr, num
Application.Volatile True

老师能帮忙写下附件上传吗

lisongmei · 发表于 2024-3-5 16:59

yysfcq1 发表于 2024-3-5 16:52
老师能帮忙写下附件上传吗

你新建个模块，复制粘贴代码就能用了，难得上传啊。。

yysfcq1 · 发表于 2024-3-5 17:01

lisongmei 发表于 2024-3-5 16:59
你新建个模块，复制粘贴代码就能用了，难得上传啊。。

我试了还是不行，麻烦老师了！

lisongmei · 发表于 2024-3-5 17:18

yysfcq1 发表于 2024-3-5 17:01
我试了还是不行，麻烦老师了！

粘贴后，你要在你绿色的框里写函数呀。比如 fn(A1), 你再试试。

yynrzwh · 发表于 2024-3-5 22:06

副本C7C9数据图.zip (106.88 KB, 下载次数: 2)

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

[已解决] 自动填入参数范围，求老师帮助！

评分

评分