軟體: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