VBA嘘嘘嘘

VBA嘘嘘嘘

什么是VBA?它有什么作用?

A.实现Excel中没有实现的功能。

B.提高运行速度。

C.编写自定义函数。

D.实现自动化功能。

E.通过插入窗体做小型管理软件。

VBA在哪里存放的?怎么运行?

A.模块中

在Excel 2010中若没有“开发工具”项,通过“文件”——“选项”——“自定义功能区”——选中“开发工具”——“确定”(图1)。

(注:为了提高word2010中插入的图片的质量,“文件”——“选项”——“高级”——选中“不压缩文件图像质量”——“确定”。)

     

图1 “开发工具”开启页面                                                          图2 “模块1”中的代码

B.运行宏

单击向右的绿三角,即可以运行。

    

图3 运行界面                                                                                        图4  运行结果

3.什么是宏?宏和VBA有什么关系?

宏(Macro),是一种批量处理。

宏通常既可以录制又可以手动编程,而VBA一般是通过编程完成。宏可以和VBA相结合使用。

4.录制一个宏。

A.“开发工具”——“录制宏”——宏名为“输入100”——“录制”——在A1单元格中输入100——“停止”。

B.“宏”——选中“输入100”——“执行”。

    

图5 选中“录制宏”                                         图6 在单元格中输入100                                  图7  选中“停止录制”

   

图8 单击“宏”并选中“输入100”—“执行”                                                图9 执行结果

5.编写一个宏。

A.“开发工具”——“Visual Basic”——“视图”——“工程资源管理器”——“插入”——“模块”——在右侧输入代码:

  ——“保存”。

B. 单击绿右三角即可运行。或者关闭VBA编辑窗口,单击“宏”——选中“test”——“执行”。

     

图10 单击绿右三角运行                                                 图11 运行结果

6.VBA语句

A.宏程序语句。

B.函数程序语句

C.在程序中应运语句。

D.循环语句。

7.VBA对象

A.工作簿对象

Workbooks 代表工作簿集合,所有的工作簿,Workbooks(N),表示已打开的第N个工作簿

Workbooks ("工作簿名称")

ActiveWorkbook 正在操作的工作簿

ThisWorkBook ‘代码所在的工作簿

B.工作表对象

Sheets("工作表名称")

Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表....

Sheets(n) 表示按排列顺序,第n个工作表

ActiveSheet 表示活动工作表,光标所在工作表

worksheet 也表示工作表,但不包括图表工作表、宏工作表等。

C.单元格对象

cells 所有单元格

Range ("单元格地址")

Cells(行数,列数)    Range(“B3”)和Cells(3,2)表示相同的单元格

Activecell 正在选中或编辑的单元格

Selection 正被选中或选取的单元格或单元格区域

8. VBA属性

VBA属性就是VBA对象所具有的特点,表示某个对象的属性如下:

对象.属性=属性值

Sub ttt()

Range("a1").Value = 100     ’给单元格填充数值100

End Sub

Sub ttt1()

Sheets(1).Name = "工作表改名了"   ’给工作簿重命名为“工作表改名了”

End Sub

Sub ttt2()

Sheets("Sheet2").Range("a1").Value = "abcd"   ’给sheet2工作表的a1单元格填充字符串“abcd”

End Sub

Sub ttt3()

’单元格的内部的填充色

Range("A2").Interior.ColorIndex = 3  ’将A2单元格的背景颜色设置为红色

Range("A2").Font.ColorIndex = 3      ’将A2单元格的字体颜色设置为红色

End Sub

9.VBA方法

VBA方法是作用于VBA对象上的动作,表示用某个方法作用于VBA的对象上,可以用下面的格式:

对象.方法  参数名称:=参数值

Sub ttt4()

’Range("A1").Copy Destination:= Range("A2")

Range("A1").Copy Range("A2")   ’将A1中的内容复制到A2

End Sub

Sub ttt5()

Sheet1.Move before:=Sheets("Sheet3")   ’将sheet1表移动到sheet3之前

End Sub

时间: 2024-10-20 23:10:45

VBA嘘嘘嘘的相关文章

VBA续嘘嘘

