为什么在Excel VBA中不能在case语句中访问变量
在Excel VBA中，不能在case语句中访问变量的原因是因为case语句是用于选择多个可能的值之一来执行相应的代码块。在case语句中，每个case后面的值都是常量，而不是变量。
case语句的作用是根据给定的表达式的值来选择执行相应的代码块。在Excel VBA中，case语句通常与Select Case语句一起使用。Select Case语句用于根据表达式的值选择要执行的代码块，而case语句则用于指定每个可能的值和相应的代码块。
由于case语句中的值必须是常量，而变量的值是可以改变的，因此在case语句中访问变量是不允许的。如果需要在case语句中使用变量的值进行条件判断，可以使用If语句来替代case语句。
以下是一个示例代码，演示了如何使用If语句来替代case语句中的变量访问：
Sub Example()
Dim value As Integer
value = 2
If value = 1 Then
' 执行代码块1
ElseIf value = 2 Then
' 执行代码块2
ElseIf value = 3 Then
' 执行代码块3
Else
' 执行默认代码块
End If
End Sub在上面的示例中，根据变量value的值，使用If语句来选择执行相应的代码块。根据实际需求，可以添加更多的条件判断。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网平台（IoT Hub）：https://cloud.tencent.com/product/iothub
- 腾讯云移动开发：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云虚拟专用网络（VPC）：https://cloud.tencent.com/product/vpc
- 腾讯云内容分发网络（CDN）：https://cloud.tencent.com/product/cdn
相关·内容
我有一个Excel VBA函数，它根据A列中的分数对B列中的学生进行评分。我尝试了FOR NEXT，它工作得很好，但当我尝试DO While时，它显示了错误。问题出在哪里？Case 20 To 29 Cells(counter, 2) = grade Cells(counter,
浏览 18提问于2017-01-12得票数 1
回答已采纳
我正在尝试在一些工作表的文本框中应用波斯语日期格式。文本框现在以"dd/mm/yyyy hh:mm“的格式存储日期，这是我自己应用的。但是我很难在这些文本框中应用波斯日期。当我将单元格的日期格式更改为波斯语时，我录制了一些宏，我试图在文本框上使用它，但此代码似乎不能正常工作。还有那些我试图用来应用波斯日期的代码，但是我没有得到任何效果 TextBox3 = Format(TextBox3, "[$-fa-IR,16]dd/mm/
浏览 41提问于2019-06-03得票数 0
在VBA (MS Excel 2016)中:如何在select case语句中组合缺少的值和布尔值？参数val可以作为布尔值传递，或者根本不传递，或者作为其他意想不到的东西传递。public sub test(optional val as variant) case true, isMissing(val): msgbox("foo")
case else: m
浏览 45提问于2020-07-14得票数 1
回答已采纳
使用xlsxwriter可以将变量保存到现有的excel文件中，然后读取它们，尽管问题是变量作为字符串存储在我的excel文件中。假设我有一个具有不同类型(pd.datetimerange、pd.df、np.arrays等)的不同变量的列表，如果我将它们保存到excel文件中，变量类型就会丢失。此外，Python脚本是从我的Excel文件中调用的，因此我不
浏览 0提问于2018-12-07得票数 16
回答已采纳
我想知道是否有可能将数据从excel表格中移出并存储到Microsoft Access数据库中。我有很多类似格式的数据表，我想在access中为每个数据表创建一个表。我也想从数据库中检索数据，但我认为我应该首先学习如何存储数据。我找到了这段代码，我不知道是否有人能解释它是如何工作的(或者它是否和我要找的一点都不一样)？我读过用vba在excel中编程的power，所以我知道基本的vba，但不知道这个数据库的内容(可能
浏览 1提问于2013-06-14得票数 0
1回答
我想知道为什么在golang中的type switch语句中不允许发生故障。注意！这段代码不工作，它将产生错误：“不能在类型切换中失败”。我只是想知道，不允许类型切换中的allowing语句可能是什么原因。(type) {
浏览 2提问于2012-07-17得票数 36
回答已采纳
23回答
我一直在想，为什么不能在开关语句中的case标签之后声明变量呢？在C++中，您可以在任何地方声明变量(并且声明它们接近第一次使用显然是件好事)，但以下内容仍然无法工作：{ // This won't workint newVal = 42; case ANOTHER_VAL:
...break;
浏览 40提问于2008-09-18得票数 1088
回答已采纳
我正在用vba编写一个函数，它将接受工作表的值上的一个单元格，并用另一个字符替换任何回车符。为了填充工作表上的单元格，我手动复制(ctrl+c，ctrl+v) Word文档中的几个段落，并将它们粘贴到excel的公式框中，以便所有内容都显示在工作表上的该单元格中。当我这样做并试图将此单元格的内容作为字符串存储在我的vba函数中时，我得到了一个类型不匹配错误。这是怎么回事?我如何才能在vba<
浏览 1提问于2018-09-27得票数 0
到目前为止，powerbuilder应用程序使用的是Word 2003，现在我们决定转到Word 2010，但我没有找到Powerbuilder的Word OLE的适当文档。
浏览 7提问于2014-05-31得票数 0
1回答
在第22行Char 60 (即在QueryTables.Add函数中的"connection“处)得到一个错误：”预期的')'“。此VBA由批处理文件调用。set a path variable to send to VBScriptVBAUsage: txtToCsv Destination.csv"End If
Dim
浏览 3提问于2013-05-09得票数 0
我的一段VBA代码在windows7机器上运行良好，但在windows10上却无法运行，我的VBA技能还不够好，无法解决这个问题。这部分代码在Excel类中运行，用于加载xml文件并将xml作为类返回。helper sub to do the actual work:End Function
调试时，它告诉我存在类型不匹配我的主要问题是，为什么这可以在</
浏览 0提问于2018-07-11得票数 0
为什么不允许在switch语句中声明+初始化变量&这会导致一个错误，但是如果在一行上声明了变量，然后在另一行上分配了一个值，那么它就编译了？为什么在前一个案例中声明的变量可以在另一个匹配的情况下使用(操作)，即使前面的case语句没有执行！;我希望case 'b'或case 'c'不知道有一个名为x的变
浏览 0提问于2019-05-23得票数 3
回答已采纳
2回答
我在一个电子表格列中有大量的变量名。这些变量是定义的，并且在我的项目中的模块中具有值。我想有一个代码，它引用电子表格中的变量名称，并返回它在模块中的值，并将该值粘贴到另一个电子表格中 variable1
浏览 16提问于2013-08-20得票数 2
2回答
我正在为不运行(Office )的用户编写一个工具。这意味着他们的系统上没有安装MSAccess。因此，以下代码失败(从Excel调用)： Set appAccess = CreateObject("Access.ApplicationRange("DBfile") .Quit虽然我认为这以前是有效的(所以我想知道为什么<
浏览 3提问于2015-09-18得票数 0
0回答
我在Sheet1中创建了一个excel表“数据”的“测试”宏，并尝试从vbs文件中调用它Set objWorkbookSheet1.Test" 我收到以下错误:宏可能在此工作簿中不可用代码: 800A
浏览 4提问于2016-12-28得票数 2
回答已采纳
4回答
我想编写一个VBA代码模块，在三个主要的Office (Excel、PowerPoint、Word)上工作。由于每个应用程序中的对象模型不同，如果我在Excel中编写特定于PowerPoint的代码，则该项目将不会编译。首先的方法似乎是使用条件编译器常量。在下面的简化示例中，我希望将图片添加到工作表、幻灯片或文档中，具体取决于运行VBA代码的应用程序。如果我试图在Excel中编译它
浏览 4提问于2013-10-02得票数 0
回答已采纳
1回答
你好，我试图从数组中获取MIN和MAX值，尽管有任何情况，它总是返回"0“。thisworkbook.worksheets(1).range("C25:D25")
在范围内我有自然数
浏览 11提问于2022-06-07得票数 0
回答已采纳
她的似乎只是跳到最后，没有结果，但我的使用第一种情况，只有第一种情况，而忽略其余的，即使他们不匹配。我想要选择一个单元格的范围，对于范围中的每个单元格，根据单元格列的不同，循环将值导出到一个具有不同前缀的文本文件： Dim r As Excel.Range, cellAs Excel.Range Set r = Application.InputBox("Select Range", "Select
浏览 2提问于2014-07-08得票数 0
回答已采纳
我在使用Excel2007和SQL server2008 R2时遇到了很多问题。我需要在两个或多个工作簿之间共享数据，并且我希望通过远程服务器上的SQL数据库(位于SQL Server2008 R2中)来实现此目的。我使用带有ADO的VBA和SQL Server Native Client OLE DB provider作为数据访问提供程序。当一个客户端将数据从Excel上传到数据库时，我希望SQL Server2008 R2向其他工作簿发出一个信号，告知数据库已更改，我的问题是如何做到
浏览 6提问于2011-07-04得票数 1
1回答
当我将网格视图导出到Excel时，我在识别阿拉伯字符方面有问题。阿拉伯文本显示为“appears”doesn§header，它不识别阿拉伯数据和阿拉伯网格视图标题 Response.End();如果我从通常的select查询中检索数据到网格视图中，
浏览 4提问于2015-05-07得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
