开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

为什么我从VBA Select Case得到随机/错误的输出？

VBA（Visual Basic for Applications）是一种用于编写宏和自定义功能的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Access等。在使用VBA的Select Case语句时，可能会遇到输出随机或错误结果的情况。这种情况通常是由以下几个原因引起的：

语法错误：在编写Select Case语句时，可能存在语法错误，例如缺少关键字、拼写错误或者忘记添加必要的分隔符等。这些错误会导致程序无法正确解析语句，从而产生随机或错误的输出结果。
逻辑错误：在编写Select Case语句时，可能存在逻辑错误，即条件判断不准确或者遗漏了某些情况。这会导致程序无法正确匹配条件，从而产生随机或错误的输出结果。
数据类型错误：在使用Select Case语句进行条件判断时，可能会出现数据类型错误。例如，将字符串与数字进行比较，或者使用不兼容的数据类型进行条件判断。这会导致程序无法正确匹配条件，从而产生随机或错误的输出结果。

为了解决这些问题，可以采取以下步骤：

检查语法：仔细检查Select Case语句的语法，确保关键字、括号、分号等的使用正确无误。可以参考VBA的官方文档或教程进行学习和参考。
检查逻辑：仔细检查Select Case语句中的条件判断，确保所有可能的情况都被考虑到，并且条件判断的逻辑正确无误。可以使用调试工具或输出语句来验证条件判断的准确性。
检查数据类型：确保在条件判断中使用的数据类型是兼容的，并且进行正确的类型转换。可以使用VBA提供的类型转换函数来处理不同类型之间的比较。

此外，腾讯云提供了一系列云计算相关的产品和服务，可以帮助开发者构建和管理云端应用。具体推荐的产品和服务取决于具体的需求和场景。你可以参考腾讯云的官方文档和产品介绍页面，了解更多关于云计算的知识和相关产品。

腾讯云相关产品和产品介绍链接地址：

云服务器（ECS）：https://cloud.tencent.com/product/cvm
云数据库MySQL版（CDB）：https://cloud.tencent.com/product/cdb
人工智能平台（AI Lab）：https://cloud.tencent.com/product/ailab
云存储（COS）：https://cloud.tencent.com/product/cos
区块链服务（TBC）：https://cloud.tencent.com/product/tbc
视频点播（VOD）：https://cloud.tencent.com/product/vod

请注意，以上链接仅供参考，具体的产品选择应根据实际需求进行评估和决策。

相关搜索:为什么我从Index Match公式得到错误的结果？为什么我从python代码中得到unicode错误？为什么我从管道得到双倍的输出？为什么我从这个字符串得到随机输出到字符转换？为什么我会得到这些看似随机的输出？为什么我只能得到"0“的输出？为什么我在不同的PC上从Matcher教程得到不同的输出？为什么我在使用str.replace()时会得到错误的输出？为什么我得到nan作为下面代码的输出？为什么我得到“目标元素丢失”的错误？

相关搜索:

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

Excel实战技巧49：模拟占位输出

{2}”.format(“一”, “二”, “三”) 输出：一, 二和三在VBA中，我通常使用debug.print在VBE中输出结果，或者使用MsgBox函数来显示信息。...其实，使用VBA自定义函数，也可以模拟类似C语言的占位输出。...假设自定义函数为ImitatePrint，我输入： ImitatePrint("我的%1是%2", "微信公众号", "完美Excel") 则会输出：我的微信公众号是完美Excel 其中，%1和%2是占位符...当然，也可以将它们调换，例如： ImitatePrint("我的%2是%1", "微信公众号", "完美Excel") 则会输出：我的完美Excel是微信公众号自定义函数ImitatePrint的代码如下...Handleerr: Select Case Err.Number Case Else MsgBox "错误:" & Err.Description &

9073 0

VBA代码库09：增强的CELL函数和INFO函数

