社交媒体 如何在Excel 2016中使用选择个案结构VBA - 傻瓜

如何在Excel 2016中使用选择个案结构VBA - 傻瓜

目录:

视频: 【Excel实用技术】excel制作动态更新下拉菜单,用这个公式一分钟搞定! 2025

视频: 【Excel实用技术】excel制作动态更新下拉菜单,用这个公式一分钟搞定! 2025
Anonim

Select Case结构是一个有用的VBA结构,用于涉及三个或更多Excel 2016中的选项(尽管它也有两个选项,提供If-Then-Else结构的替代方案)。

选择案例示例

以下示例显示如何使用选择案例结构:

Sub ShowDiscount3()Dim Quantity As Long Dim Double Discount Double Double = InputBox(“Enter Quantity:”)情况0到24折扣= 0. 1情况25到49折扣= 0. 15情况50到74折扣= 0. 2情况是> = 75折扣= 0. 25结束选择MsgBox“Discount:”&Discount End Sub >在这个例子中,Quantity变量正在被评估。例行检查四种不同情况(0-24,25-49,50-74和75或更大)。

<! --1 - >

每个Case语句后面可以有任意数量的语句,如果大小写为真,它们都会被执行。如果仅使用一个语句(如本例中那样),则可以将语句放在与Case关键字相同的行上,前面是冒号 - VBA语句分隔符。这使代码更紧凑,更清晰。下面是这种格式的例程:

Sub ShowDiscount4()Dim Quantity As Long Dim Double Discount Double Quantity = InputBox(“Enter Quantity:”)Select Case Quantity Case 0 to 24:Discount = 0 1 Case 25 To 49:Discount = 0. 15 Case 50 To 74:Discount = 0. 2 Case => 75:Discount = 0. 25 End Select MsgBox“Discount:”&Discount End Sub

一旦VBA发现一个真实的案例并且执行该案件的陈述,结构就会退出。

嵌套Select Case示例

如下例所示,可以嵌套Select Case结构。此例程检查活动单元格,并显示描述单元格内容的消息。注意该过程有三个Select Case结构,并且每个都有自己的End Select语句:

Sub CheckCell()Dim Msg As String Select Case IsEmpty(ActiveCell)Case True Msg =“is blank。 “Case Else Select Case ActiveCell。 HasFormula Case True Msg =“has a formula”Case Else Select Case IsNumeric(ActiveCell)Case True Msg =“has a number”Case Else Msg =“has text”End Select End Select End Select MsgBox“Cell”&ActiveCell。地址&“”&消息结束小组

逻辑是这样的:

确定单元格是否为空。
  1. 如果不是空的,看它是否包含公式。

  2. 如果没有公式,请确定它是否包含数值或文本。

  3. 例程结束时,Msg变量包含描述单元格内容的字符串。 MsgBox函数显示该消息。

由CheckCell过程显示的消息。

可以根据需要嵌套Select Case结构,但要确保每个Select Case语句都有相应的End Select语句。

如果您仍然不相信缩进代码是值得的,那么之前的列表就是一个很好的例子。缩进确实使嵌套层次清晰。看看没有任何缩进相同的过程:

Sub CheckCell()Dim Msg As String Select Case IsEmpty(ActiveCell)Case True Msg =“is blank。 “Case Else Select Case ActiveCell。 HasFormula Case True Msg =“has a formula”Case Else Select Case IsNumeric(ActiveCell)Case True Msg =“has a number”Case Else Msg =“has text”End Select End Select End Select MsgBox“Cell”&ActiveCell。地址&“”&Msg End Sub

相当难以理解,呃?
如何在Excel 2016中使用选择个案结构VBA - 傻瓜

编辑的选择

10个惊人的Python编程资源 - 傻瓜

10个惊人的Python编程资源 - 傻瓜

您可能对Python编程有很好的开始,需要额外的资源。这里有十个令人惊叹的编程资源,您可以使用它来改善您的开发体验。在线使用Python文档使用Python的一个重要部分就是了解Python中的可用内容...

如何在Python中创建类定义

如何在Python中创建类定义

类不需要特别复杂。实际上,您可以在Python中创建容器和一个类元素,并将其称为一个类。当然,最终得到的类不会有太多的工作,但是你可以实例化它(告诉Python用你的类作为蓝图来构建一个对象),并使用它来处理它...

如何在Python中访问列表 - 傻瓜

如何在Python中访问列表 - 傻瓜

使用Python创建列表后,要访问信息它包含。一个对象不是特别有用,如果你至少不能访问它所包含的信息。以下步骤描述了如何做到这一点。

编辑的选择

如何在Excel 2013中复制自定义样式 - 傻瓜

如何在Excel 2013中复制自定义样式 - 傻瓜

Excel 2013可以轻松复制自定义单元样式您已经将其作为一个工作簿的一部分保存到您当前正在处理的工作簿中。要将自定义样式从一个工作簿复制到另一个工作簿,请按照下列步骤:

如何使用填充柄复制Excel公式 - 虚拟人

如何使用填充柄复制Excel公式 - 虚拟人

您将喜欢填充柄在Excel中。填充句柄是一个快速的方法,只需单击一下鼠标,即可将单元格的内容复制到其他单元格。活动单元格的边界右下方总是有一个小方框。那是填充句柄。当你...

如何比较Excel 2013中的多个工作表 - Excel 2013中的虚拟人数

如何比较Excel 2013中的多个工作表 - Excel 2013中的虚拟人数

,可以拆分单个工作簿到工作表窗口中,然后排列窗口,以便您可以查看屏幕上每个工作表的不同部分。要打开要在不同窗口中比较的工作表,只需插入新的工作簿窗口,然后选择工作表即可...

编辑的选择

监视WebLogic Server - 虚拟机

监视WebLogic Server - 虚拟机

监视服务器是每个WebLogic Server管理员必须处理的重要任务。您将监视您的服务器是否启动以及服务器负载。通过监视,您可以快速查看WebLogic Server不同部分如何执行的概述。通过WebLogic Server,您可以监视以下区域:CORBA ...

测量用于机器学习的矢量之间的相似性 - 虚拟

测量用于机器学习的矢量之间的相似性 - 虚拟

把他们当作一个媒介。以下信息描述了如何测量矢量之间的相似性以执行诸如计算用于学习目的的矢量之间的距离等任务。理解相似性在矢量形式中,您可以在...中看到每个变量。

前10名MATLAB的使用MATLAB

前10名MATLAB的使用MATLAB

MATLAB被许多不同的人使用当谈到数学产品时,可能不一定会想到。事实上,数学的使用方式很多人都没有考虑。工程新的解决方案许多工程学科依靠各种数学来确保...