Excel VBA-编译错误-需要对象

Question

我仍然离我要做的很远，但在选择和设置付款期限和到期期限的前几行得到了一个代码

错误是编译错误-对象必需。我不知道是什么。WIP代码复制如下

Private Sub Simulation_Click()
Dim PPT As String
Dim Term As String
MsgBox (" The Programme is starting now")

Set PPT = Workbooks("himanshu.xlsm").Worksheet("Sheet1").Range("G2").Value
Set Term = Workbooks("himanshu.xlsm").Worksheet("Sheet1").Range("G3").Value

For PPT = 1 To PPT  
    For Term = 1 To Term  
     ' Do something here  
    Next Term  
Next PPT  

End Sub

请帮助编辑#1-2017年9月19日上午3点10分，我的第一个VBA代码终于运行了。它很慢，但它在奔跑。我在代码行“Workbooks（”himanshu.xlsm“）.sheet1”.range（“j2”）.copy Workbooks（“himanshu.xlsm”）.sheets（“what if”）.cells（cols,Rowsh）“中遇到的最后一个问题，其中while to source携带正确的值（在调试模式下选中），但当它粘贴到target时，它被粘贴为0。当我检查目标表时，不知何故它向我显示了一个公式(=Max(R1C1:x1y1)。请注意，从我复制值（源）的地方，它是作为选择col J的Max的公式到达的excel计算。我怀疑代码是在复制公式而不是值。请指教

Option Explicit
Sub macro21()
'MsgBox ("Start")
Dim i As Integer, j As Integer
Dim PPT As Integer
Dim Term As Integer
Dim pptrange As Range    ' Address of the Cell where PPT is maintained in Sheet 1
Dim termrange As Range   ' Address of the Cell where Term is maintained in Sheet 1
Dim cols As Integer
Dim Rowsh As Integer

PPT = 3
Term = 5
cols = 3
Rowsh = 3
For i = 1 To PPT

    For j = 1 To Term
        
        Set pptrange = Workbooks("himanshu.xlsm").Sheets("Sheet1").Range("G2")  ' Set pptrange and termrange locations
        Set termrange = Workbooks("himanshu.xlsm").Sheets("Sheet1").Range("G3")   ' Set pptrange and termrange locations
        pptrange.Value = i
        termrange.Value = j
        ***Workbooks("himanshu.xlsm").Sheets("Sheet1").Range("J2").Copy Workbooks("himanshu.xlsm").Sheets("What if").Cells(cols, Rowsh)***
'        MsgBox ("Value is " & Cells(cols, Rowsh).Value)
        MsgBox ("Value is " & Workbooks("himanshu.xlsm").Sheets("Sheet1").Range("J2"))
        
        
        If j < Term Then
            cols = cols
            Rowsh = Rowsh + 1
        End If
    Next j
    cols = cols + 1
    Rowsh = 3
Next i

End Sub

我在代码行“Workbooks（”himanshu.xlsm“）.sheet1”.range（“j2”）.copy Workbooks（“himanshu.xlsm”）.sheets（“what if”）.cells（cols,Rowsh）“中有问题，其中while to source携带正确的值（在调试模式下选中），但当它粘贴到target时，它被粘贴为0。当我检查目标表时，不知何故它向我显示了一个公式(=Max(R1C1:x1y1)。请注意，从我复制值（源）的地方，它是作为选择col J的Max的公式到达的excel计算。我怀疑代码是在复制公式而不是值。请指教

Answer 1

PPT是一个字符串，因此您应该使用：

PPT = ...

而不是

 Set PPT = 

set用于分配对象变量，如工作簿、工作表等。