Question

Private Sub CommandButton3_Click()
    Dim rownum, startcol, endcol, holder As Integer
    rownum = InputBox("Enter the row that swapping process going to happen")
    startcol = InputBox("Enter the column of the cell you want to swap")
    endcol = InputBox("Enter the column of the cell that you wanted swap with")
    holder = Cells(rownum, startcol).Value
    Cells(rownum, startcol).Value = Cells(rownum, endcol).Value
    Cells(rownum, endcol).Value = holder
End Sub

给予

运行时错误1004 - “运行时错误'1004'：应用程序定义或对象定义的错误“

似乎无法理解。

Answer 1

正确调暗你的变量并使用application.inputbox获取更多选项。

type:=1

type:=2告诉application.inputbox预期一个数字; var str = '{"taskStatus":"Failed","taskFields":{"originalTransactionDate":"2017-08-17","transactionPostingDate":"2017-08-17","referenceNumber":"12345","promotionIdentifier":"undefined","merchantAdjustmentDescription":"test","transactionAmount":"150.00","batchPrefix":"IF","transactionCode":"Failed6"}}'; str = JSON.parse(str); document.write(JSON.stringify(str));告诉application.inputbox期望一个字符串。

获取Excel Vba运行时错误1004

1 个答案: