VBA学习第三课

sheet1 表1   sheets(1) 表格中的第一张表 sheets("十月")表格中的“十月”的那张表

Sub aa()

Sheets(Sheets.Count).Name = "1月"

Dim i As Integer

For i = 2 To 12

    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = i & "月"

Next

End Sub

  

Sub a()

Sheets.Add after:=Sheets(Sheets.Count), Count:=100
Excel.Application.DisplayAlerts = False

Dim a As Integer

For a = 1 To 100

    Sheets(Sheets.Count).Delete

Next

Excel.Application.DisplayAlerts = True

End Sub

  

Sub aa()

Dim i As Integer

For i = 2 To Sheets.Count

    Sheets("部门").Range("a" & i - 1) = Sheets(i).Name

Next

End Sub

  

Sub aa()

Dim i As Integer

For i = 1 To 31

    Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "5月" & i & "日"
    Sheets(Sheets.Count).Range("E5") = "2016/05/" & i

Next

End Sub

  

Sub bb()
Dim i As Integer

For i = 2 To Sheets.Count

    Sheet1.Range("B" & i + 8) = Sheets(i).Range("E5")
    Sheet1.Range("c" & i + 8) = Sheets(i).Range("E6")
    Sheet1.Range("d" & i + 8) = Sheets(i).Range("E44")

Next

End Sub

  

Sub aa()
‘线性思维 代码量大 卡顿
Dim i As Integer
Dim aa As Integer
Dim bb As Integer

For bb = 100 To 1 Step -1
For i = 1 To Sheets.Count
For aa = 1 To 200

    ‘第一循环 赋值科目

    If Sheets(i).Range("b" & aa) = "" Then
    Exit For
    End If

    If Sheets(i).Range("b" & aa) = "理工" Then
    Sheets(i).Range("c" & aa) = "LG"

    ElseIf Sheets(i).Range("b" & aa) = "文科" Then
    Sheets(i).Range("c" & aa) = "WK"

    ElseIf Sheets(i).Range("b" & aa) = "财经" Then
    Sheets(i).Range("c" & aa) = "CJ"

    End If

    ‘第二循环 赋值先生女士
    If Sheets(i).Range("e" & aa) = "" Then
    Exit For
    End If
    If Sheets(i).Range("e" & aa) = "男" Then
    Sheets(i).Range("f" & aa) = "先生"
    ElseIf Sheets(i).Range("e" & aa) = "女" Then
    Sheets(i).Range("f" & aa) = "女士"

    End If

    ‘第三循环 空行删除
    If Sheets(i).Range("d" & bb) = "" Then
    Sheets(i).Range("d" & bb).EntireRow.Delete
    End If
Next

Next

Next

End Sub

  

Sub aa()
‘优化 寻找共性很重要
Dim i As Integer
Dim aa As Integer

For i = 1 To Sheets.Count
For aa = 200 To 1 Step -1

    ‘第一循环 赋值科目

    If Sheets(i).Range("b" & aa) = "理工" Then
    Sheets(i).Range("c" & aa) = "LG"

    ElseIf Sheets(i).Range("b" & aa) = "文科" Then
    Sheets(i).Range("c" & aa) = "WK"

    ElseIf Sheets(i).Range("b" & aa) = "财经" Then
    Sheets(i).Range("c" & aa) = "CJ"

    End If

    ‘第二循环 赋值先生女士
    If Sheets(i).Range("e" & aa) = "男" Then
    Sheets(i).Range("f" & aa) = "先生"
    ElseIf Sheets(i).Range("e" & aa) = "女" Then
    Sheets(i).Range("f" & aa) = "女士"

    End If

    ‘第三循环 空行删除
    If Sheets(i).Range("d" & aa) = "" Then
    Sheets(i).Range("d" & aa).EntireRow.Delete
    End If

Next

Next

End Sub

原文地址:https://www.cnblogs.com/yigeduanpian/p/10041719.html

时间: 2024-10-10 10:37:08

VBA学习第三课的相关文章

安卓学习第三课——常见布局

