Excel | VBA基础操作

1. 代码基本结构

2. 基础操作：对单元格

3. 赋值

4. 格式设置

5. 逻辑

6. 说明

1. 代码基本结构

Sub name()   '定义一个函数''代码主体'
End Sub

2. 基础操作：对单元格

'选择单元格'
Sub CellSelect()'选中单个单元格'的三种等价表示'Example 1'Cells(3,1).Select '选中A3，前面表示行，后面表示列''Example 2'Cells(3,"a").Select  '和上面一样的''Example 3'Dim tmpRange As Range 'dim定义一个range变量'Set tmpRange = Cells(3,1)tmpRange.Select'选中一个范围'Range(Cells(3,2), Cells(7,3)).Select '选中从B3到C7的所有单元格'Union(Cells(3,2), Cells(7,3)).Select '只选择B3和C7两个单元格'
End Sub

3. 赋值

Sub WritingData()Cells(1,1).Value = 11  '给A1赋值10'x = Cells(1,1).Value  '把A1的值储存到x里'MsgBox x   '弹出x的值'MsgBox "Hello"  '弹出Hello'Debug.Print x   '会在immediate window返回结果，类似python中的print，能够检测运行过程中是否正确''数字相加'Cells(3,1).Value = Cells(1,1).Value + Cells(2,1).Values 'A3=A1+A2''如果想要相加的两个单元格不是在A1，我们想要写一个相对位置的代码呢？'ActiveCell.Value = _   'ActiveCell表示用户选中的单元格，_表示要换行了''Offset(-1,0)表示选中单元格的上一行，列不变的相对位置。比如用户选中了A100，那么这个就是指A99'ActiveCell.Offset(-1,0).Value + ActiveCell.Offset(-2,0).Value  End Sub

4. 格式设置

Sub FormatCells1()'基本属性''三种底色表达方式'Cells(12, 1).Interior.Color = xlNoneCells(11, 1).Interior.Color = RGB(255, 0, 0)Cells(13, 1).Interior.ColorIndex = 9' 对字体属性进行设置Cells(11, "a").Font.Color = vbBlack    '字体颜色'Cells(11, "a").Font.Name = "garamond"   '字体名称'Cells(11, "a").Font.Size = 14   '字号'Cells(11, "a").Font.Italic = True   '斜体'Cells(11, "a").Font.Bold = True   '加粗'End Sub'上面的代码不太简洁，比如在字体属性设置那里，你会发现都是对同一个单元格进行操作。那么可以用下面的代码实现相同的操作'Sub FormatCells2()With Cells(11,1).Font.Color = vbBlack    '字体颜色'.Name = "garamond"   '字体名称'.Size = 14   '字号'.Italic = True   '斜体'.Bold = True   '加粗'End With
End Sub

5. 逻辑

'for循环，每个格子不同颜色'
Sub UsingLoop()For j = 1 To 30 Step 1  'Step1表示步长为1，加不加都没关系'Cells(j, "g").Value = jCells(j, "h").Interior.ColorIndex = jNext j
End Sub'for 循环+判断，判断两列的值哪一个大，大的标记为黄色'
Sub UsingForLoop()For j = 1 To 15If Cells(j, "d").Value < Cells(j, "e").Value ThenCells(j, "d").Interior.Color = vbYellowCells(j, "e").Interior.Color = xlNoneElseCells(j, "d").Interior.Color = xlNoneCells(j, "e").Interior.Color = vbYellowEnd IfNext j
End Sub'实现功能：还是判断两列数字大小，但是这个时候不是给定的列了，可能你也不知道用户的列在哪，所以要用ActiveCell功能'
Sub whileLoopExercise()Do While ActiveCell.Value <> ""If ActiveCell.Value > ActiveCell.Offset(0, 1).Value ThenActiveCell.Interior.Color = vbYellowElseActiveCell.Offset(0, 1).Interior.Color = vbYellowEnd IfActiveCell.Offset(1, 0).Select '这句话一定要有，不然死循环了Loop
End Sub

6. 说明

以上内容是学校workshop的内容，我加以整理d。

Excel | VBA基础操作相关推荐

【业务数据分析】——Excel的基础操作(一)
Excel的基础操作 1.工作簿 2.工作表 3.数据基本操作 4.数据类型 5.常用快捷键 1.工作簿即Excel文档,用来储存和处理数据的文件常用扩展名: xls 97-03版 xlsx 07 ...
Excel VBA 基础部分（变量声明、三大语句）
目录 Excel VBA 基础部分一.变量声明语句二.赋值语句.条件语句.循环语句 (一)赋值语句 1. Let语句 2. Set (二)条件语句 1. If...Then...Else语句 2. ...
第一章、Excel VBA基础知识
01-01.Excel VBA简介 1.VBA是什么,能干什么 VBA可以说是一种编程语言,是VB的分支 VBA的作用,可以将重复的Excel工作简单化 2.VBA具备的基础知识 2.1基础操作,能发 ...
Pywin32操控Excel——1. 基础操作
介绍 pywin32是一个方便Python开发者快速调用Windows API的第三方模块库,在这边我们只学习关于操控Excel的部分,而且不会讲的很全,只是对于openpyxl缺点部分进行补充. 安 ...
【090】Excel VBA 基础
Excel Object Model: Application Object (Excel): Stab Me!!! Font Object (Excel): Stab Me!!! Worksheet ...
Excel VBA基础教程
1 VBA是什么直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WOR ...
Excel VBA基础与应用5
1Excel中的对象在Excel中,VBA程序实际上通过对象来操作表格的.Excel中的对象关系如下: 一个Excel应用程序就是一个Application对象,比如菜单.工具条都属于Applica ...
Excel的基础操作
一.Excel的界面组成部分:标题栏.功能选项卡.单元格名称.功能面板.编辑栏.工作导航按钮.工作表标签二.一个工作薄默认包含三个工作表,可以自己添加工作表三.单元格操作:1.编辑内容:(1)单 ...
vba 服务器上删除文件夹,Excel vba 如何操作文件夹的创建以及删除
前景提要之前我们在上一系列也是学了一些关于VBA创建文件夹的相关操作,我们是通过dir()方法来实现的,如果是简单的文件夹的创建的话,我们完全可以通过这个方法,但是在进行VBA代码执行的过程中,如果 ...

Excel | VBA基础操作

1. 代码基本结构

2. 基础操作：对单元格

3. 赋值

4. 格式设置

5. 逻辑

6. 说明

Excel | VBA基础操作相关推荐

最新文章

热门文章