Excel 使用 vba 如何檢查輸入是否為數字

1.首先，在開發工具中開啟VBA。

2.在單元格區域中輸入一些內容作為示例。

3. 將模組插入 VBA。

4. 在模組中輸入以下**，然後執行 private sub textbox2 change（）dim istr as string， ilast as integeristr= len（istr） >0 thenilast=asc（right（istr， 1）） if ilast < 48 or ilast > 57 then ， len（istr）-1） end ifend sub。

5.使用快捷鍵F5執行表單，分別在三個文字框中輸入字元，即可在“手機號碼”文字框中找到除數字和“！ “等符號受到嚴格限制。

if isnumeric(range("a1")) thenmsgbox "這就是數字"

elsemsgbox "如果您不明白，請不要輸入！ "

end if

二樓不錯。 如此盡職盡責和負責任。

鼓勵。

1.首先，在開啟寬毛工具中開啟VBA。

2.在單元格區域中輸入一些內容作為示例。

3. 將模組插入 VBA。

4. 在模組中輸入以下**，然後使用私有子 textbox2 change（）dim istr as string， ilast as integeristr= len（istr） > hunger 0 thenilast=asc（right（istr， 1）） if ilast < 48 or ilast > 57 then ， len（istr）-1） end ifend sub。

5. 使用快捷鍵。

F5執行表單，分別在三個文字框中輸入字元，可以在“手機號”文字框中找到除數字和“！ “等符號受到嚴格限制。

存在兩個方面的問題：

1. 對於列的迴圈，end 的引數應為"xltoright"

2.條件的判斷。 只要單元格中的字元是數字，isnumeric 函式就會判斷它們為“真”，它不會在乎單元格是“數值”還是“文字”。 你應該先使用typename函式來確定單元格的型別，如果它不是數值，那麼使用isnumeric函式來判斷單元格值的字元是否為數字，如果是數字，則將其轉換為數值，如果不是數字，將根據您的需要進行處理。

**稍長一些，使用時每只迴圈使用範圍。

dim rng as range

for each rng in

if isnumeric(rng) thennext rng