vba，设置，excel，wps ，页面设置例子

Sub yemian()
‘按钮1点击触发 执行下面的命令
With Sheets(1).PageSetup
‘对像是表格1的页面设置的函数PageSetup，下面是函数的属性修改前面加.

.Orientation = xlLandscape
‘= xlLandscape ‘设置模向打印模式
‘= xlPortrait ‘设置纵向打印模式

.TopMargin = Application.CentimetersToPoints(0.5)
‘=上边距
.BottomMargin = Application.CentimetersToPoints(0.5)
‘=下边距

.LeftMargin = Application.CentimetersToPoints(0.5)
‘=左边距
.RightMargin = Application.CentimetersToPoints(0.5)
‘=右边距

.HeaderMargin = Application.CentimetersToPoints(0.3)
‘=页头边距
.FooterMargin = Application.CentimetersToPoints(0.3)
‘=页脚边距

.LeftHeader = "To: 人力资源部 Date:" & Date
‘=左页眉
.CenterHeader = "&B &22 考勤表格通知单" & vbCrLf & "Requisition"
‘=中页眉
.RightHeader = "安格尔门窗有限公司 2017-11-03"
‘=右页眉
.LeftFooter = ""
‘=左页脚

.CenterFooter = ""
‘=中页脚
.RightFooter = ""

‘=右页脚

End With
End Sub

时间： 2024-10-17 14:59:01

vba，设置，excel，wps ，页面设置例子的相关文章

利用VBA遍历Excel所有sheet的例子

下面是利用VBA遍历Excel sheet的例子,可以用于Excel的批量处理. Sub Insert_CodeString() Dim fs, ft As Object Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim Sql As String Sql = "truncate table code_string;" & Chr(10)

VBA在Excel中的应用（三）

目录  Chart Export Chart Format Chart Lengend  Chart Protect  Chart Title  Chart Chart Export 1. 将Excel中的图表导出成gif格式的图片保存到硬盘上 Sub ExportChart()     Dim myChart As Chart     Set myChart = ActiveChart     myChart.Export Filename:="C:\Chart.gif", Filt

【VBA研究】用VBA取得EXCEL随意列有效行数

作者:iamlaosong 用VBA对Excel文件进行处理的时候,keyword段的列号编程时往往是不知道的.须要通过參数设定才干知道,因此.我们编程的时候,就不能用这种语句取有效行数: lineno = [B65536].End(xlUp).Row          '从下至上找有效行数 上述语句中的列名"B"假设是变量.能够用字符串连接的方式实现,即: pos_ems = "C" lineno = Range(pos_ems & "65536

VBA操作Excel

几个小知识: 1.设置单元格格式: sht.Cells(4, pCol).NumberFormatLocal = "yyyy-mm-dd hh:mm:ss" 其中文本格式为:"@",常规格式为:G/通用格式 2.设置单元格为自动列宽或自动高度: #1.VBA自动生成的代码为:Columns("A:D").EntireColumn.AutoFit #2.但是字母的A到D,我们在VBA中不方便取到,一般都是数据,所以使用 Range(Cells(1,

POI 设置Excel样式（转）

POI 设置Excel样式 POI中可能会用到一些需要设置EXCEL单元格格式的操作小结: 先获取工作薄对象: HSSFWorkbook wb = new HSSFWorkbook(); HSSFSheet sheet = wb.createSheet(); HSSFCellStyle setBorder = wb.createCellStyle(); 一.设置背景色: setBorder.setFillForegroundColor((short) 13);// 设置背景色setBorder.

【VBA研究】用VBA取得EXCEL任意列有效行数

作者:iamlaosong 用VBA对Excel文件进行处理的时候,关键字段的列号编程时往往是不知道的,需要通过参数设定才能知道,因此,我们编程的时候,就不能用这样的语句取有效行数: lineno = [B65536].End(xlUp).Row 上述语句中的列名"B"如果是变量,可以用字符串连接的方式实现,即: pos_ems = "C" lineno = Range(pos_ems & "65536").End(xlUp).Row 如

时钟+温度+遥控设置，综合时钟例子

时钟+温度+遥控设置,综合时钟例子6月30日到手的二手单片机开发板,今天做个综合的时钟例子,包含代码和仿真.做个近期的学习总结. 按独立键盘K1和红外遥控的EQ为设置键.按独立键盘K2和红外遥控的VOL+为加键.按独立键盘K3和红外遥控的VOL-为减键. 手摸温度传感器,当温度超过 34℃ 的时候点亮LED灯,模拟启动的设备. 程序有很多细节没有优化,主要是学习,lcd1602显示,独立建扫描,红外遥控,ds1302时钟芯片,ds18b20温度传感器. 实时时钟综合应用,源代码和仿真下载http

转载：poi设置excel表格边框，字体等

转载自:http://z3sm2012.iteye.com/blog/1446669 POI中可能会用到一些需要设置EXCEL单元格格式的操作小结: 先获取工作薄对象: HSSFWorkbook wb = new HSSFWorkbook(); HSSFSheet sheet = wb.createSheet(); HSSFCellStyle setBorder = wb.createCellStyle(); 一.设置背景色: setBorder.setFillForegroundColor((

VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色

在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理的方式简单快捷,但是当遇到大批量数据,就会特别的费时费力,而且不讨好(容易出错).通过代码来处理是个不错的选择,excel可以通过VBA编程来处理内部数据,在打开excel页面后,可以通过“alt + F11”组合键来启动VBA编程界面,跟VB的编程界面和语法一样,需要注意的是如何调用excel的内容.VBA通过sheet, range和cells三个层次来调用excel中的制定区域

C#中的Excel操作【1】——设置Excel单元格的内容，打开Excel文件的一种方式

前言 作为项目管理大队中的一员,在公司里面接触最多的就是Excel文件了,所以一开始就想从Excel入手,学习简单的二次开发,开始自己的编程之路! 程序界面 功能说明 打开文件按钮,可以由使用者指定要操作的Excel文件,并在后面的textBox中显示出文件路径. 设置单元格按钮,可以根据程序设置Excel文件的内容. 退出程序按钮,关闭窗体. 程序源代码 1 using System; 2 using System.Collections.Generic; 3 using System.Com