1.相对布局 简单的说,就是通过描述每个组件所在的位置,使用的layout_below等,就是控制组件与组件之间的位置关系. 2.绝对布局 就是通过描述他的x,y坐标来确定位置 3.线性布局 有两种是水平和竖直对其方式,一般情况下整体会使用线性布局,来排列众多的组件 3.帧布局 我感觉就是一层一层的,默认的情况下,多个组件是在同一个位置,所以你需要去修改位置.同时可以选择是否显示. 这可以用来描述视频播放器暂停键的控制方法. 代码如下. <?xml version="1.0" e

【ios开发学习 - 第三课】UITextField使用

//初始化textfield并设置位置及大小 UITextField *text = [[UITextField alloc]initWithFrame:CGRectMake(20, 20, 130, 30)]; //设置边框样式,只有设置了才会显示边框样式 text.borderStyle = UITextBorderStyleRoundedRect; typedef enum { UITextBorderStyleNone, UITextBorderStyleLine, UITextBord

微信SDK开发学习第三课

等了一天,审核终于通过了. 上节课用的是官方Demo,这节课就开始自己写代码来实现朋友圈分享功能吧! 实战朋友圈分享功能 1. 点击查看AppID以及审核成功后获取的接口权限. 2. 新建安卓工程 这里我们先新建一个包名为"com.xingyun.WebChatDemo01"的安卓工程. 3.下载微信终端开发工具包 https://res.wx.qq.com/open/zh_CN/htmledition/res/dev/download/sdk/WeChatSDK_Android221

Struts2学习第三课 访问Web资源

1.什么是WEB资源? HttpServletRequest,HttpSession,ServletContext等原生的Servlet API. 2.为什么访问WEB资源? B/S的应用的Controller中必然需要访问WEB资源,例如,向域对象中读写属性,读写Cookie,获取realPath等等. 3.如何访问? 在Action中,可以通过一下方式访问web的HttpSession,HttpServletRequest,HttpServletResponse等资源 与Servlet AP

C 语言学习第三课习题编程练习

1.通过实验的方法,观察系统如何处理整数上溢.浮点数上溢.和浮点数下溢的情况. 整数上溢的情况: #include<stddio.h> int main() {  int i=2147483647; printf("%d %d %d\n",i,i+1,i+2); } 运行结果如下: 解释:整数i的范围就是: -2147483647-2147483647 所以最大值加1向上溢出后回到最左端. 浮点数上溢: 程序: #include<stdio.h> int mai

Struts2学习第三课 Struts2详解

接着上次的课程 这次我们看struts.xml 修改如下:这里是加上命名空间,默认的是不加,我们手动加上时就要在访问时加上命名空间. <?xml version="1.0" encoding="UTF-8" ?> <!DOCTYPE struts PUBLIC "-//Apache Software Foundation//DTD Struts Configuration 2.3//EN" "http://struts

英语学习第三课总结

11.illiterate 不识字的 in-前缀,表否定(记忆:原音改写自前缀un-),像水一样的前缀,水货前缀(同化) 同化具体指:在lr前变成il/ir(r/l是弱音),在bp前变成m(为了让单词念起来更顺口,参考下面) 妈妈m:必须闭着嘴读(哺乳音) 奶奶n:必须张着嘴读 b/p:必须闭着嘴读 active活跃的 inactive 不活跃的 regular规律的 irregular不规律的 legal 合法的,法律的 illegal非法的 polite 礼貌的 impolite 不礼貌的

Web前端学习-第三课JavaScript篇

Q5:解释什么是引用类型?在使用引用类型的时候需要注意什么? 引用类型通常叫做类,也就是说,遇到引用值时,所处理的就是对象,就是公用. 类型:  object类型,应用于应用程序中存储和数据传输(创建object实例:new操作和队象字面量表示法): Array类型,JavaScript数组的每一项都可以保持任何类型的数据,数组大小可以动态调整: 转换方法,所有对象都具有tolocalstring()和tostring(),valueOf()方法,调用tostring()和value()方法会返

Web前端学习-第三课HTML篇

Q8:请列举出常用的HTML标签属性以及其含义和使用环境,其分别有哪些属性值? 标题及其对其:<h1>----<h2>:<h1 align = left | center | right | justify>  </h1> 划分及其对其:<div></div>属性:align:left center right justify HTML4.01以及 XHTML 1.0   strict DTD不支持. 块引用:<blockquo