Tag: debugging

Exceldebugging模式失败

我有一个工作簿系统的各部门，每个都有auto_openmacros。 我也有一个控制工作簿，可以根据需要运行自己的macros来打开系统中的每本书并收集信息。 它通常很好。 但是，当debugging中央工作簿中的macros成为必要时，踩入命令以打开任何支持书籍的auto_open将颠覆debugging器，并导致其余的代码执行，如果F5键已被按下。 我查找了一个debugging设置来防止这一点，以及任何“打开”的方法参数，可能会改变这种行为，没有运气。 谷歌search也没有结果。 有什么办法可以告诉Exceldebugging器在这种情况下维护程序控制吗？ 帮助我stackoverflow，你是我唯一的希望。

如何在debugging时刷新Excel

如果我正在debugging（在这种情况下是由Excel调用的Visual Studio程序集）并且代码更新了Excel工作表，那么如何让Excel在debugging器中暂停时重新绘制当前工作表/窗口？

我一直在Excel VBA中收到#value错误

所以我在VBA for Excel中写了一个快速函数，但每次我调用它时，都会给我一个#value错误。 我不知道我做错了什么。 谁能帮忙？ Function h(UA, k, A, Af_At, Delta, l) h1 = 0 m = (2 * h1 / k / Delta) ^ 0.5 ml = m * l Nf = WorksheetFunction.Tanh(ml) No = 1 – Af_At * (1 – Nf / ml) UA1 = h1 * A * No / 2 While […]

公式在VBA中不起作用

在我logging的macros中，我将另一个工作簿中的公式复制到新的公式中，因为我希望macros将此公式插入到单元格中。 虽然这个公式在那个时候起作用，但是我不能使用Marco，因为它导致了一个错误。 我想这个问题可能是公式中的另一个工作表的引用（settings.xlsm）。 有谁可以告诉我如何解决这个问题？ 代码如下： Sub Macro4() ' ' Macro4 Macro ' ' Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("I3").Select ActiveCell.FormulaR1C1 = _ "=IF(AND([@Staffnumber]=R[-1]C[-7],OR(AND([@start1]<=settings.xlsm!R4C2,MONTH([@start1]<MONTH(settings.xlsm!R4C2))),[@start1]>=settings.xlsm!R4C2,MONTH([@end1]>MONTH(settings.xlsm!R4C2)))),DATE(YEAR(R[-1]C[-5]),MONTH(R[-1]C[-5]),DAY(R[-1]C[-5]+1)),IF(AND([@Staffnumber]<>R[-1]C[-7],OR(MONTH([@start1])<MONTH(settings.xlsm!R4C2),YEAR([@start1])<YEAR(settings.xlsm!R4C2))" & _ "F(AND([@Staffnumber]<>R[-1]C[-7],OR(MONTH([@end1])>MONTH(settings.xlsm!R4C2),YEAR([@end1])>YEAR(settings.xlsm!R4C2))),DATE(YEAR(R[-1]C[-5]),MONTH(R[-1]C[-5]),1),DATE(YEAR(RC[-5]),MONTH(RC[-5]),1))))" Columns("I:I").Select Selection.NumberFormat = "ddmmmyyyy ""00:00""" Range("J11").Select End Sub 感谢您的帮助！

Excel 2013 VBA Workbooks.Open失去debugging步骤模式？

当我进入一个子，然后进入声明： Workbooks.Open Filename:= "C:\file2" 看起来好像文件打开好了，但在返回的调用子的其余部分只是执行（我失去了进入模式）。 这可以帮助吗？

debugging通过双击现有文件启动Excel VSTO加载项

我已经开发了Excel VSTO 4.0 C＃加载项中的一个错误，但只有在双击现有文件才能启动Excel时才会发生。 我试图找出一种方法来启动VS2013debugging器，以便我可以放入一些断点，但是我没有尝试启动debugging器的方式，模拟双击文件启动Excel的过程。 到目前为止我尝试过的方法： 启动Excel本身，然后附加到过程 双击一个Excel文件，然后附加到生成的过程 在“启动操作”下的VS项目“debugging”属性中，在“启动外部程序”框中inputExcel Excel.exe的path，并在命令行参数框中input现有Excel文件的path 将Excel.exe作为新的现有项目添加到我的VS解决scheme中，将现有文件的path作为项目属性中的参数，将其设置为解决scheme的启动项目。 这些启动debugging器的方法都没有重现错误。 有没有另一种方法来启动debugging时，双击文件启动Excel？ 对于它值得的，我遇到的错误是，当Excel尚未运行时双击现有文件时将会创build一个空的工作簿。 我需要找出哪里/为什么这个空文件正在创build。 如果Excel已经在运行，并且双击某个文件将其打开，则不会发生这种情况。

Excel：在行上添加上次修改的date

我正在尝试使用以下VBA脚本将上一次修改行的date和时间添加到该行的特定列： Private Sub Worksheet_Change(ByVal Target As Excel.Range) ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() End Sub 但它一直抛出以下错误： 运行时错误“-2147417848（80010108）”： 对象“范围”的方法“值”失败 任何人都可以解释为什么这是发生？

代码运行时，debbuging（F8）但不正常运行（F5）

当用户按下我的加载项选项卡上的button时，将触发以下代码： Sub OnActionListaMarkowitz(control As IRibbonControl) GeneratesWorkbook End Sub 在不同的模块中，我有一个子文件来创build一个新的工作簿，并将我的Xlam文件中的工作表复制到新的工作簿中。 Sub GeneratesWorkbook() On Error GoTo LabelErro Set PlanilhaMarkowitz = Workbooks.Add Dim currentSheet As Worksheet Dim sheetIndex As Integer sheetIndex = 1 'Changes xlam property to false so I can copy Xlam sheets to new wb ThisWorkbook.IsAddin = False ThisWorkbook.Activate 'Copy Xlam's sheets to new workbook Sheets("Hidden").Visible […]

Excel VBA – debugging程序在停止程序时崩溃Excel

我试图编码，以便能够在文本框中进行简单的math运算（用户types在5/8，.625出来）。 如果我遇到错误，debugging器就会告诉我这个错误，如果我点击结束button，另一个Excel窗口popup“Microsoft Excel停止工作”，然后excelclosures，然后重新打开。 当我在代码中放置断点并在断点处停止程序时，也会发生这种情况，excel只是崩溃，没有任何警告或解释。 这里是我正在debugging的代码的几行，也许这将有助于告诉你为什么，但我有这个项目的几个不同的模块，我以前从来没有这个问题，我已经能够debugging没有问题。 Sub TextboxMath(textbox As MSForms.textbox) Dim value As String value = textbox For i = 1 To Len(value) If Mid(value, i, 1) = "+" Then ElseIf Mid(value, i, 1) = "-" Then ElseIf Mid(value, i, 1) = "*" Then ElseIf Mid(value, i, 1) = "/" Then End If Next i End […]

使用Select Case语句的公共函数会吐出#VALUE！ 错误

根据我书中的一个声明，它正在计算我selectSelect Case的那个PV = NRT值。 Public Function ATHING(SolveFor As String, v1 As Single, v2 As Single, v3 As Single, v4 As Single) As Variant Dim p As Single Dim v As Single Dim n As Single Dim R As Single Dim t As Single Select Case SolveFor Case "P" n = v1 R = v2 t […]