VBA代码 随机字母2025年3月18日 10:08
Function RandABC()
RandABC = [ CHAR(RANDBETWEEN(65,90))]
End Function
Function E8F_RandAny(arr) '从一个一维数组里取的随机数
E8F_RandAny = arr(Application.RandBetween(LBound(arr), UBound(arr)))
End FunctionFunction RandABC()
RandABC = [ CHAR(RANDBETWEEN(65,90))]
End Function
Function E8F_RandAny(arr) '从一个一维数组里取的随机数
E8F_RandAny = arr(Application.RandBetween(LBound(arr), UBound(arr)))
End Function
全部回复（0）