VBA找不出Case语句不能正确工作的原因
可能有以下几个方面：
- 语法错误：首先，需要检查Case语句的语法是否正确。确保每个Case后面跟着一个具体的值或表达式，并且每个Case之间使用逗号或冒号分隔。另外，确保Switch或Select语句的结束处有End Select。
- 数据类型不匹配：在使用Case语句时，需要确保比较的值与每个Case后面的值的数据类型匹配。如果数据类型不匹配，Case语句将无法正确工作。可以使用CInt、CStr等函数将值转换为正确的数据类型。
- 逻辑错误：有时候，Case语句不能正确工作是因为逻辑错误。可能是因为条件判断不正确，或者没有考虑到所有可能的情况。需要仔细检查每个Case的条件，并确保它们覆盖了所有可能的情况。
- 变量值不符合预期：如果Case语句不起作用，可能是因为变量的值与预期不符。可以使用调试工具或打印语句来检查变量的值，并确保它们符合预期。
- Case语句的位置错误：在使用Case语句时，需要确保它们位于正确的位置。Case语句应该在Switch或Select语句内部，并且在其他语句之前。
总之，要解决VBA中Case语句不能正确工作的问题，需要仔细检查语法、数据类型、逻辑、变量值和语句位置等方面的问题，并进行适当的调试和测试。如果问题仍然存在，可以参考VBA的官方文档或向相关的开发社区寻求帮助。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云函数计算（SCF）：https://cloud.tencent.com/product/scf
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云数据库（TencentDB）：https://cloud.tencent.com/product/tencentdb
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发（Mobile）：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云元宇宙（Metaverse）：https://cloud.tencent.com/product/metaverse
相关·内容
我在我的工作表更改事件中有这段代码，但它不像应该的那样触发。If Not Intersect(Target, rng6) Is Nothing Then
Case"m/yyyy") & " " & Format(Now, "m/yyyy")
End Sel
浏览 1提问于2017-07-19得票数 1
回答已采纳
2回答
在我的查询中，在THEN上遇到错误。case WHEN (I.stackoverflow in 'VBA', 'SQL') case WHEN I.stackoverflow
浏览 1提问于2018-03-07得票数 0
3回答
我偶然发现了这条select语句，并对它的必要性感到困惑。'case else‘不就像C# switch语句中的默认值吗？Select Case dbp.DbType dbcmd.CommandText &= " [" & dbp.ParameterName & "]='" & dbp.Value.ToString
浏览 0提问于2013-03-22得票数 0
回答已采纳
因此，我的Switch语句似乎是错误的，但我找不出原因。有人能帮上忙吗？它说明break语句是无法访问的代码 {case 0: //Passable tile
浏览 4提问于2021-05-18得票数 0
2回答
下面是构建属性并将其打印为xml文件的代码。每次我运行它时，它都说下标超出了范围，突出显示attributes2。列40-41应在定义的范围内。
我想问题可能是因为我不应该使用'ElseIf‘。当我只以attributes1和attributes2的形式运行它时，当我使用“only”语句时，它工作得很好。也许我定义错了我的数组，无论哪种方式，我都找不到答案，需要一些新鲜的眼睛。
浏览 3提问于2016-03-31得票数 2
回答已采纳
VBA有一条Select语句，它根据一个值选择要运行的代码(很像C风格语言中的switch )。此语句的语法如下所示： Case 1 Case 2EndSelect
紧跟在Select之后的Case的用途是什么？或
浏览 0提问于2012-05-03得票数 2
回答已采纳
1回答
为什么这个函数不能退出？我已经尝试了Exit函数和Exit For。到达Ubound(arr)语句后，我将重置为i=0，调用堆栈恢复为End Select语句，此后For循环再次开始。这必须来自我执行的递归行？obj As Object, Optional ByVal i As Integer = 0) Select CaseVBA.TypeName(obj)
C
浏览 38提问于2020-01-11得票数 0
回答已采纳
我知道有几个帖子和我发布的一样，我已经看过了，仍然找不出我做错了什么。我还检查了如何使用VBA正确设置CASE语句，但仍然找不到我做错了什么。下面是我使用的代码：(txtString作为我的字段)
浏览 2提问于2014-09-17得票数 1
回答已采纳
我正在使用VBA在Access中工作。我正在尝试执行包含docmd子句的语句。该语句将包含一个变量。该变量将是docmd.openform或docmd.openquery。我不能使用IF或CASE来确定是哪个前缀。我尝试了以下几种方法：docmd.execute tmpStr
我需要完整的docmd语句在变量中。我只是不知道如何执行这个变量。谢谢你<e
浏览 0提问于2018-06-21得票数 0
3回答
我正在编写我的第一个SQL CASE语句，我已经对它们做了一些研究。显然，由于上下文和类似性质的原因，实际的实践将与我读到的略有不同。我理解他们是如何工作的。我只是很难正确地形成我的想法。下面是我的SQL语句草稿，我试图返回两个值(来自版本A的code值和它的标题，或者来自版本B的code值和它的</e
浏览 0提问于2014-08-08得票数 1
回答已采纳
因此，我正在尝试有效地删除excel电子表格中满足特定条件的行。但是，我认为如果我可以使用一些内置的VBA功能来选择我要删除的所有行，然后一次将它们全部删除，可能会更快。下面的链接是我想使用python win32com.client模块执行的操作的VBA等价物：有什么建议吗？
浏览 2提问于2019-04-02得票数 0
我正在试着从当前日期中获取下周四的日期，并将其写在第一张幻灯片中。到目前为止，我有当前的日期，但我不知道如何获得下周四的日期。例如，我在2016年8月23日星期二打开我的演示文稿，当我的宏运行时，我希望在第一张幻灯片上看到25.08.2016 (对应于星期四)。Thursday
.TextFrame.TextRange.Text = Format(Now + 4, " dd.mm.yyyy")
Case ol
浏览 0提问于2016-08-31得票数 0
我有以下代码： Msgbox("1 to 5")
Msgbox("23 to 31")当我把它放在一个VBS文件中并运行它时，我得到了第9行和第10行的“预期语句”。如果我将代码复制并粘贴到Excel的
浏览 6提问于2011-06-26得票数 2
回答已采纳
我有我做过的最长的组合case语句，我不能排除这个错误。它说这是一个语法错误)，这让我非常尴尬，因为我找不出这么简单的错误 WHEN COL_V_STD_REP_FullCourseDetail.SYSTEM = 'GEMS'THEN CASE
WHEN RRDD LIKE '12%' OR RRDD LIKE '13%&#x
浏览 1提问于2013-01-25得票数 1
回答已采纳
1回答
我有一个从表中返回数据的子窗体。但是，我希望使用filter属性进一步过滤此数据。我有一组单选按钮、组合框和一个case语句，该语句根据单选按钮的选择将我要使用的变量设置为正确的值
我的填充变量的代码工作得很好，但是我不能使用vba来设置过滤器，除非我手动键入我想要的字符串。我假设我的问题是我的过滤器字符串在语
浏览 0提问于2012-06-18得票数 0
回答已采纳
17回答
在很多语言中它的语法都是一样的： case OPTION_LIKE_ONE: doSomeStuff3();现在，您所知道的break<em
浏览 0提问于2010-06-10得票数 18
回答已采纳
我有一些代码，它们不断地导致在我的VBA代码中。我找不出原因，因为我知道工作表是不受保护的，并且我可以对其进行更改。有问题的代码是它尝试重命名从另一个工作表复制并粘贴到工作表中的形状-工作表中没有其他具有该名称的形状，因为在这些代码之前，我已经删除了具有该名称<em
浏览 4提问于2009-06-04得票数 1
回答已采纳
我已经用C++写了一个com对象(第一次)，当在vbscript中使用时，并通过cocreateinstance在可执行文件中工作。所以我决定看看它是否能在Excel VBA中工作。因此，我进入“引用”，并在那里找到我的对象。选中复选框并开始编码。以下是VBA代码。SimpleLib.IMath ' <- "Invalid use of New keyword" error hereEnd Function
Set可以识别Dim<
浏览 1提问于2014-08-14得票数 3
7回答
所以我想使用如下的switch语句： case (<1000): break; //do stuff}
现在我知道这两个语句(<1000)或(>1000 && <2000)都不能工作(显然是由于不同
浏览 2158提问于2011-07-12得票数 290
回答已采纳
当我在开关大小写的不同情况下声明相同的变量名时，为什么会收到警告。switch() case 1: break;
int a;有没有办法在没有警告的情况下做到这一点。
浏览 0提问于2019-05-15得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
