软件:EXCEL
版本:2013
大家好，又遇到难题上来请求各位大大的帮忙了。
最近在VBA表单上做了一个文字方块，文字方块的内容是要输入分数型态
或整数的资料；(1)当输入的资料是分数且超过1以上，用Int()搭配If判
断式将整数部分存放在a1储存格，分数部分放在b1储存格。(2)当输入资
料是分数且小于1，则把分数放在a1储存格。(3)当输入资料刚好是整数时
，则将整数放在a1储存格。但是每次执行都会在int()跳出资料型态错误。
请问有没有什么办法可以让textbox的数入的内容可以判别分数型态资料?
ex:
z = textbox1.value 'key in 的资料，ex 1 1/2
x = int(textbox1.value) '取整数后的资料 <-该行出现型态错误
if z < > x then
if z < 1 then
range("a1") = z
else
range("a1") = x
range("b1") = z - x
endif
else
range("a1") = x
endif