本文对其内容进行了整理并分享于此，希望能够有助于VBA代码的学习，同时留存这个自定义函数以备所需。...参数reference，可选，默认值是最后一个发生变化的单元格。例如，下面的公式： =CELL("filename",A1) 在我的示例工作簿中返回： D:\01....语句中引用则错误) ' 或者, Target应该是单元格地址(如A1或Sheet1!...例如，公式： =nameof(" book ") 在我的示例中返回结果为： VBACodeLibrary09.xlsm 下面的公式： =nameof("Help") 输出可以在函数中使用的所有长格式文本值...注意，使用Application.Volatile以确保在打开工作簿或重新计算单元格时，所有引用NameOf函数的单元格都会得到更新。

4.5K1 0

用VBA实现Excel函数02：SUM

说到Excel的SUM函数，我估计只要用过Excel的，应该没人不知道了，SUM函数多简单啊，点一下自动求和，自动就能定位好范围，回车就完成了。...Dim dsum As Double Select Case VBA.VarType(num1) Case vbEmpty, vbNull, vbObject...Exit Function End If Case Else dsum = 0 End Select ParseValue...= dsum End Function VarType返回变量的数据类型，具体参看官方文档，这里没有使用if判断，而改用了Select Case，这种和if的逻辑差不多，但更方便判断这种多类型的。...，否则返回错误#VALUE!

2.7K2 0

VBA代码：随机颜色生成器

标签：VBA，自定义函数一个VBA自定义函数，生成随机颜色，可以专门排除不想要的颜色。一段过程代码，生成颜色索引及对应颜色的参考表，用以在自定义函数中指定你不需要的颜色提供参考。...'设置公共变量来记住值 Public pubPrevColor As Integer '用途——该函数可以选择随机的颜色，也可以排除你不喜欢的颜色 Function intRndColor() Dim...Again As Label Again: intRndColor = Int((50 * Rnd) + 1) '随机生成 Select Case intRndColor Case Is = 1..., 3, 21, 35, 36 '你不想要的颜色 GoTo Again Case Is = pubPrevColor GoTo Again End Select pubPrevColor...= intRndColor '将当前颜色赋给之前的颜色 End Function '用于查看颜色，为随机颜色生成器选择不需要的颜色 Sub ViewColors() Dim x As Integer

1161 0

VBA与数据库——写个类操作ADO_打开数据库

因为ADO这个东西不仅仅只有Excel VBA可以调用，只要能调用COM组件的语言都是可以使用的，所以ADO实现的方法和属性都是通用性的，对于使用Excel VBA的人来说，有些时候为了方便在Excel...使用VBAProject管理类代码我个人是习惯使用VBAProject来管理代码的，新建一个.xlam加载宏文件，插入类模块，命名CADO，设置Instancing=2，添加引用： Microsoft...ADODB.Connection '用来返回错误，通过GetErr函数 Private StrErr As String 然后输入类的初始、销毁代码，主要就是声明ADODB.Connection以及关闭数据库...Select Case strExt Case "xls", "xlsx", "xlsm", "xlsb" GetProvider = "Provider=Microsoft.Ace.OLEDB..."udl" GetProvider = "File Name=" & dbSrc Case "sqlite" '个人习惯使用的sqlite数据库的后缀

2.7K3 0

最佳编码实践：搞砸代码的10种方法

，我的建议是：在编写VBA代码时，不要走捷径。...下面是一些常见的错误观念，导致人们选择了错误的捷径，虽然其中一部分只适用于VBA或某种IDE，但大多数都是通用的。...1、我不需要else子句　　If…then…else，select case等VBA语句都包含了else子句，这个子句后跟随了所有具体的决策条件，这是处理一些带条件事情的最好机会，但开发人员却忽略了这个机会...，你为什么要这么做呢？...，相反，你应该从技术上来验证用户的输入，你可以使用表属性从底层来约束和验证，但大多数时候还是要靠你写的代码来验证，这也许是程序基本功能代码完成后最重要的任务，因此不要吝啬你的代码，不能依靠用户不犯错误的输入

