2个回答
展开全部
告诉你一个最简单,最好用的办法。
打开Excel,点击工具菜单下宏--录制新宏。然后把你想要用程序实现,而自己又不会编程的操作都做一遍,停止录宏。然后再点击工具菜单下宏--宏,打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然,你也可以把每一个操作分别录宏,这样看起来就更清楚了。
就这么简单,祝你好运。^_^
打开Excel,点击工具菜单下宏--录制新宏。然后把你想要用程序实现,而自己又不会编程的操作都做一遍,停止录宏。然后再点击工具菜单下宏--宏,打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然,你也可以把每一个操作分别录宏,这样看起来就更清楚了。
就这么简单,祝你好运。^_^
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim bl As Excel.Application '定义一个Excel应用
Dim wbook As Variant
Set bl = New Excel.Application '初始化
bl.Visible = True
bl.SheetsInNewWorkbook = 1 '页
Set wbook = bl.Workbooks.Add
Myexcel = True
.............................
With ActiveSheet.Cells(1, 2) '每个单元格叫
'做一个cell,cell(1,2)就是第一行第2列的单元格
.Font.Name = "宋体" '以下是设置字体什么的
.Font.Size = 20
.Font.Color = RGB(0, 0, 0)
.Font.Underline = xlUnderlineStyleDouble
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
Dim wbook As Variant
Set bl = New Excel.Application '初始化
bl.Visible = True
bl.SheetsInNewWorkbook = 1 '页
Set wbook = bl.Workbooks.Add
Myexcel = True
.............................
With ActiveSheet.Cells(1, 2) '每个单元格叫
'做一个cell,cell(1,2)就是第一行第2列的单元格
.Font.Name = "宋体" '以下是设置字体什么的
.Font.Size = 20
.Font.Color = RGB(0, 0, 0)
.Font.Underline = xlUnderlineStyleDouble
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
参考资料: http://www.bc-cn.net/bbs/Article/20059/15/27745.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询