- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我收到一条“运行时错误 13”,该行应该从打开的工作簿中的工作表中选择动态范围。我在程序中注释了该行。
通过研究,我发现 13 错误是由数据不匹配引起的,所以我尝试将“v1,v2,v3 ...”变量更改为整数(它们Dim As Long
).这没有效果。
我为每个单元格和范围指定了一个工作簿和工作表,因为我之前收到了“1004 错误”,另一个线程的答案是限定 ranges()
和 单元格()
.
是什么导致了这个错误?工作簿和工作表数据类型是否存在问题?任何帮助表示赞赏。谢谢!
Sub FillPartNumRev()
Dim ws As Worksheet, wb As Workbook
Dim v1 As Range, v2 As Range, v3 As Range
Dim r1 As Long, r2 As Long, r3 As Long, r4 As Long, r5 As Long
Dim c1 As Long, c2 As Long, c3 As Long, c4 As Long, c5 As Long
For x = 1 To 5000
Set wb = Workbooks.Open(Filename:="IPIC_DATA.xlsx")
r1 = 7: c1 = 0
r2 = 7: c2 = 1
r3 = 7: c3 = 2
r4 = 7: c4 = 0
r5 = 7: c5 = 1
Set v1 = wb.Worksheets("Sheet1").Range(wb.Worksheets("Sheet1").Cells(r1, c1), wb.Worksheets("Sheet1").Cells(r2, c2))
'run-time error 13
Set v2 = wb.Worksheets("Sheet1").Range(wb.Worksheets("Sheet1").Cells(r3, c3))
Set v3 = wb.Worksheets("Sheet1").Range(wb.Worksheets("Sheet1").Cells(r1, c1))
Set v4 = wb.Worksheets("Sheet1").Range(wb.Worksheets("Sheet1").Cells(r4, c4), wb.Worksheets("Sheet1").Cells(r5, c5))
If v4 <> "" & v2 = "" Then
v1.Copy v4
ElseIf v4 = "" Then
r1 = r1 + 7
r2 = r2 + 7
End If
r4 = r4 + 1
c4 = c4 + 1
r5 = r5 + 1
c5 = c5 + 1
r3 = r3 + 1
c3 = c3 + 1
Next x
End Sub
最佳答案
感谢 @Jeeped 解决了这个问题 - 然而,在 VBA 中使用 Excel 单元格时,类型不匹配错误非常常见。此答案解决了更常见的原因,您现在工作的代码仍然无法幸免。
类型不匹配错误通常是在将单元格的值分配给某些类型变量时遇到的错误,无论是 String
、Double
>、Date
或其他任何内容 - 像这样:
Dim v As String
v = sheet.Range("A1").Value
当单元格的值涉及表达式时,也可能会发生这种情况,如下所示:
If sheet.Range("A1").Value <> "" Then
这是为什么?
如果单元格为空,或者实际上包含可用值,则没有问题。但是,如果单元格包含 Error
值,例如 #N/A
、#VALUE!
或任何其他单元格错误,则上述内容正如您遇到的那样,代码会抛出运行时错误 13。
单元格的值是一个Variant
; Variant
可以包含任何内容,包括 String
、Object
引用或 Error
值。如果您将单元格值读入某个 String
变量,或者如果您正在将它与一些字符串文字进行比较。
但是变体/错误
不能隐式(或显式)转换为任何内容。
所以这个故事的主旨是,您永远不能假设单元格的 Variant
子类型将会是什么,也不能将该子类型强制转换为特定的数据类型。
为了避免在处理单元格时出现类型不匹配错误,您需要将单元格值读入Variant
:
Dim v As Variant
v = sheet.Range("A1").Value
然后使用 IsError
函数确定您是否正在查看Variant/Error
:
If Not IsError(v) Then
'v is safe to convert to whatever you need it to be
Else
'cell contains an error value
End If
关于excel - VBA 中变量动态范围的“运行时错误 13”。数据类型不匹配,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51289947/
SQLite、Content provider 和 Shared Preference 之间的所有已知区别。 但我想知道什么时候需要根据情况使用 SQLite 或 Content Provider 或
警告:我正在使用一个我无法完全控制的后端,所以我正在努力解决 Backbone 中的一些注意事项,这些注意事项可能在其他地方更好地解决......不幸的是,我别无选择,只能在这里处理它们! 所以,我的
我一整天都在挣扎。我的预输入搜索表达式与远程 json 数据完美配合。但是当我尝试使用相同的 json 数据作为预取数据时,建议为空。点击第一个标志后,我收到预定义消息“无法找到任何内容...”,结果
我正在制作一个模拟 NHL 选秀彩票的程序,其中屏幕右侧应该有一个 JTextField,并且在左侧绘制弹跳的选秀球。我创建了一个名为 Ball 的类,它实现了 Runnable,并在我的主 Draf
这个问题已经有答案了: How can I calculate a time span in Java and format the output? (18 个回答) 已关闭 9 年前。 这是我的代码
我有一个 ASP.NET Web API 应用程序在我的本地 IIS 实例上运行。 Web 应用程序配置有 CORS。我调用的 Web API 方法类似于: [POST("/API/{foo}/{ba
我将用户输入的时间和日期作为: DatePicker dp = (DatePicker) findViewById(R.id.datePicker); TimePicker tp = (TimePic
放宽“邻居”的标准是否足够,或者是否有其他标准行动可以采取? 最佳答案 如果所有相邻解决方案都是 Tabu,则听起来您的 Tabu 列表的大小太长或您的释放策略太严格。一个好的 Tabu 列表长度是
我正在阅读来自 cppreference 的代码示例: #include #include #include #include template void print_queue(T& q)
我快疯了,我试图理解工具提示的行为,但没有成功。 1. 第一个问题是当我尝试通过插件(按钮 1)在点击事件中使用它时 -> 如果您转到 Fiddle,您会在“内容”内看到该函数' 每次点击都会调用该属
我在功能组件中有以下代码: const [ folder, setFolder ] = useState([]); const folderData = useContext(FolderContex
我在使用预签名网址和 AFNetworking 3.0 从 S3 获取图像时遇到问题。我可以使用 NSMutableURLRequest 和 NSURLSession 获取图像,但是当我使用 AFHT
我正在使用 Oracle ojdbc 12 和 Java 8 处理 Oracle UCP 管理器的问题。当 UCP 池启动失败时,我希望关闭它创建的连接。 当池初始化期间遇到 ORA-02391:超过
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗?通过 editing this post 添加详细信息并澄清问题. 已关闭 9 年前。 Improve
引用这个plunker: https://plnkr.co/edit/GWsbdDWVvBYNMqyxzlLY?p=preview 我在 styles.css 文件和 src/app.ts 文件中指定
为什么我的条形这么细?我尝试将宽度设置为 1,它们变得非常厚。我不知道还能尝试什么。默认厚度为 0.8,这是应该的样子吗? import matplotlib.pyplot as plt import
当我编写时,查询按预期执行: SELECT id, day2.count - day1.count AS diff FROM day1 NATURAL JOIN day2; 但我真正想要的是右连接。当
我有以下时间数据: 0 08/01/16 13:07:46,335437 1 18/02/16 08:40:40,565575 2 14/01/16 22:2
一些背景知识 -我的 NodeJS 服务器在端口 3001 上运行,我的 React 应用程序在端口 3000 上运行。我在 React 应用程序 package.json 中设置了一个代理来代理对端
我面临着一个愚蠢的问题。我试图在我的 Angular 应用程序中延迟加载我的图像,我已经尝试过这个2: 但是他们都设置了 src attr 而不是 data-src,我在这里遗漏了什么吗?保留 d
我是一名优秀的程序员,十分优秀!