这段代码适用于大多数表达式,但是当我有一个减号后跟一个正号时,两个项都会被减去(第一项应该减去,第二项应该加上)。输入4*3^2-7*3+5*3就是一个这样的例子。这个问题的答案是30,但是程序执行4*3^2-7*3-5*3并输出0。我不确定如何解决这个问题。代码: Private Function ParseExpr(ByRef expression As String)
Dim op, op1 As Integer
下面的代码允许我成功地将所有工作表复制到新的工作簿。这在以前工作得很好,但现在我只想复制工作表2-7,因此不包括工作表1。 这是通过用户将数据复制到表1中来完成的,并且数据将被填充到表2-5中。为了能够导入复制的数据,我需要一个包含表2-7的新工作簿。XlFileFormat.xlOpenXMLWorkbookOutput.Close
End Sub 关于如何改进代码以仅复制指定的工作表