我来回答你吧。看看excle的宏代码你就有启发了,
先在EXCEL中实现你所需要的操作内容,并将这些操作步骤用宏记录录制下来。
例如:我想将A1至H4单元格合并;在合并后的单元格内输入“你好,来自网上的朋友。”;调整字体为“隶书”;调整字体号为“28”;设置单元格内的文字水平方向居中;设置单元格内的文字垂直方向居中。
实现步骤:
启动EXCEL ,在“工具”栏中将鼠标移动到“宏(M)”,启动“录制新宏”,为宏起一个名字,单击“确定”按钮。(此时应出现一个“停止录制宏窗口”)选中A1至H4区域,在区域中单击鼠标右键,单击“设置单元格格式”,单击“对齐”卡片,单击“合并单元格”,同时在此窗口中设置水平居中和垂直居中,输入文字,改变字体,改变字体号。
完成上述内容后,停止录制宏。
回到“工具”栏中将鼠标移动到“宏(M)”,启动“宏(M) ALT F8”
编辑刚才录制的宏,将所有的代码全部复制,粘贴到程序中
以下是宏的原代码,它在php中是不能直接运行的,需要进行修改。
Sub 宏1()
' 宏1 宏表
' ssss记录的宏1999-6-11
Range("A1:H4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("A1:H4").Select
ActiveCell.FormulaR1C1 = "你好,来自网上的朋友。"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 28
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("H17").Select
End Sub
单元格列宽和高度控制方法、以及其他更多的控制你都可以参照上面的方法实现。 结贴吧
先在EXCEL中实现你所需要的操作内容,并将这些操作步骤用宏记录录制下来。
例如:我想将A1至H4单元格合并;在合并后的单元格内输入“你好,来自网上的朋友。”;调整字体为“隶书”;调整字体号为“28”;设置单元格内的文字水平方向居中;设置单元格内的文字垂直方向居中。
实现步骤:
启动EXCEL ,在“工具”栏中将鼠标移动到“宏(M)”,启动“录制新宏”,为宏起一个名字,单击“确定”按钮。(此时应出现一个“停止录制宏窗口”)选中A1至H4区域,在区域中单击鼠标右键,单击“设置单元格格式”,单击“对齐”卡片,单击“合并单元格”,同时在此窗口中设置水平居中和垂直居中,输入文字,改变字体,改变字体号。
完成上述内容后,停止录制宏。
回到“工具”栏中将鼠标移动到“宏(M)”,启动“宏(M) ALT F8”
编辑刚才录制的宏,将所有的代码全部复制,粘贴到程序中
以下是宏的原代码,它在php中是不能直接运行的,需要进行修改。
Sub 宏1()
' 宏1 宏表
' ssss记录的宏1999-6-11
Range("A1:H4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("A1:H4").Select
ActiveCell.FormulaR1C1 = "你好,来自网上的朋友。"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 28
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("H17").Select
End Sub
单元格列宽和高度控制方法、以及其他更多的控制你都可以参照上面的方法实现。 结贴吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货