1 1.点击鼠标右键选择新建一个Excel表格。2 2.根据自身的需要输入对应项目，然后制定判断规则。作者这里为90以上为优秀；80到90为良好；70到80为中等；60到70为一般。3 3.选择开发工具选项中的“宏”选项。4 4.输入判断规则的名称，然后点击“创建”按钮。5 5.写入判断成绩的代码。主要利用的代码为Select case。
基本语句-Select Case多条件判断语句 #vba #vba教程 #excel #excel教学 - 老鱼EXCEL于20221118发布在抖音,已经收获了1.7万个喜欢,来抖音,记录美好生活!
4 3、Excel界面如下：功能为：通过输入血型，判断结果；例如输入血型为A，得到相应的结果；5 4、在VBE中编写代码如下：Sub select多条件()Dim blood As StringDim res As Stringblood = Sheet1.[a13].ValueSelect Case bloodCase "A" Debug.Print ("为A型血") Sheet1.[b13].Value = "为A型血"Case "...
VBA高效办公之select case判断语句 #office办公技巧 #电脑培训 #办公技能 #办公软件 #excel技巧 - 迈光办公服务,定制设计收学员于20241202发布在抖音,已经收获了25.2万个喜欢,来抖音,记录美好生活!
Excel VBA中,select case 使用like 运算符需要换一种思路,使用select case true,类似如下方法: 以下程序查找左边单元格的内容,如果含有“肿瘤”字样,刚在本单元格标记为“肿瘤” Private Sub Test() Dim cellx As Range Dim iOffset As Integer Dim iText As String ...
5. Using Select Case in a Custom Function You can also use the SELECT CASE while writing code for aVBA Function. Function udfGrade(student_marks As Integer) Dim myGrade As String Select Case student_marks Case Is < 40: myGrade = “Bad” Case 41 To 50: myGrade = “Average” Case 51...
此外,也可以直接把Excel单元格中的数据赋值给数组。如上面定义的长度为5的一维数组,可以以以下方式把单元格中A1到A5的数据分别载入到数组arr中: arr = Range("A1:A5") 1.4 多维数组 VBA中也支持多维数组。如,定义一个四行五列的二维数组如下: Dim Myarr(4, 5) as String 或者: ...
End Select End Sub 如果单元格A1中是数值1或3或5,运行代码后就会弹出“单元格A1中的值是5以内的奇数.”的消息框。 示例代码3:逗号分隔字符 Sub CharWithSelectCase() Select Case Range(“A1”).Value Case “A”, “E”,”I”, “O”, “U” ...