什么是VBA?它有什么作用? A.实现Excel中没有实现的功能. B.提高运行速度. C.编写自定义函数. D.实现自动化功能. E.通过插入窗体做小型管理软件. VBA在哪里存放的?怎么运行? A.模块中 在Excel 2010中若没有"开发工具"项,通过"文件"--"选项"--"自定义功能区"--选中"开发工具"--"确定"(图1). (注:为了提高word2010中插入的图片的质

Excel VBA在生成副本的工作表中插入本工作簿中的VBA模块代码

即在工作簿中添加一个工作表,然后移出并存为新的工作簿,在移出前将本工作簿的一个模块的代码拷贝至新的工作簿.下面是关键代码: '====================================================================== '各班名单保存为单个xls文件 ActiveSheet.Move ChDir myPath '忽略对话框,覆盖保存 Application.DisplayAlerts = False '班级名称增加"考生号处理"vba模块

VBA调用DOS程序两种方法

Set wsh = VBA.CreateObject("WScript.Shell") 'wsh.Run strExePath & " g", vbHide, True Set wshOut = wsh.exec(strExePath & " g").StdOut While Not wshOut.AtEndOfStream sLine = wshOut.ReadLine Debug.Print sLine Wend run可以隐

Excel处理数据用到的一些公式和VBA脚本

最近工作中用到EXCEL统计处理一些数据,正好之前有自学了一段时间的EXCEL,这次正好用上.为了加深印象,以后方便翻阅,就记录下来.这篇会不断补充. IF 多条件判断返回值 IF(logical_test, [value_if_true], [value_if_false]) 示例: 小于500,且未到期的,返回"补款" IF(AND(A2<500,B2="未到期"),"补款","") 职称为工程师或高工的,返回&qu

vba——简单计算代码仓库

由于最近需要和数据统计打交道,因此需要将数据库中的东西导入到Excel中进行进一步处理,但是有时候大量运算一些简单的东西,用鼠标操作远不如写代码来的效率高,因此简单学习了一下vba以供提高效率,这里用博客来简单记录一下,以便自己查找. 1.计算Transmission Time 已知表中第G列为传输总大小Size,其中G列为第七列,第I列为传输速率Rate,I列为第9列,将计算结果Transmission Time填入J列(第10列) Sub getTT() Dim row&, col1&

vba——录制宏代码仓库

这篇文章用于将录制的宏记录下来,以便自己学习vba和查找以前的宏 1.插入新的空白列 这里我选择了在第 J 列上右键选择插入列,插入后,新的列成为第 J 列 如下图: Sub 插入新的一列() ' ' 插入新的一列 宏 ' 用于记录插入新一列的宏 ' ' Columns("J:J").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' 到这里插入已经结束了 ' 接下来的三行,操作

VBA练习-打开文件,添加选中项,生成新表

学习VBA,正好给财务制作一个小工具: Sub 打开人员信息表() Dim wb As Workbook, c As Integer Set wb = Workbooks.Open("C:\Users\wzn\Documents\工作簿2.xlsx", 0, True) c = wb.Worksheets.Count If c < 3 Then wb.Worksheets.Add after:=Worksheets(Worksheets.Count) wb.Worksheets(

[VBA]简单的修改Excel表

1 Option Explicit 2 Option Base 1 3 4 Sub FillSheet() 5 Dim i As Long 6 Dim j As Long 7 Dim col As Long 8 Dim row As Long 9 Dim arr() As Long 10 row = Application.InputBox(prompt:="input row:", Type:=2) 11 col = Application.InputBox(prompt:=&quo

AutoCAD VBA学习_2015.7.13晚

1.VBA工程常用到三种INSERT:窗体.模块还有一个VBA自带的ThisDrawing 窗体,很简单,学过VB都懂 模块就好像一个仓库,为窗体.ThisDrawing的代码区提供丰富的函数.过程 ThisDrawing,通过小量的实践,我把他当作VBA的入口,相当于C的main函数(如有不对请纠正),在这个代码区输入: 就可以在程序刚开始运行的时候启动窗体了. Option Explicit Sub Start() UserForm1.Show '窗体名 End Sub 2.获取鼠标在CAD