2K4 0

用VBA实现Excel函数03：SUMIF

sum_range = Range("C2:c16").Value Debug.Print MySumIf(rangeValus, "赵四", sum_range) End Sub '输出...= VBA.Mid(criteria, VBA.Len(strcp) + 1) '如果数字前面带了比较符，criteria传入的是文本，而数字会小于文本的数字 If VBA.IsNumeric...= dSum + VBA.Val(sum_range(i, 1)) End If Case "<="...dSum = dSum + <em>VBA</em>.Val(sum_range(i, 1)) End If <em>Case</em> ">"...dSum = dSum + VBA.Val(sum_range(i, 1)) End If End Select Next MySumIf

5.6K2 0

Excel VBA编程

对象，集合及对象的属性和方法 VBA中的运算符算数运算符比较运算符通配符逻辑运算符 VBA内置函数执行程序执行的基本语句结构 if语句 select case语句 for 循环 for each...执行程序执行的基本语句结构 if语句在VBA中，if语句的规则如下： if 条件 then 语句 else 条件 select case语句尽管使用if语句可以解决“多选一”的问题，但当判断的选择条件过多时...通常，当需要在三种或以上的策略中做出选择时，我们会选择使用select case 语句来解决问题 Sub test() Select Case Range("B2").Value...标签告诉VBA，当程序运行过程中晕倒运行时错误时，跳转到标签所在行的代码继续执行程序，实际上就是让程序跳过出错的代码，从另一个地方重新开始执行程序。...on error resume next Resume Next告诉VBA，如果程序发生错误，则忽略存在错误的代码，接着执行错误行之后的代码。

45K2 1

VBA: 禁止单元格移动，防止单元格公式引用失效

多人操作时，每个人的操作习惯不同，如果数据源的单元格不小心被人为移动或删除，会导致单元格公式引用失效，产生#REF! 错误。如果进行的是跨表引用，这种错误往往还很难发现。...，本文通过VBA代码进行一定程度的规避。...Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) '禁用剪切功能 Select...Case Application.CutCopyMode Case Is = False 'do nothing...Case Is = xlCopy 'do nothing Case Is = xlCut

6762 0

VBA专题10-23：使用VBA操控Excel界面之添加动态菜单

通过该控件的getContent属性引用的VBA过程，在运行时为菜单内容构建XML代码。...单击工具栏中的Validate按钮检查是否有错误。 7. 保存并关闭该文件。 8. 在Excel中打开该文件。对于弹出的错误消息，单击“确定”。 9. 按Alt+F11激活VBE。 10....插入标准的VBA模块，复制并粘贴下面的VBA代码： Public myRibbon As IRibbonUI 'Callback for customUI.onLoad Sub Initialize...在GetMenuContent过程中加入为getPressed属性的VBA代码： Select Case ActiveSheet.Name Case "Data"...当VBE显示标准的错误消息框（因为一个未处理的运行时错误发生），可以单击消息框中的结束按钮。关闭该工作簿文件。如果没有未处理的错误，你可以只执行前两种方法，而用户可以仅执行最后一种方法。

5.9K2 0

从VBA到Python，Excel工作效率如何提高？

现在有了： xlwings库允许我们通过VBA调用Python脚本来进行两者的交互！ ? 2 为什么要将Python与Excel VBA集成？事实上，你可以在VBA中做任何事情。...那么为什么要使用Python呢？原因有很多： 1、你可以在Excel中创建一个自定义函数，而不需要学习VBA。 2、使用Python可以显著加快数据操作的速度。...5 具体操作有两种主要的方法可以使我们从 Excel 转换到 Python（以及转换回来）。第一种是直接从 VBA 调用 Python 脚本，另一种是通过用户定义函数调用。...我们将从CSV文件中获取数据，对这些数据进行修改，然后将输出传递到Excel：首先，VBA代码。...然后，我们的 Python 脚本将从文件中随机抽取一行，并返回一个jokes。首先，VBA代码。

