返回列表 上一主題 發帖

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

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':
abbr_d1a0d0cacc406045f3634b6fc1f88fd1.png
型態不符合
可以幫我看一下要怎麼改嗎?
  1. Sub 勝場()
  2. Sub 勝場1()
  3. ' 快速鍵: Ctrl+j

  5. row = ActiveCell.row '將當前所在行放進ROX變量中
  6. 勝場數 = Range("by" & row).Value '若有修改去找勝場位置是否還在BY欄
  7. If 勝場數 = "" Then
  8. 勝場數 = "0"
  9. End If
  10. Dim x As String
  11. x = InputBox("第" & row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)

  13. 'MsgBox x
  14. '回傳的值，1=確定 2=取消 3=異常終止 4=重試 5=略過 6=是 7=否
  15. If x > 0 Then
  16. Range("by" & row) = 勝場數 + x
  17. ElseIf x = "" Then
  18. MsgBox "已取消操作"
  19. End If
  20. End Sub
複製代碼
收藏 分享

wei9133

帖子
58 
主題
9 
精華
0 
積分
117 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2017-12-2 
最後登錄
2021-12-16 
2#
發表於 2020-1-1 23:34 | 顯示全部帖子
回復 2# 准提部林

可以正常操作了，感謝

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

將X值輸入負數
程式碼走到這
Range("by" & row) = 勝場數 + x
應該是 勝場數 + 負值
出來的數字應該是要 勝場數 - 值才對
  1. Dim x As Integer
  2. x = InputBox("第" & row & "行" & "勝場：" & 勝場數 & "場" & vbCrLf & "是否勝利並加鍵入的數量上去", "確認窗口", 1)
  3. '回傳的值，1=確定 2=取消 3=異常終止 4=重試 5=略過 6=是 7=否
  4. MsgBox x

  6. If Val(x) > 0 Then '將文字轉為數值
  7. Range("by" & row) = 勝場數 + x
  8. ElseIf x = "" Then
  9. MsgBox "已取消操作"
  10. End If
  11. End Sub
複製代碼

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題