VBA学习_5:流程控制
1、If
If Range("B2").Value >=60 Then Range("C2").Value ="及格" Else Range("C2").Value="不及格"'如果。。。那么。。。。否则。。。。
If Range("B2").Value >= 60 ThenRange("C2").Value = "及格"
ElseRange("C2").Value = "不及格"
End If
If Range("B2").Value >= 90 ThenRange("C2").Value = "优秀"
ElseIf Range("B2").Value >= 80 ThenRange("C2").Value = "良好"
ElseIf Range("B2").Value >= 60 ThenRange("C2").Value = "及格"
ElseRange("C2").Value = "不及格"
End If
2、Select Case
Select Case Range("B2").ValueCase Is >= 90Range("C2").Value = "优秀"Case Is >= 80Range("C2").Value = "良好"Case Is >= 60Range("C2").Value = "及格"Case ElseRange("C2").Value = "不及格"
End Select
3、For....Next
Sub ShtAdd()Dim i As Byte '定义一个byte类型变量For i = 1 To 5 Step 1Worksheets.Add '在活动工作表前插新工作表Next i
End Sub
Sub ShtAdd()Dim i As Byte '定义一个byte类型变量For i = 1 To 5 Step 1Worksheets.Add '在活动工作表前插新工作表Exit For '退出For循环Next i
End Sub
'方法一Sub Test()Dim i As ByteDim Irow As ByteIrow = 2For i = 1 To 4 Step 1Select Case Range("B" & Irow).ValueCase Is >= 90Range("C" & Irow).Value = "youxuo"Case Is >= 80Range("C" & Irow).Value = "lianghao"Case Is >= 60Range("C" & Irow).Value = "jigei"Case ElseRange("C" & Irow).Value = "bujigei"End SelectIrow = Irow + 1Next i
End Sub
'方法二
Sub Test()Dim i As ByteFor i = 2 To 5 Step 1Select Case Range("B" & i).ValueCase Is >= 90Range("C" & i).Value = "youxuo"Case Is >= 80Range("C" & i).Value = "lianghao"Case Is >= 60Range("C" & i).Value = "jigei"Case ElseRange("C" & i).Value = "bujigei"End SelectNext i
End Sub
用For Each....Next语句循环处理集合或者数组中的成员
Sub ShtName()Dim sht As Worksheet, i As Integer '定义Worksheet类型变量shti = 1For Each sht In WorksheetsRange("A" & i) = sht.Namei = i + 1Next sht
End Sub
Do While和Do Until(Do While False退出, Do Until True退出)
Sub ShtAdd()Dim i As Bytei = 1Do While i<=5Worksheets.Addi = i+1
End SubSub ShtAdd()Dim i As Bytei = 1Do Worksheets.Addi = i+1Loop While i<=5
End SubSub ShtAdd()Dim i As Bytei = 1Do If i>5 Then Exit DoWorksheets.Addi = i+1Loop
End Sub
GOTO让程序转到指定语句执行
Sub Sum_Test()Dim mysum As Long, i As Integeri = 1x: mysum = mysum + 1i = i + 1if i <= 100 Then GoTo xMsgBox "1到100和:"&mysum
End Sub
With简写代码(对同一对象操作时)
Sub FontSet()Worksheets("Sheet1").Range("A1").Font.Name = '仿宋' '字体Worksheets("Sheet1").Range("A1").Font.size = '12 '字号Worksheets("Sheet1").Range("A1").Font.Bold = True '字体加粗Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3 '红色
End SubSub FontSet()With Worksheets("Sheet1").Range("A1").Font.Name = '仿宋' '字体.size = '12 '字号.Bold = True '字体加粗.ColorIndex = 3 '红色End With
End Sub
转载于:https://www.cnblogs.com/jp-mao/p/9878088.html
VBA学习_5:流程控制相关推荐
- Java学习笔记——流程控制
Java学习笔记--流程控制 Day05 一.用户交互Scanner 1.Scanner对象 我们通过Java工具包java.util.Scanner中的Scanner类来获取用户的输入 基本语法:S ...
- javascript学习之流程控制
流程:就是程序代码的执行顺序. 流程控制:通过 规定的语句 让程序代码 有条件的 按照一定的方式 执行. 一.顺序结构 按照书写顺序来执行,是程序中最基本的流程结构. 二.选择 ...
- php学习之------[流程控制]
<?php /** 流程控制* * 一.顺序结构* 二.分支结构--条件结构--选择结构* 1.单路分支* //条件bool,true或false,> < == !- & | ...
- Python学习(七) 流程控制if语句
在Python中流程控制if语句采用如下格式: if expression : statement elif expression : statement elif expression : stat ...
- java学习之流程控制
编写代码如下: package 第1章.java概要;public class _4_流程控制 {//if-elsepublic static void testIfElse(int num){Sys ...
- python学习Day4 流程控制(if分支,while循环,for循环)
复习 1.变量名命名规范 -- 1.只能由数字.字母 及 _ 组成 -- 2.不能以数字开头 -- 3.不能与系统关键字重名 -- 4._开头有特殊含义 -- 5.__开头__结尾的变量,魔法变量 - ...
- [原创]Scala学习:流程控制,异常处理
1.流程控制 1)do..while 1 def doWhile(){ 2 var line="" 3 do{ 4 line = readLine() 5 println(&quo ...
- Java学习:流程控制
程序在执行过程中需要执行的路径,我们需要控制. 8.1 流程控制分类 顺序流程 程序进入之后,依次逐行执行里面的代码.顺序结构是整个程序执行的主干. 分支流程 在程序执行的过程中,有可能针对于某种情况 ...
- Python学习笔记——流程控制(拉勾教育数据分析实战训练营学习笔记)
流程控制 1 程序结构 顺序结构 按编写顺序依次执行 选择结构 根据条件选择的结果,选择执行不同的语句 循环结构 在一定条件下,反复执行某段程序 2 选择语句 2.1 if语句 语法规则 ...
最新文章
- java读取本地文件下载_java 读取本地的json文件
- 退出出库复核是什么意思_干货 | 电商仓储与传统仓储有什么不同?
- C++入门经典-例9.4-默认模板参数
- 机器学习之交叉验证方法详解【基于Scikit-Learn】
- 开发日记-20190603 关键词 读书笔记《鸟哥的Linux私房菜-基础学习篇》
- cadence spb 16.5 破解过程实例和使用感受_赤松子耶_新浪博客
- 「C++」C++ Primer Plus 笔记:第二章 开始学习C++
- RCNN系列实验的PASCAL VOC数据集格式设置
- 第四次工业革命:人工智能(AI)入门
- 运维工程师打怪升级进阶之路 V2.0
- 怎么导出链接_如何导出CocosCreator项目供cocos2dx加载
- (转)OpenLayers3基础教程——OL3之Popup
- NumPy Essentials 带注释源码 四、NumPy 核心和模块
- 复制粘贴发明人、Java 和互联网创建者相继去世,向初代互联网大佬致敬!
- Java 动态代理 Demo
- Win10华硕atk驱动怎么安装_win10台式机网卡驱动如何安装
- java短信发送接口代码示例demo分享
- 【C语言】BC62统计数据正负数个数(DAY 4)
- 游戏——Flappy Bird
- 转载:理解 VSync
热门文章
- AngularJS操作DOM——angular.element
- Servlet和JSP学习指导与实践(二):Session追踪
- uva 10716 Evil Straw Warts Live
- windows 小技巧
- 19.C++-(=)赋值操作符、初步编写智能指针
- Memcached常用操作
- boltdb 学习和实践
- highcharts 显示网格
- 如何在多web服务器共享SESSION数据
- [综述泛读] A survey on web services composition (IJWGS, 2005)