11.3K2 0

Go语言中常见100问题-#64 Expecting a deterministic behavior using ...

在使用select+channel时期望确定性的结果对select在多个通道中的行为做出错误的假设是Go开发人员常犯的的一个错误，这种错误的假设可能会导致难以识别和重现的细微错误。...return } } 使用select从多个通道接收数据，由于考虑到有优先级，messageCh优先，所以在case语句中，将从messageCh中接收消息写在第一个位置，disconnectCh...:= 0; i < 10; i++ { messageCh <- i } disconnectCh <- struct{}{} 运行上述代码，messageCh是缓冲通道，下面是在我的机器上运行的输出...但是在select语句中，如果有多个匹配，会随机选取一个。 ❝如果一个或多个通道可以进行，select会通过统一的伪随机选择一个可以进行的通道。...回到前面的程序，即使case v:= <- messageCh是源顺序中的第一个，如果messageCh和disconnectCh中都有消息，则不能保证会选择哪个，所以前面的程序输出结果是不确定的，可能收到

3991 0

VBA解压缩ZIP文件03——解压准备工作

要解压缩ZIP文件，所以肯定需要读写文件的功能，为了方便，把VBA中对文件的读写功能进行一个简单的封装，方便使用。...ZIP文件压缩后，保存数据使用的最小单位是bit，注意不是Byte，计算机的1Byte=8bit，正常在VBA中操作的最小单位是Byte，为了方便读取bit位的数据，写几个简单的函数。...，前面的文件未关闭 If num_file Then Close #num_file num_file = VBA.FreeFile Select Case m...Filename For Binary Access Read Write As #num_file Case Else End Select lFileLen...解压ZIP的过程中，需要不停的从压缩数据的Byte数组中读取需要的bit，实现几个简单的函数： '取某一位的Bit Function GetBitFromByte(b As Byte, ZeroBaseIndex

1.4K4 0

Excel VBA一键整理工资表，并进行分类新建工作簿、加密

