欢迎来到天天文库
浏览记录
ID:43280657
大小:35.51 KB
页数:4页
时间:2019-09-29
《第三章 常用VBA编程代码语句》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第三章常用VBA编程代码语句我们的主题是利用电子表格这一平台,以实现复杂专业计算自动化为目的,所以,最主要的是了解和掌握单元格的公式输入、复制、填充;数据的输入、查找、引用;以及单元格的格式、工作表界面的一些设置等的编程。其它,如:文件操作,编辑操作,界面设定,单元格的美化……等,也可以利用电子表格自身的强大功能进行常规操作来解决。要实现前面说的这些功能和操作,自然要掌握这些功能和操作的代码是怎么写的3.1工作表单元格的编程代码工作表单元格是存储各类计算数据,公式,数据引用的基本单位,掌握工作表单元格的基本编程代码,是实现复杂专业计算自动化的基础。一,单元格基本编程代
2、码Subdygjbbcdm()‘1.输入计算数据的编程代码:‘(1)用快捷标记"[]"输入单元格、单元格区域数据。[A1]=100'在A1单元格输入100。[A2:A4]=10'在A2:A4单元格输入10。’(2)用Range("")输入单元格、单元格区域数据。Range("B1")=200'在B1单元格输入200。Range("C1:C3")=300'在C1:C3单元格输入300。’(3)用单元格编号Cells(Row,Column),Row为单元格行号,Column为列号。Cells(1,4)=400'在D1单元格输入400。Range(Cells(1,5),Ce
3、lls(5,5))=50'在E1:E5单元格输入50。’(4)用ActiveCell.FormulaR1C1公式输入数据Range("B1").SelectActiveCell.FormulaR1C1="100”'在B1单元格输入100‘2.输入公式的编程代码:工作表G6输入公式=sjx(RC[-4],RC[-2],RC[-1])+R5C7Range("G6").SelectActiveCell.FormulaR1C1="=sjx(RC[-4],RC[-2],RC[-1])+R5C7"‘3.输入公式中引用不同工作表的单元格数据,须在每项引用前加“工作表名!”(不含“”
4、)[A1]=Sheet4.[A1]'把Sheet4A1单元格的数据,读到当前表A1单元格Range("E5").SelectActiveCell.FormulaR1C1=_"=sjjzx(计算数据!RC[-3],计算数据!R[1]C[-3],计算数据!R[2]C[-3],计算数据!RC,计算数据!‘4.单元格公式自动填充代码:2.中D6单元格公式自动填充到D50Range("D6").SelectSelection.AutoFillDestination:=Range("D6:D50"),Type:=xlFillDefault‘5.多列单元格公式自动填充代码:G6:I
5、6单元格公式自动填充到G6:I50Range("G6:I6").SelectSelection.AutoFillDestination:=Range("G6:I50"),Type:=xlFillDefaultEndSub重要提示:输入公式代码项"=sjx(RC[-4],RC[-2],RC[-1])+R5C7"的窍门―选择“工具”→“选项”→“常规”→勾选“R1C1引用式样”,“确定”退出,然后在需要输入公式的单元格按常规操作输入公式,再把编辑栏中的公式复制、粘贴到VB编辑器代码窗口相应的公式代码项"=……"中。这样作,可保公式编程代码无误。二,单元格格式编程代码我们的
6、主题是进行计算,对单元格格式的设定,一般采用常规操作来实现,特殊需要也可采用编写代码来实现。下面是单元格格式的基本代码:SubMacro2()Range("A2:C2").SelectSelection.NumberFormatLocal="0.00;[红色]0.00" '数值格式:小数2位;负数红色;千位分隔符无WithSelection.HorizontalAlignment=xlCenter'水平对齐居中.VerticalAlignment=xlCenter'垂直对齐居中.WrapText=True'自动换行.Orientation=90'方向.90度.AddI
7、ndent=False'分散对齐.假.IndentLevel=0'缩进.0.ShrinkToFit=False'缩小填充.无.ReadingOrder=xlLTR'文字.总是左到右.MergeCells=True'合并单元格.真EndWithWithSelection.Font'字体.Name="华文新魏"'字体名.华文新魏.FontStyle="粗体"'字形.粗体.Size=12'字号.12.Strikethrough=False'删除线.无.Superscript=False'上标.无.Subscript=False'下标.无.OutlineFo
此文档下载收益归作者所有