Tag: 运行时错误

是什么导致此运行时错误13“types不匹配”？

下面的代码增加了一个基于哪个单元格包含“是”的variables。 它直到我使用自动填充将F13：F59中的任何单元格的值设置为“Yes”。 当我手动键入单词“是”时，运行时错误不会发生。 但是自动填充，似乎是造成这个问题。 Select Case (changedcell) 'Issues Mgmt Case Range("F15"), Range("F19"), Range("F23"), Range("F27"), Range("F30"), Range("F39"), Range("F42"), Range("F45"), Range("F50"), Range("F53"), Range("F54") 'Issues If Range("F15").Value = "Yes" Then issues = issues + 1 End If If Range("F19").Value = "Yes" Then issues = issues + 1 End If If Range("F23").Value = "Yes" Then issues = issues + […]

运行时错误13types不匹配Excel

我希望你能帮助我有下面的一段代码，我得到运行时错误13在这一行 If Sheets("Input").Range("A11:C100").Value = "" Then 我想要实现的是不让用户保存Excel工作簿，而不填充范围内的单元格（“A11：C100”）如果只是（“A11”），代码工作正常，但如果我增加范围I得到错误。 我的代码的其余部分是低于任何帮助将不胜感激。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Step 1: Check to see if Cell A1 is blank If Sheets("Input").Range("A11:C100").Value = "" Then 'Step 2: Blank: cancel the Close and tell the user Cancel = True MsgBox "Cells A11 to C100 can not be blank" 'Step […]

VBA运行时错误1004 Range类的AutoFilter方法失败

我希望你能帮上忙。 我得到错误运行时错误1004自动过滤方法的范围类失败 当我运行我的代码Public Sub TestThis() ，有趣的是它本身是完美的，但是当我把它放入其他代码并调用它时，它会给出错误1004 AutoFilter方法的Range类失败 错误发生在这条线上 .Range("A:K").AutoFilter Field:=11, Criteria1:="<>", Operator:=xlFilterValues 就像我说的那样，当调用它时，没有被调用，运行本身没有问题。 任何帮助将不胜感激。 我的代码如下。 Sub Open_Workbook_Dialog() Dim my_FileName As Variant Dim my_Workbook As Workbook MsgBox "Pick your CRO file" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to allow selection If my_FileName <> False […]

条件格式错误

我试图写一些VBA代码，添加条件格式到工作表，但是我一直运行到应用程序定义的错误。 以下是我的代码 With sheet1.Range("C2:C") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISBLANK($B2))" .FormatConditions(1).Interior.ColorIndex = RGB(225, 242, 255) End With 任何build议，为什么会发生这种情况？ 谢谢！

逻辑运算符在Excel中：如果不是

我是新的Excel VBA编程，我正在尝试在macros中执行以下操作： If Not Sheets(Currencies).Range("B2") <> "USD" Then Sheets(Currencies).Range("B2").Value = "=USD" Call Sheet3.UpdateCurrencyList End If 编辑：我已经修复了下面的评论代码，但现在我得到运行时9错误。

Excel VBA“溢出”错误设置Range.Value

我有一个在Excel工作簿打开时运行的macros，基本上从名为“当前date”的选项卡中获取数据并将其移动到“前一天”，然后从另一个工作簿获取数据并将其粘贴到当前date（实际使用范围。值不复制/粘贴）。 一切都工作好几天的多个testing。 但是，现在它在代码的Range.Value部分引发溢出错误。 这绝对不是一个大小问题，因为代码是： PrevDay.Range("A1:Q" & ScoreCurRows).Value = CurrDay.Range("A1:Q" & ScoreCurRows).Value 其中ScoreCurRows被声明为Long，并从“当前date”工作表拉取UsedRange，PrevDay被定义为工作表（“前一天”），CurrDay被定义为工作表（“当前date”）。 它通常也是20行以下的数据，所以即使它是一个整数，这仍然不应该引起问题。 有没有人有一个想法，为什么这突然抛出一个溢出错误，如果有什么我应该找的？

无法从传入的工作表中访问Sub中的单元格

我试图写一个自定义的DeleteRows Sub，我可以从我的代码中的各个点调用，但我遇到了一个问题，我传递的工作表似乎没有任何关联的单元格，运行时出现“types不匹配”错误。 我sorting得到一个特定的值出现在开始，然后循环查看有多less单元格出现，然后删除这些行。 Option Explicit Public Sub DeleteRows(ByRef MySheet As Worksheet, RowsToDelete As Long, ColumnToUse As String, ValueToSearch As String, UseAsInt As Boolean) Dim MyLong As Long If UseAsInt Then 'We are looking for a numeric value MyLong = CLng(ValueToSearch) Do While MySheet.Cells(RowsToDelete, ColumnToUse).Value = MyLong RowsToDelete = RowsToDelete + 1 Loop Else Do While […]

删除模块Excel VBA时运行时错误“9”

我正与几位同事共享一个工作表。 这个电子表格最终将被发送到外部的一方，所以我们作为macros的一部分以编程方式移除VBE模块。 我使用了这个来自微软文档的代码： Dim vbCom As Object Set vbCom = Application.VBE.ActiveVBProject.VBComponents vbCom.Remove VBComponent:= vbCom.Item("sample_module") 它适用于某些用户，但与其他用户发生运行时错误“9”。 脚本的其余部分最终执行，但模块不会被删除。

试图启动一个函数会导致运行时错误424

我正在尝试启动以下function Function MitteOben(Bereich As Range) With Bereich .VerticalAlignment = xlTop .HorizontalAlignment = xlCenter End With With Bereich.Font .Name = "Tahoma" .Size = 10 .ThemeColor = xlThemeColorLight1 End With End Function 当我尝试定义一个范围并启动该函数时，它会创build运行时错误424。 我正尝试以这种方式启动它： Set Hlpr = Range(Cells(ObjStartRow, 14), Cells(ObjStartRow, 28)) MitteOben (Hlpr) Fett (Hlpr) 我也尝试用一个数字交换“ObjStartRow”，或者将整个范围改为：Range（“N29：AC29”）都失败了。

方法对象全局失败的范围

尽pipe我已经初始化了工作表，并确保名称是正确的，但我一直在为我的代码获取对象__global错误的方法范围。 任何帮助？ 该代码应该是find一个数据的单元格范围内放入第二个电子表格 Sub potential() 'Add hours for potential work to generate function Sheets("Resourcing Sit-Rep").Select p = Range("Potential person").End(xlDown).Row – Range("Potential person").Row For k = 1 To p For j = 1 To 187 If Range("hours").Offset(k, j).Value > 0 Then Sheets("Resource Forecast").Select Val5 = Range("Potential person").Offset(k, 1).Value Val6 = Range("Potential person").Offset(k).Value Val7 = Range("hours").Offset(k, j).Value […]