wei9133

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-12-31 22:44 | 只看該作者

[發問] inputbox 出現型態不符合

下面代碼如果按確定會正常執行，但若按下取消或esc則會出現
執行階段錯誤 '13':

型態不符合
可以幫我看一下要怎麼改嗎?

Sub 勝場()
Sub 勝場1()
' 快速鍵: Ctrl+j
row = ActiveCell.row '將當前所在行放進ROX變量中
勝場數 = Range("by" & row).Value '若有修改去找勝場位置是否還在BY欄
If 勝場數 = "" Then
勝場數 = "0"
End If
Dim x As String
x = InputBox("第" & row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)
'MsgBox x
'回傳的值，1=確定 2=取消 3=異常終止 4=重試 5=略過 6=是 7=否
If x > 0 Then
Range("by" & row) = 勝場數 + x
ElseIf x = "" Then
MsgBox "已取消操作"
End If
End Sub

複製代碼

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

2^#

發表於 2020-1-1 11:11 | 只看該作者

回復 1# wei9133

Dim x As String '文字型態
x = InputBox("第" & Row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)
'回傳的值，1=確定 2=取消 3=異常終止 4=重試 5=略過 6=是 7=否
If Val(x) > 0 Then '將文字轉為數值
Range("by" & Row) = 勝場數 + x
ElseIf x = "" Then
MsgBox "已取消操作"
End If

TOP

wei9133

中學生 Rank: 2

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

3^#

發表於 2020-1-1 23:34 | 只看該作者

回復 2# 准提部林

可以正常操作了，感謝

另外想問一下
為何將
Dim x As Integer '宣告為整數則會變成錯誤
還有若x 輸入負數則不動作
(無論x宣告為字串或整數都是)

將X值輸入負數
程式碼走到這
Range("by" & row) = 勝場數 + x
應該是勝場數 + 負值
出來的數字應該是要勝場數 - 值才對

Dim x As Integer
x = InputBox("第" & row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)
'回傳的值，1=確定 2=取消 3=異常終止 4=重試 5=略過 6=是 7=否
MsgBox x
If Val(x) > 0 Then '將文字轉為數值
Range("by" & row) = 勝場數 + x
ElseIf x = "" Then
MsgBox "已取消操作"
End If
End Sub

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

4^#

發表於 2020-1-4 10:45 | 只看該作者

回復 3# wei9133

InputBox 按取消後, 是個空字符""
所以 Dim x As Integer 必然發生錯誤, 因為x="", 不是數值

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

5^#

發表於 2020-1-4 10:55 | 只看該作者

本帖最後由准提部林於 2020-1-4 10:57 編輯

回復 3# wei9133

Sub ttst()
Dim x
x = Application.InputBox("第" & Row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)
If x & "" = "False" Then
MsgBox "已取消操作" '按取消時(注意:輸入0按確定, x也會被定為0=False, 所以要加"", 變成文字與0做區別)
ElseIf x = "" Then
MsgBox "未輸入內容"
ElseIf IsNumeric(x) = False Then
MsgBox "輸入的非數值"
Else
Range("by" & Row) = 勝場數 + x
End If
End Sub

TOP