怎么在excel表格用编程语句

1.excel怎么编程

以下将要录制的宏非常简单，只是改变单元格颜色。

请完成如下步骤： 1）打开新工作簿，确认其他工作簿已经关闭。 2）选择A1单元格。

调出“常用”工具栏。 3）选择“工具”—“宏”—“录制新宏”。

4）输入“改变颜色”作为宏名替换默认宏名，单击确定，注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。

★ 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。

宏名中不允许出现空格。通常用下划线代表空格。

5）选择“格式”的“单元格”，选择“图案”选项中的红色，单击“确定”。 6）单击“停止录制”工具栏按钮，结束宏录制过程。

※ 如果“停止录制”工具栏开始并未出现，请选择“工具”—“宏”—“停止录制”。 录制完一个宏后就可以执行它了。

1.4 执行宏 当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便，还能使你获得一些使用EXCEL标准命令所无法实现的功能。

而且，一旦熟悉了EXCEL的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行： 1）选择任何一个单元格，比如A3。

2）选择“工具”—“宏”—“宏”，显示“宏”对话框。 3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。

试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。 1.5 查看录制的代码 到底是什么在控制EXCEL的运行呢？你可能有些疑惑.好，让我们看看VBA的语句吧. 1）选择“工具”—“宏”—“宏”，显示“宏”对话框。

2）单击列表中的“改变颜色”，选择“编辑”按钮。 此时，会打开VBA的编辑器窗口（VBE）。

关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同） Sub 改变颜色（） ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。

学习VBA或编程语言在某种程度上比较像在学习一种外语。 Sub 改变颜色（）：这是宏的名称。

中间的以“ '”开头的五行称为“注释”，它在录制宏时自动产生。 以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部分。

注意单词“selection”，它代表“突出显示的区域”（即：选定区域）。With Selection.Interior ：它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。

其中： .ColorIndex = 3： 将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词，它是With结构的一部分。

另外：红色被数字化为3.（红色警戒是否可称作：3号警戒，嗯？）有兴趣的话，你将3改为其他数字试试看。 .Pattern = xlSolid：设置该区域的内部图案。

由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来（因为在“图案”选项中有此一项，只是你为曾设置而已）。xlSolid表示纯色。

.PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。 End With：结束With 语句。

End Sub：整个宏的结束语 1.6 编辑录制的代码 在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同： Sub 改变颜色（） ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 End With End Sub 完成后，在工作表中试验一下。

你会发现结果和修改前的状况一样。在With 语句前加入一行： Range("A5").Select 试着运行该宏，则无论开始选择哪个单元格，宏运行结果都是使A5单元格变红. 现在可以看到，编辑录制的宏同样非常简单。

需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。

二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。

比如：加入判断或循环等无法录制的语句。

2.EXCEL编程语句有那些啊!

如何操作Excel文件 全面控制 Excel 首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application1） 显示当前窗口：ExcelID.Visible := True;2） 更改 Excel 标题栏：ExcelID.Caption ：= '应用程序调用 Microsoft Excel';3） 添加新工作簿：ExcelID.WorkBooks.Add;4） 打开已存在的工作簿：ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );5） 设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate； 或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;6） 给单元格赋值：ExcelID.Cells[1,4].Value ：= '第一行第四列'；7） 设置指定列的宽度（单位：字符个数），以第一列为例：ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;8） 设置指定行的高度（单位：磅）（1磅=0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米9） 在第8行之前插入分页符：ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;10） 在第8列之前删除分页符：ExcelID.ActiveSheet.Columns[4].PageBreak := 0;11） 指定边框线宽度：ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;1-左 2-右 3-顶 4-底 5-斜（ \ ） 6-斜（ / ）12） 清除第一行第四列单元格公式：ExcelID.ActiveSheet.Cells[1,4].ClearContents;13） 设置第一行字体属性：ExcelID.ActiveSheet.Rows[1].Font.Name ：= '隶书'； ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelID.ActiveSheet.Rows[1].Font.Bold := True; ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;14） 进行页面设置：a.页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader ：= '报表演示'； b.页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter ：= '第&P页'； c.页眉到顶端边距2cm:ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm:ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm:ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底边距2cm:ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm:ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右边距2cm:ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.页面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线：ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;15） 拷贝操作：a.拷贝整个工作表：ExcelID.ActiveSheet.Used.Range.Copy; b.拷贝指定区域：ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy; c.从A1位置开始粘贴：ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial; d.从文件尾部开始粘贴：ExcelID.ActiveSheet.Range.PasteSpecial;16） 插入一行或一列：a. ExcelID.ActiveSheet.Rows[2].Insert; b. ExcelID.ActiveSheet.Columns[1].Insert;17） 删除一行或一列：a. ExcelID.ActiveSheet.Rows[2].Delete; b. ExcelID.ActiveSheet.Columns[1].Delete;18） 打印预览工作表：ExcelID.ActiveSheet.PrintPreview;19） 打印输出工作表：ExcelID.ActiveSheet.PrintOut;20） 工作表保存：If not ExcelID.ActiveWorkBook.Saved then ExcelID.ActiveSheet.PrintPreview End if21） 工作表另存为：ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );22） 放弃存盘：ExcelID.ActiveWorkBook.Saved := True;23） 关闭工作簿：ExcelID.WorkBooks.Close;24） 退出 Excel:ExcelID.Quit;25） 设置工作表密码：ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True26) EXCEL的显示方式为最大化 ExcelID.Application.WindowState = xlMaximized 27） 工作薄显示方式为最大化 ExcelID.ActiveWindow.WindowState = xlMaximized 28） 设置打开默认工作薄数量 ExcelID.SheetsInNewWorkbook = 329） '关闭时是否提示保存（true 保存；false 不保存） ExcelID.DisplayAlerts = False 30） 设置拆分窗口，及固定行位置 ExcelID.ActiveWindow.SplitRow = 1 ExcelID.ActiveWindow.FreezePanes = True31） 设置打印时固定打印内容 ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" 32） 设置打印标题 ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = "" 33） 设置显示方式（分页方式显示） ExcelID.ActiveWindow.View = xlPageBreakPreview 34） 设置显示比例 ExcelID.ActiveWindow.Zoom = 100 35） 让Excel 响应 DDE 请求 Ex.Application.IgnoreRemoteRequests = False。