本代码一键完成工作，如下我每一次下发工资表时，总会有一些我做表时的辅助行或列不要下发，这时我要删除; 有些内容要给谁不要给谁，要另存为新的工作簿; 最后我要进行加密下发。...本代码用的知识点有： VBA字典，用于查询 VBA新建工作簿并复制数据进去 if then语句，select case 语句 union方法 =========代码======= Sub delsh()...col_a = "AA" ''''''''''设定要删除的，我的工作时的辅助列 row_a = 2308 col_b = "L" '''''''''设定要删除的，我的工作时的辅助列...For Each sh In Sheets Select Case sh.Name Case arrA(0) ''''''''在职明细...arrA(3) ''''''''''退休补发 'MsgBox arr(3) 'Case arrA(4) Case Else

4432 0

SQL Server2012在程序开发中实用的一些新特性

从执行效率上来讲，试了一下，是一样的。三、一些新的系统函数。...3.1相当于C#中三目运算符的IIF函数这个函数和VBA中的IIF函数相同，判断第一个参数的表达式是否为真，真则返回第二个参数，假则返回第三个参数。...，一是必须类型都是字符串类型，如果是数字类型那么会报语法错误，所以必须把数字类型转换为字符串。...现在的FORMAT函数相当于C#中的String.Format函数，在第二个参数中可以想要输出的格式。...OVER子句，得到我们想要的结果： select distinct c.

1.8K2 0

基础扩展 | 14. 栈结构应用基础示例

使用VBA实现栈结构》中，我们使用很简洁的VBA代码就实现了栈数据结构。我们知道，栈以有序的方式来控制数据的输入和输出，新元素只能加到栈顶，也只能取走栈顶元素，这样实现了后进先出的数据结构。...注意，示例中用到的实现栈结构的基础代码见《基础扩展 | 13. 使用VBA实现栈结构》。..., "[","9", "(", ")", "+", "]","}") Dim i As Long For i = LBound(var) To UBound(var) Select...Case var(i) Case "{", "[","(" testStack.Push var(i) Case ")"...testStack.Pop Else bln = False End If End Select

3681 0

Vba菜鸟教程

大家好，又见面了，我是你们的朋友全栈君。...文章目录 Vba菜鸟教程编辑器宏 vba基本语法运算符变量数组字典语句简写语句 sub语句调用语句退出语句跳转语句错误处理语句循环语句判断语句公式与函数...，下划线，回车 debug 在工具栏中，右键，调试工具栏首行加上optionexplicit使得编译更严格，变量申明 f8单步运行，在最左边点一下设置断点/f9 Debug Print “立即窗口输出过程的值...判断 Sub 判断1() Select Case Range("A1").value Case 0 To 1000 Range("B1") = "正数" Case...Is = 0 Range("B1") = "0" Case Else Range("B1") = "负数" End Select End Sub 公式与函数

16.8K4 0

VBA与数据库——简化程序编写-汇总

As Variant, items As Variant keys = dic.keys() items = dic.items() '输出 Range("F1").Resize...Range("G1").Resize(UBound(items) + 1, 1).Value = Application.WorksheetFunction.Transpose(items) End Sub 得到结果..., 2))) = dic(VBA.CStr(arr(i, 2))) + VBA.CDbl(arr(i, 3)) 如果简单的用&把多个条件的字段数据进行连接起来，可能会出现一些问题。...个条件连接起来都是ABC，可是想要的结果显然不是这样的，这个时候可能就会在2个条件连接的中间再加一个特殊的符号，用这样的方式来避免这种错误。...，其中只有一句是专用的： Range("F1").CopyFromRecordset AdoConn.Execute("select 项目,Sum(数据) from [Sheet2$] group by

1.2K1 0

从VBA的vbNullString认识API参数传递

str = "新建文本文档.txt - 记事本" Debug.Print str, FindWindow(vbNullString, str)End Sub 这个错误是只使用VBA的人容易犯的吧...0 False 从输出来看，用=和StrComp进行对比，这2个东西是相同的！...这又是为什么呢！这里只能进行猜测了，VBA在比较2个字符串的时候，可能是先读取长度，如果都为0，则判断为相同了，""和vbNullString在使用LEN函数的时候，返回的都是0。...类型修改为了Long类型，从代码的输出过程就可以看到，如果不进行String类型的编码转换，FindWindowByPtr得不到正确的结果。...而在FindWindow里，VBA编译器自动为使用者做了处理，所以我们在使用API的时候，根本就不需要关注这个。这也容易造成VBA使用者不清楚原理，出现错误的时候很难找到具体的原因。

1.7K1 0

Go语言核心36讲（Go语言进阶技术五）--学习笔记

你可能会问，我自己写的函数自己肯定能确定操作通道的方式，为什么还要再约束？好吧，这个例子可能过于简单了。在实际场景中，这种约束一般会出现在接口类型声明中的某个方法定义上。...然后，我随机选择一个范围在[0, 2]的整数，把它作为索引在上述数组中选择一个通道，并向其中发送一个元素值。...但这时要注意，简单地在select语句的分支中使用break语句，只能结束当前的select语句的执行，而并不会对外层的for语句产生作用。这种错误的用法可能会让这个for语句无休止地运行下去。...后面的select语句只有一个候选分支，我在其中利用接收表达式的第二个结果值对intChan通道是否已关闭做了判断，并在得到肯定结果后，通过break语句立即结束当前select语句的执行。...你一定要去试运行一下，然后尝试用上面的规则去解释它的输出内容。

3250 1

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