软体: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 -- 桃~● ╱ . ◢██◣ 探犹 　俺 园 ╱ ╱ █ ◥▋ 主公！救我！ 囊如 中在 实 画. . ＋ ╱ ╱ ╱ ◣◤□︵□▋ / 取 取百 至 家 ◆●●●Φ▃▃▃▃▃●█◤◥\ ▆_◤▃●~▃▃▃▃￠ 物 敌万 名 . . . . ◥\ ◤█◤ ╱ ╱ ~● 之军 归 ψfishhzy123 . . ▆▆◤ ╱ crabwind改 洨 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.40.166.232 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1501264905.A.2FC.html