VBA代码中的IF语句对于每个下一步都会失败
，可能是由于以下几个原因导致的：
- 语法错误：IF语句的语法可能存在错误，例如缺少关键字、括号不匹配等。在VBA中，IF语句的基本语法是：IF condition THEN statement1 ELSE statement2，其中condition是一个逻辑表达式，statement1和statement2是需要执行的语句。
- 逻辑错误：IF语句中的逻辑表达式可能存在错误，导致无法正确判断条件。在编写逻辑表达式时，需要确保使用正确的比较运算符（如等于、大于、小于等）以及逻辑运算符（如AND、OR、NOT）。
- 变量错误：IF语句中使用的变量可能未正确声明或赋值，导致无法正确判断条件。在使用变量之前，需要先声明变量的类型，并确保在IF语句中正确赋值。
- 代码逻辑错误：IF语句可能被放置在错误的位置，导致无法按预期执行。在编写代码时，需要确保IF语句放置在正确的位置，并且逻辑流程正确。
针对以上可能导致IF语句失败的原因，可以采取以下措施进行排查和修复：
- 仔细检查语法：逐行检查IF语句的语法，确保关键字、括号等使用正确。
- 检查逻辑表达式：仔细检查IF语句中的逻辑表达式，确保使用正确的比较运算符和逻辑运算符。
- 检查变量声明和赋值：确保在IF语句中使用的变量已正确声明和赋值。
- 检查代码逻辑：仔细检查代码逻辑，确保IF语句放置在正确的位置，并且逻辑流程正确。
如果以上排查措施无法解决问题，可以考虑使用调试工具来逐步执行代码并观察变量的值，以便找出问题所在。
腾讯云相关产品和产品介绍链接地址：
- VPC（Virtual Private Cloud）：腾讯云的虚拟私有云服务，提供安全可靠的网络环境，用于构建和管理用户的云上网络资源。详情请参考：https://cloud.tencent.com/product/vpc
- CVM（Cloud Virtual Machine）：腾讯云的云服务器产品，提供弹性计算能力，可根据业务需求灵活调整配置。详情请参考：https://cloud.tencent.com/product/cvm
- COS（Cloud Object Storage）：腾讯云的对象存储服务，提供高可靠、低成本的存储解决方案，适用于各种数据存储和应用场景。详情请参考：https://cloud.tencent.com/product/cos
- SCF（Serverless Cloud Function）：腾讯云的无服务器云函数服务，可实现按需运行代码，无需关心底层基础设施。详情请参考：https://cloud.tencent.com/product/scf
相关·内容
我的代码有问题，出现了一个错误，我不明白为什么。错误是：
“编译错误:没有For的下一步”
我不明白为甚麽会这样。我是编程新手，所以任何帮助和评论都是非常受欢迎的。
这是代码，下一个没有For的代码提供了一个注释。
Sub CGT_Cost()
startrow = Worksheets("GUTS").Cells(10, 1) 'Here I put 1
endrow = Worksheets("GUTS").Cells(11, 1) 'Here I put 1000
For x = endrow To startrow Step -1
浏览 0提问于2013-08-14得票数 6
回答已采纳
我需要使用VBA模块每6小时向Oracle数据库表插入上千行。每次运行时，都会在VBA中进行一些复杂的预测计算，结果值必须插入到数据库中。
典型的输出范围包括超过1000行和13列。
目前，我逐行插入，而且每次插入后都会运行自动提交(ADO默认值)。这里是否有更好的提高性能的方法或过程？
它目前需要20-40分钟左右，这取决于服务器负载。任何性能改进建议。
浏览 10提问于2012-03-06得票数 2
回答已采纳
所以我正在试着做一个计算器。计算器将根据公式输出值，取决于输入是在哪一列中找到的…我有3个不同的列，都有电子邮件地址在他们。这个想法是，你输入你的电子邮件地址，它会查找你的电子邮件，并在A、B或C列中找到它。然后，它会根据你在哪一列做一些求和，以及其他一些事情(计算方法每列都会改变)。
我该怎么做呢？另外，还有一个更基本的问题:如何在VBA中引用工作表？( vba在表2中，而它查找的数据和sums等在表1中)。
我希望这足够具体，我没有任何代码来开始我们，主要是因为我不知道从哪里开始，也不想用糟糕的构造代码来限制自己。
另外，我被告知这可以在没有VBA的情况下完成，使用一些鲜为人知的内置fun
浏览 0提问于2014-07-14得票数 0
2回答
我一直试图在VBA中循环一堆大的.csv文件。它们中的每一个大约是50 of。在每次迭代时，我都会打开一个新的CSV来操作数据，但是当.csv打开时，有一条下载消息说文件正在打开，而进度条总是在某个时候卡住，而VBA正在等待它完成。
实际上，打开.csv是因为如果我在进度条上单击"cancel“，代码将继续正常运行，但我必须在每次迭代中执行手动操作。
我的猜测是，当文件未打开或类似的情况下，VBA将进入下一步，因此，如果我做了睡眠或类似的操作，它可能会工作，但我尝试的内容目前还没有起作用。(我已经尝试过Application.EnableEvents = False)。这是我的代码：
浏览 2提问于2015-11-20得票数 3
我有一个非常长的查询，其中包含10个Union ALL语句，整个查询在Oracle SQL Developer中是正常的，但在Excel VBA中失败。
我通过一个接一个地删除Union ALL语句来测试VBA代码，它与Union ALL语句中的任何一个都工作得很好。当查询有两个或更多个Union ALL时，它再次失败。
Excel VBA是否在执行过程中操作查询字符串？
浏览 1提问于2013-05-10得票数 0
2回答
我是VBA新手，我有一个工作表，其中的VBA宏指定给了形状。它在同一张工作表上工作得很好，但当我在下一张工作表中复制并粘贴形状，或者创建一个新形状并分配相同的宏时，它就不起作用了。请帮帮我。下面是代码。
ActiveSheet.Shapes("CTSnext").Fill.ForeColor.SchemeColor = Black
感谢您的回复!！
然而，让我来解释一下这个问题。
在工作表1中，我有4个形状，命名为1)取消服务2)下一个3)不感兴趣4)重置
所有3个形状(2,3,4)将在前色为白色，因此它将是不可见的。当用户点击“取消服务”时，会出现“下一步”(意思是前面的颜色
浏览 2提问于2016-05-19得票数 0
3回答
我在一个页面上有30+输入。每个输入都有一个ng-blur (焦点丢失)回调，它通过$http AngularJS服务调用远程API。每个api请求都是异步并行运行的。用户可以多次编辑输入。每次触发ng-blur事件时，数据都会发送到服务器。
我还在页面底部有“下一步”按钮，当用户编辑完页面上的输入时按下该按钮。如何禁止用户在每个api PUT promises完成之前按下“下一步”按钮？如果一些HTTP请求因为服务器上的500而失败，该怎么办？
浏览 12提问于2018-08-28得票数 3
回答已采纳
我必须重构一个旧宏，它在新的MS 365版本中失败了.
对于kernel32和User32，我在顶部声明了函数变量，如下所示：
#If Vba7 Then
Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As LongPtr
#Else
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any
浏览 0提问于2020-12-15得票数 3
回答已采纳
1回答
只要读一读关于的文章。在任何控件的标题前面使用&。例如，如果要将Alt + N分配给按钮，则在标题属性put &New中
但这只分配给Alt。
这是我的问题
&是指定Alt的，Alt是Ctlr的符号
那么Shift和F3这样的函数键呢？这些能被分配吗？
是否有任何VBA代码或属性可添加键盘快捷键？
浏览 3提问于2015-07-02得票数 0
我可能有一个临时的解决办法，但如果我不能永久地修复它，这将导致问题。
我在MS Access中有一个查询，当它单独运行时，它工作得很好，但是当我使用CurrentDb.Execute命令运行它时，它会给出“运行时错误'3146'：ODBC-调用失败”的错误。
我还检查了它是否失败，如果它是从直接窗口运行的，那么它也会失败。
来自三个不同表的查询调用加上一个由VBA脚本设计的本地表。如果删除了一个特定的表，则VBA脚本可以工作。
我知道这是非常通用的，但是为什么查询在任何地方都能工作，除非它是从VBA调用的？
更新:原来的问题措辞很糟糕，我对此表示歉意。它是即时写的，我被我遇到的
浏览 5提问于2015-02-20得票数 1
1回答
我有一堆VBA代码，我想把它们放到一个宏中。
基本上，我会调用一堆更新页面的subs。
它看起来像这样：
Call Update1("Work", strConn)
Call Update2("Work", strConn)
Call Update3("Work", strConn)
其中，Update1、Update2和update3都在与表单相同的工作表中
Public Sub Update1(strPlace, strConn)
SQL code..
End Sub
我如何在一个宏中将其全部抛出呢？我可以复制并粘贴所有代码(包括调用吗？)但
浏览 3提问于2010-06-04得票数 1
回答已采纳
冒号":“(语句分隔符)在VBA中到底是做什么的？
：：意思是“换行符”不能解释这种行为：
这3行代码成功编译：
If 1 = 2 Then
MsgBox "impossible"
Else: MsgBox "OK": End If
此2行版本在“编译错误:否则没有If”时失败：
If 1 = 2 Then: MsgBox "impossible"
Else: MsgBox "OK": End If
此1行版本在“编译错误:如果没有块的情况下结束”失败：
If 1 = 2 Then: MsgBox "imp
浏览 1提问于2019-09-11得票数 2
回答已采纳
我有一个非常复杂的过程，需要从不同的共享下载许多文件，将这些文件连接到工作表中，操作和计算相关信息，然后将特定字段(和计算)作为报告导出到许多Excel工作簿中。
我对这个过程进行了编码，这样我就可以单击一个按钮，整个过程就会端到端地执行。我有一系列的文本框起到‘指示器’的作用(红色-此部分失败，绿色-此部分成功)。您可以想象到，整个过程的代码非常庞大(复制到MSWord中时需要32页)，当我遇到问题时很难清理掉。
我意识到我想把代码放到一个表中，这样它就更模块化，更容易处理。我已经设置了一个组合框和第二个组合框，其中一个组合框包含我想要执行的操作，另一个组合框包含我要处理的报告/文件/对象(
浏览 0提问于2012-12-12得票数 4
回答已采纳
这个问题很难回答，只适用于专家。
我们正在使用Visual 6开发一个用于访问的复杂的COM外接程序.编译时，外接程序可以正常工作。但是，当我们使用Ctrl-F5将VB6 IDE置于调试模式时，Access将抛出一个
运行时错误13:类型不匹配
当它试图将Access Application.COMAddIns("AddInName").Object引用分配给在AddInName类型库中公开的类型的早期绑定VBA变量时出错。
更多信息：
Access应用程序使用调用外接程序创建的对象。
外接程序DLL还充当Access VBA引用中包含的类型库。
来自外接程
浏览 0提问于2018-03-09得票数 2
回答已采纳
我必须在不同的excel工作表之间跳转，以便为我的VBA获取数据以输出我想要的内容。我一直在使用Sheets("name").Select函数在工作表之间跳转。有时它会工作，让我运行程序，但有时我会得到一个运行时错误。我希望每次都能100%地工作，并且每次由于select函数而失败时都会感到沮丧。如果任何人有任何建议或建议，我希望你能分享它们！任何帮助都将不胜感激。 Sheets("Test").Select 运行时错误'1004'：选择工作表类的方法失败
浏览 26提问于2019-06-12得票数 0
回答已采纳
1回答
这是我的代码：
Function GetAttachmentById(Id As String) As Attachment
Dim newAttachment As Attachment
Set newAttachment = New Attachment
Dim Directory As String
Directory = "C:\Users\user\Desktop\VBA"
Dim fso, newFile, folder, Files
Set fso = CreateObject
浏览 3提问于2022-06-20得票数 0
1回答
我正在使用jest在我的反应应用程序中进行单元测试。
我的应用程序中有一个带有下一个和以前的按钮的重要ui日期选择器，并且浏览器url中有当前选定的日期。每当用户单击“下一步”或“上一次”按钮时，都会更新url。我使用history.push来完成这个任务，并检查它在ui中是否正常工作。但是，我必须验证的测试用例在下面的expect语句expect(history.push).toBeCalledWith('/path/to/url?date=${date}');上失败了，它说对这个函数进行了0次调用。我只想重试这个特定的expect语句几次，如果它不能确保它不会因为一些延迟而
浏览 3提问于2020-07-24得票数 2
回答已采纳
我有一个SQL Server 2008R2代理作业来备份和收缩数据库。每隔一段时间，它就会失败一次，并显示“无法收缩日志文件2(插入数据库名称here_log)，因为位于文件末尾的逻辑日志文件正在使用中。SQLSTATE 01000”，但它仍然会发送一封电子邮件，通知它已成功。在作业属性中，电子邮件设置为“作业完成时”。“成功时”操作设置为“转到下一步”，“失败时”操作设置为“退出报告失败的作业”。当其他错误报告失败时，我不确定是否与此错误有关，也不确定发生了什么。任何一个in网站都会很棒。
浏览 1提问于2015-09-15得票数 0
2回答
第一次在这里，所以我希望得到我的答案，我查看了整个谷歌，但我找不到答案。
嗯，我得到了VBA代码，它在Exel上刷新SQL中的代码。
VBA代码：Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
它每次询问我的ODBC登录/密码时，我都会尝试手动刷新，我希望通过将这些信息直接保存在Excel单元格或VBA中自动运行(我更喜欢在“Valida o de Dados”工作表中的excel单元格中链接的变量)。在此之后，通过强制用户在表单中插入这些信息(以保持更好的外观)来使其更好。但是问题是，每次我试图运行这个宏时，它都会
浏览 0提问于2018-08-03得票数 0
回答已采纳
我必须在存储过程的循环中处理记录，例如：
create or alter procedure process_waiting_records
as
declare v_id type of column my_table.id;
begin
for
select
t.id
from
my_table t
where
(t.status = 'WAITING_TO_PROCESS')
order by
t.created_at
into
:
浏览 2提问于2020-02-08得票数 1
回答已采纳
我注意到，在VBA中运行查询时，VBA并不总是通知由此引发的错误。例如，如果我试图在不接受空值的行中执行带空值的大容量插入，则在Server中会出现以下错误：
Msg 4869, Level 16, State 1, Line 1
The bulk load failed. Unexpected NULL value in data file row 2, column 7. The destination column (IFSFxRate) is defined as NOT NULL.
但是，当我使用ADODB执行它时，它不会引发任何错误，不过我注意到，如果我使用rs.NextRecor
浏览 3提问于2016-01-05得票数 1
回答已采纳
我对Github操作很陌生，我正试图找到一种实现以下功能的方法:每当一个步骤失败时，它都会显示它失败了(将提供正确的反馈)，但仍将继续执行其他步骤。
目前，失败导致这一步停止：
我已经看到了最流行的建议是使用继续错误，但这似乎使这一步的结论‘成功’，不会显示它失败，除非你进入日志。
在上面的截图中，“秘密”步骤失败了，但是除非输入日志，否则它似乎是成功的。
在阅读时，我开始怀疑GH操作中可能还没有这个特性。
我还试过对每个步骤和/或工作使用条件。例如，我尝试过：if: ${{ success() }} || ${{ failure() }} --这根本没有提供所需的功能，步
浏览 1提问于2020-05-27得票数 16
回答已采纳
我正在尝试将5个数据库合并为一个数据库。这5个数据库具有相同的表、相同的结构和每个表的相同字段，以及表和字段的相同名称。只是每个数据库中的数据是不同的，因为它是由5个不同的成员获取的。所以，我试着把所有的记录合并成一个。因此，我基本上尝试为每个表编写一个查询，然后运行一个VBA代码来一个接一个地运行查询。查询是
INSERT INTO SoilMeasurementTable IN 'C:\Users\vtalreja\Desktop\Common.accdb'
SELECT * FROM SoilMeasurementTable;
土壤测量是当前数据库中的一个表，我将其复制到
浏览 2提问于2011-02-15得票数 0
1回答
null语句在VHDL语言中的实际用途是什么？考虑以下代码
1-
CASE s IS
BEGIN
WHEN 0 => y <= 0;
WHEN 1 => NULL;
END CASE;
2-
CASE s IS
BEGIN
WHEN 0 => y <= 0;
END CASE;
在第二段代码中，由于在s=1时没有赋值，因此y将保留它之前的值。不是吗？因此，我认为在这两种情况下，合成器都会放置一个触发器来保持y的前值。
浏览 2提问于2017-03-19得票数 3
回答已采纳
2回答
只验证窗体的部分
、、
我有一个相当大的表单，我用"Next“和"Back”按钮将每个部分分割成单独的部分，供用户导航每一步。
下面是我现在如何设置它来工作的方法：
每个部分都在自己的xp:面板中。
每个xp:面板都隐藏着"display:none“。当用户使用JQuery的淡出动画单击"Next“或"Back”时，就会发生转换。
我想要做的是，如果用户单击"Next“，我只想验证当前可见部分中的字段。如果验证失败，不要转换到下一步。如果验证通过，则转移到下一步。
现在，当我单击"Next“按钮时，每个字段都会被验证，并且转换不会发生。
是否有一
浏览 2提问于2014-12-30得票数 0
回答已采纳
我对vba编码(以及一般的编码)很陌生，但我已经开始做一个小宏，将csv文件的值转换为excel文件。
下一步是删除每个单元格中的引号。我在我的潜艇里试过这些代码行：
Dim Table As Range
Dim Cell As Variant
Set Table = Range("A1:currentregion")
For Each Cell In Table
cell.value2 = Replace(cell.value2,""","") *I get a syntax error here*
浏览 15提问于2015-03-07得票数 1
回答已采纳
我想听听你对这个问题的看法。每当我想要发送vba字符串时，它都会返回给我，它包含我的本地语言变音符号到excel或outlook。
我已经在vba编辑器上更改了字体，所以它在代码中显示适当的标记，并且当在工作表/outlook消息中手动输入这些标记时，它也可以很好地工作。当执行宏时，问题就出现了，比如office错误地编码了vba发送给程序的操作。
例如:我可以在单元格中输入"Ł“字母。
我也可以在编辑器中输入：
Sub example()
Range("A1").Value = "Ł"
End Sub
但是在执行宏时，range A1显示"£“
浏览 0提问于2016-05-24得票数 5
我在许多不同的VBA程序中遇到了这个问题，所以我想我可能在Excel或VBA编辑器中有一些不正确的设置。老实说，经过大量的网络搜索，我是相当无知的。
基本上，我将运行一段正常的代码，应用程序(包括Excel和VBA编辑器)将进入(不响应)模式。然而，代码运行良好。一旦代码完成，应用程序将不再处于非响应模式，一切都返回到正常的。
当运行代码需要一段时间的时候，对于那些认为出了问题的用户来说，真的有点令人沮丧。
任何帮助都会很好！谢谢!
浏览 6提问于2015-02-12得票数 3
回答已采纳
1回答
我在Outlook中创建了一个宏，它需要Word和Excel引用。它必须在不同版本的Office上运行(2007、2010、2013)。我有Office2013，所以当我在2007和2010年“安装”宏(复制VBAProject.otm)时，我会丢失引用。我想在Excel中使用类似下面的代码手动添加引用：
ThisWorkbook.VBProject.References.AddFromFile
但我找不到这样的东西。我在网上搜索了一下，但还是失败了。谁能告诉我在Outlook VBA中是否可以添加来自文件的引用？
浏览 2提问于2016-11-15得票数 0
2回答
? 我正在尝试编写VBA代码来确定列A中的哪些条目没有出现在列B中，然后打印这些条目。 Sub Checker()
Dim endrow As Integer
endrow = 8
For i = 2 To endrow
Next i
End Sub 我认为下一步是使用带有工作表函数match的if语句，首先将"345A“与列B中的每个条目依次进行比较。但是没有任何成功的实现。 任何帮助都会很感谢，谢谢。
浏览 26提问于2019-05-08得票数 0
回答已采纳
我有以下VBA代码
Dim directory As String, fileName As String
directory = "C:\User\Work\scorix\test_excel\"
fileName = Dir(directory & "*.xl??")
现在，我想要更改代码，以便能够从给定的Excel-Workbook单元格读取路径，然后构建fileName。如果我尝试
directory = Worksheets("Summary").Range("B2").Value
fileName = Dir(
浏览 0提问于2016-08-22得票数 0
回答已采纳
我正在尝试调整使用powerpoint vba从Excel粘贴到powerpoint中的图片的大小。
我的代码是：
ActivePresentation.Slides(9).Select Application.ActiveWindow.View.PasteSpecial DataType:=ppPasteEnhancedMetafile
这部分很好用，我不知道下一步如何调整图片的大小。我是使用powerpoint vba的新手。
任何帮助都将不胜感激。
浏览 1提问于2012-11-01得票数 1
回答已采纳
在Access中，我有一个名为tblBundle的表，并试图查询按顺序在每个包上完成的最后一步。
tblBundle包含:工作顺序、束#、BundleLtr、步骤、完全布尔值
最后，我希望将其复制到vba中，以创建Bundle #、Ltr和最后一步的列表，以便在下一步完成时继续输入数据。
由于无法确定的原因，下面的SQL查询返回包1 (190,200)的2条记录，而我认为它应该只返回一条记录- 200。
SELECT Max(tblBundle.Step) AS intLstep, tblBundle.BundleNbr, tblBundle.BundleLtr,
tblBundle.Com
浏览 8提问于2022-01-10得票数 0
回答已采纳
允许(至少在mysqlnd等一些驱动程序中)一次执行多个语句。
这很好，当我将几个查询传递给PDO::exec()时，它们都会被执行：
$pdo->exec('DROP TABLE a; DROP TABLE b;');
我的PDO实例被配置为抛出异常：
$pdo->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
如果第一个查询失败，它将按预期抛出一个异常：
$pdo->exec('DROP TABLE does_not_exist; DROP TABLE ok;'); // P
浏览 4提问于2014-07-15得票数 8
回答已采纳
1回答
是否有可能有一个控制按钮(或任何机制)，一旦点击，文本框就会出现像宏名Sub "NewMacroTitle"()这样的字段，日期字段，引用来源字段(""found this here")，宏要做什么的简要描述。所有这些字段，除了子"NewMacroTitle"()，都会以‘开头显示注释，所有这些都会被插入到VBA编辑器中，或者输入到电子表格的单元格中，然后可以复制粘贴到VBA编辑器中。
我的问题是。我是VBA新手。我在记录宏方面也是世界上最差的。我有了一个宏的想法，我开始在VBA编辑器中写东西，甚至可能完成宏。一周后，我复习了这个宏，第一
浏览 4提问于2015-05-28得票数 0
1回答
早上好,
我使用的是VBA，简单地说，我的问题是我想要一些代码，用数组中每个成员的名称来设置一个新的变量。
背景:通过读取XML文件创建的初始数组，将所有子节点中的信息作为数组的每个成员的值。举个例子。如果我有一些XML，比如：
<dimensions>
<dimension>
dim1
</dimension>
<dimension>
dim2
</dimension>
<dimension>
dim3
</dimension>
<
浏览 0提问于2016-02-11得票数 2
2回答
接下来，我尝试单击一个链接以使用VBA查看页面上的信息，然后继续使用VBA编辑该信息，但尝试弄清楚如何为其编写代码，因为ID信息在每次搜索时都会发生变化。
对此有什么想法吗？
我看了看周围，似乎不明白如何让VBA将这一行作为(ID=)，而且它并没有连接到我正在搜索的相同ID。
还有几个参考资料，用于
这是这行代码。
<a href="/?do_Action=ViewEntity&Entity_ID=14287">View</a>
这是我当前搜索它的代码。而不点击视图部分。
Sub Test()
Dim ie As Object
浏览 0提问于2018-03-26得票数 0
我只是在工作中自学VBA程序。
我附上了一张语法错误的图片。
我一直在msgbox收到一个错误。
我做错什么了？
Private Sub CommandButton1_Click()
Dim firstnum, secondnum As Single
firstnum = Cells(1, 1).Value
secondnum = Cells(1, 2).Value
If firstnum > secondnum Then
MsgBox " The first number is greater than the second number"
If firstnum &
浏览 25提问于2017-01-31得票数 0
2回答
可能重复：
为什么允许for-loop中的条件保持为空？例如
for (;;)
编译得很好。为什么这个空表达式计算为true，但如下所示
if () {}
while () {}
都会失败吗？我想知道是否/为什么 for-loop是这种情况的例外。
浏览 4提问于2012-11-13得票数 5
我想知道VBA case语句是否会运行多行代码：
Const HARD = 30
Select Case Hardness
Case "Hard"
If PenetrationRate.Cells(i, 1) >= Hard Then
Total = Total + Metres.Cells(i, 1)
DoEvents
End If
Case "Soft"
If PenetrationRate.Cells(i, 1) < Hard Then
Total = Total
浏览 2提问于2012-07-23得票数 1
2回答
我使用的是PHP的mysqli库。数据库插入和更新始终在try-catch块中。立即检查每个查询是否成功(if $result === false)，任何失败都会抛出异常。catch调用mysqli_rollback()并退出，并为用户显示一条消息。
我的问题是，我是否应该费心检查mysqli_rollback()的返回值？如果是这样，并且回滚失败，代码应该采取什么操作？
我很难理解回滚怎么会失败(除了MySQL中的一些可怕的bug )。而且由于PHP无论如何都会退出，所以调用rollback几乎是多余的。为了清楚起见，我当然认为它应该出现在代码中，但是当PHP退出时，它将关闭与MySQL的连
浏览 0提问于2012-08-24得票数 10
回答已采纳
我是StackOverflow和VBA的新手。除了用VBA从头开始编写代码之外，我是Excel的所有方面的专家。
我尝试做的是将索引中的颜色应用于包含特定术语的单元格的内部。这就是我所拥有的：
Sub ConditionalFormatting()
Do Until ActiveCell = ""
If ActiveCell = "STAR DISTRICT" Then
ActiveCell.Interior.ColorIndex = 50
ElseIf ActiveCell = "STAR SCHOOL" Then
ActiveCell.I
浏览 0提问于2012-06-28得票数 1
回答已采纳
我正在尝试创建一个VBScript来打开或获取已经打开的Excel工作簿的句柄，并运行一个宏，该宏使用工作表作为表，对工作簿本身执行一系列SQL查询。该工作簿预计将由一些用户继续打开。工作簿充当一个半自动的报告传递容器，通过用户使用的ERP系统中的某些操作来更新自己。
问题
脚本可以独立工作，但是当脚本打开工作簿第一次调用时，VBA宏中的ADO调用就会失败，返回一个运行时错误No value given for one or more required parameters.，但是再次使用相同的参数运行相同的宏，无论是从VBScript还是VBA运行，都会成功。如果文件已经手动打开，则宏每次都
浏览 2提问于2020-12-30得票数 3
回答已采纳
我不是经验丰富的VBA程序员，我需要社区来寻找Excel的问题。
我的问题是，在Excel中，代码在下面一行之后立即停止执行：Application.ScreenUpdating = True
我使用来自msdn网站的以下示例代码：
Dim elapsedTime(2)
Application.ScreenUpdating = True
For i = 1 To 2
If i = 2 Then Application.ScreenUpdating = False
startTime = Time
Worksheets("Sheet1").Act
浏览 4提问于2012-10-23得票数 2
回答已采纳
1回答
如何获取JDBC批处理失败的记录
、、、、
我正在通过JDBC批处理执行SQL语句集。如何拉取批量处理失败的记录。
我能够获得记录的成功和失败的计数。但是不能获取失败的记录。
Statement statement = null;
try {
statement = connection.createStatement();
for (String insertQuery : insertQuerys) {
statement.addBatch(insertQuery);
}
statement.executeBatch();
} catch (Exception e) {
浏览 0提问于2019-03-28得票数 0
我正在尝试通过执行以下操作在Excel宏中使用'And‘获得一个懒惰的计算结果：
If Not myObject Is Nothing *And* myObject.test() Then
'do something'
Else
'do something else'
End If
我知道在VB.NET中存在AndAlso和OrElse这样的延迟计算，但在VBA中找不到类似的东西。如果VBA中不存在惰性求值，那么构建代码的最好方法是什么，使其按我期望的方式求值？
浏览 3提问于2010-07-14得票数 46
回答已采纳
1回答
因此，我想循环遍历一系列单元格，并添加1，直到工作总数(在本例中为500 )耗尽为止，因此基本上每个单元格中增加一个1，直到它加到500个。然而，每次我运行这段代码时，实际数量都会出现短缺(本例中为473)。我知道这是非常基本的，但我有一个相当基本的大脑。是因为for循环完成了500次，而不是for每个循环完成了500次？下面是一些非常糟糕的代码：
Sub dividerloop()
Dim rngAmount As Range
Dim c As Range
Dim worktotal As Range
Dim i As Long
Set rngAmount = Sheet1.Range(
浏览 4提问于2015-11-04得票数 0
回答已采纳
1回答
我有一个包含日期的数据验证列表。更改日期时，它会影响工作表其余部分显示的数据。
我想创建两个命令按钮，
“下一步”-单击将移动到列表中的下一个日期，当它到达列表的末尾时，将返回到列表的开头。
“以前”-当单击将移动到列表中的前一个日期时，当它到达列表的开头时，它将移到列表的末尾。
这个是可能的吗？
我确实看过列表框和组合框，但对编码非常困惑！任何帮助都会很好！
浏览 0提问于2013-06-03得票数 0
在过去的几周中，当我在大多数情况下尝试运行任何VBA宏时，都会收到"Microsoft Excel已停止工作“和"Microsoft Excel正在尝试恢复您的信息”的消息。当第二条消息出现时，我还在Excel窗口后面得到了一条错误消息"Automation Error“。这没有显示错误号，尽管单击帮助显示它是错误440。随附的帮助文本暗示这与错误的代码设置对象有关。但是当我点击Run (甚至Step)按钮的时候，错误就出现了。
令人惊讶的是，如果我编辑代码，即使插入或删除一个空行(甚至不保存更改)，宏也可以执行。因此，这似乎不是代码本身的错误。
如果这个宏相当简单，而
浏览 26提问于2016-06-10得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
