如何获取数值中的个位数

bdggch · 发表于 2016-4-21 18:54

请问，在VBA环境中哪个函数可以获取两位整数数值中的个位数，要求获取的结果也得是整数类型。如18，通过vba函数获取得到8。
工作表函数right( ) 使用结果是字符型，而且在VBA环境里还不知能用否。

maditate · 发表于 2016-4-21 19:14

Sub test()
a = 123.543
b = Fix(a)
c = Right(b, 1)
MsgBox c
End Sub

liulang0808 · 发表于 2016-4-21 19:21

本帖最后由 liulang0808 于 2016-4-21 19:22 编辑

a = 15.66
b = Right(Int(a), 1)*1

Vicel · 发表于 2016-4-21 21:18

将数值取整再求余
Sub test()
t = 18.6
MsgBox Int(t) Mod 10
End Sub

bdggch · 发表于 2016-4-21 22:17

多谢楼上3位。
要是针对100以内的两位数，4楼的的方案估计要加if语句或select语句。
2楼的结果是字符型吧，不能拿来直接用吧。
3楼的最简洁，就是不知right（）能在VBA中用吗？

microyip · 发表于 2016-4-21 22:25

value(right(数字,1)

bdggch · 发表于 2016-5-1 16:10

microyip 发表于 2016-4-21 22:25
value(right(数字,1)

嗯，value（）我查到了，也行。谢谢。

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