3.EXCEL编程语句有那些啊!

如何操作Excel文件全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1） 显示当前窗口：ExcelID.Visible := True;2） 更改 Excel 标题栏：ExcelID.Caption ：= '应用程序调用 Microsoft Excel';3） 添加新工作簿：ExcelID.WorkBooks.Add;4） 打开已存在的工作簿：ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );5） 设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate； 或 ExcelID.WorkSheets[ 'Sheet2' ].Activate;6） 给单元格赋值：ExcelID.Cells[1,4].Value ：= '第一行第四列'；7） 设置指定列的宽度（单位：字符个数），以第一列为例：ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;8） 设置指定行的高度（单位：磅）（1磅=0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米9） 在第8行之前插入分页符：ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;10） 在第8列之前删除分页符：ExcelID.ActiveSheet.Columns[4].PageBreak := 0;11） 指定边框线宽度：ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;1-左 2-右 3-顶 4-底 5-斜（ \ ） 6-斜（ / ）12） 清除第一行第四列单元格公式：ExcelID.ActiveSheet.Cells[1,4].ClearContents;13） 设置第一行字体属性：ExcelID.ActiveSheet.Rows[1].Font.Name ：= '隶书'；ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;ExcelID.ActiveSheet.Rows[1].Font.Bold := True;ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;14） 进行页面设置：a.页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader ：= '报表演示'；b.页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter ：= '第&P页'；c.页眉到顶端边距2cm:ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm:ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm:ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm:ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm:ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm:ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.页面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线：ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;15） 拷贝操作：a.拷贝整个工作表：ExcelID.ActiveSheet.Used.Range.Copy;b.拷贝指定区域：ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;c.从A1位置开始粘贴：ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：ExcelID.ActiveSheet.Range.PasteSpecial;16） 插入一行或一列：a. ExcelID.ActiveSheet.Rows[2].Insert;b. ExcelID.ActiveSheet.Columns[1].Insert;17） 删除一行或一列：a. ExcelID.ActiveSheet.Rows[2].Delete;b. ExcelID.ActiveSheet.Columns[1].Delete;18） 打印预览工作表：ExcelID.ActiveSheet.PrintPreview;19） 打印输出工作表：ExcelID.ActiveSheet.PrintOut;20） 工作表保存：If not ExcelID.ActiveWorkBook.Saved thenExcelID.ActiveSheet.PrintPreviewEnd if21） 工作表另存为：ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );22） 放弃存盘：ExcelID.ActiveWorkBook.Saved := True;23） 关闭工作簿：ExcelID.WorkBooks.Close;24） 退出 Excel:ExcelID.Quit;25） 设置工作表密码：ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True26) EXCEL的显示方式为最大化ExcelID.Application.WindowState = xlMaximized 27） 工作薄显示方式为最大化ExcelID.ActiveWindow.WindowState = xlMaximized 28） 设置打开默认工作薄数量ExcelID.SheetsInNewWorkbook = 329） '关闭时是否提示保存（true 保存；false 不保存）ExcelID.DisplayAlerts = False 30） 设置拆分窗口，及固定行位置ExcelID.ActiveWindow.SplitRow = 1ExcelID.ActiveWindow.FreezePanes = True31） 设置打印时固定打印内容ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" 32） 设置打印标题ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = "" 33） 设置显示方式（分页方式显示）ExcelID.ActiveWindow.View = xlPageBreakPreview 34） 设置显示比例ExcelID.ActiveWindow.Zoom = 100 35） 让Excel 响应 DDE 请求Ex.Application.IgnoreRemoteRequests = False。