查看: 5361|回复: 4
如何用vba设置整个工作表的字体？
阅读权限20
在线时间 小时
如何利用vba设置一个工作表的字体，如宋体，大小为10。
阅读权限50
在线时间 小时
你录制宏就知道了
在线时间 小时
头像被屏蔽
提示: 作者被禁止或删除 内容自动屏蔽
阅读权限50
在线时间 小时
Sub Macro1()
' Macro1 Macro
& & Cells.Select
& & Range(&D6&).Activate
& & With Selection.Font
& && &&&.Name = &宋体&
& && &&&.Size = 11
& && &&&.Strikethrough = False
& && &&&.Superscript = False
& && &&&.Subscript = False
& && &&&.OutlineFont = False
& && &&&.Shadow = False
& && &&&.Underline = xlUnderlineStyleNone
& && &&&.ThemeColor = xlThemeColorLight1
& && &&&.TintAndShade = 0
& && &&&.ThemeFont = xlThemeFontMinor
& & End With
& & With Selection.Font
& && &&&.Name = &宋体&
& && &&&.Size = 10
& && &&&.Strikethrough = False
& && &&&.Superscript = False
& && &&&.Subscript = False
& && &&&.OutlineFont = False
& && &&&.Shadow = False
& && &&&.Underline = xlUnderlineStyleNone
& && &&&.ThemeColor = xlThemeColorLight1
& && &&&.TintAndShade = 0
& && &&&.ThemeFont = xlThemeFontMinor
& & End With
Sub Macro1()
& & With Cells.Font
& && &&&.Name = &宋体&
& && &&&.Size = 10
& && && &&&End With
阅读权限20
在线时间 小时
:handshake :handshake :handshake 感谢，万分感谢。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师为什么那么多人学习Excel VBA宏编程，看了这些就明白了！
我的图书馆
为什么那么多人学习Excel VBA宏编程，看了这些就明白了！
excel为我们提供了很多好用的功能和函数，但还是有很多工作无法用现有功能和函数批量完成，比如多个excel表格的合并与拆分。而借助VBA语言编写的宏代码，这些看似无法批量处理或无法完成的事情，瞬间变得只是小菜一碟，也许你不懂VBA，也建议先收藏起来这些代码备用。（下面示例选自 excel VBA零基础入门班1~3期 课件和作业内容，学习班报名联系***特特微信：）（第1个示例中，演示了VBA代码的使用方法，后面示例均和第1个类似，不再具体演示）1、一次取消所有工作表的隐藏Excel可以一次隐藏多个工作表，但取消工作表隐藏却需要一个个的设置，用VBA编写一段代码，一秒完成！注意& 要想使用VBA功能，需要把代码粘贴到添加的模块中，详见动画演示& 要想保存VBA代码，需要把文件另存为xlsm格式文件，详见动画演示动画演示：代码：Sub 取消隐藏()For x = 1 To Sheets.CountIf Sheets(x).Name && '总表'
Then& &Sheets(x).Visible = -1End IfNext xEnd SubSub 隐藏()For x = 1 To Sheets.CountIf Sheets(x).Name && '总表' Then& &Sheets(x).Visible = 0End IfNext xEnd Sub2、根据模板批量生成日报表根据模板批量生成报表，没什么好方法，只能一个一个的复制然后修改名称。但这对VBA来说，只需点一下按钮即可瞬间完成。代码：Sub 生成报表()&Dim x As Integer&Dim sh As Worksheet&For x = 1 To 31& &Set sh = Sheets.Add& &With sh& & .Name = x & '日'& & Sheets('日报模板').Range('1:15').Copy sh.Range('A1')& &End With&Next xEnd Sub3、拆分工作表为单独的excel文件把当前excel文件中除第1个工作外的所有工作表，均保存为单独的excel文件到3月文件夹中。拆分演示（在拆分过程中会画面会停几秒，请耐心等待）代码：Sub 拆分表格()&Dim x As Integer&Dim wb As Workbook&Application.ScreenUpdating = False&For x = 2 To 32& &Sheets(x).Copy& &Set wb = ActiveWorkbook& &With wb& & .SaveAs ThisWorkbook.Path & '/3月/' & Sheets(x).Name & '.xlsx'& & .Close True& &End With&Next x&Application.ScreenUpdating = TrueEnd Sub4、合并多个Excel文件工作表到一个文件中3月文件夹下有N张报表，要求把该文件夹中所有excel文件的第1个工作表合并到当前的excel文件中，以单独的工作表存放。代码：Sub 合并表格()&Dim mypath As String&Dim f As String&Dim ribao As Workbook&Application.ScreenUpdating = False&mypath = ThisWorkbook.Path & '/3月/'&f = Dir(ThisWorkbook.Path & '/3月/*.xlsx')&Do& &Workbooks.Open (mypath & f)& &With ActiveWorkbook& & &.Sheets(1).Move after:=ThisWorkbook.Sheets(Sheets.Count)& &End With& &f = Dir&Loop Until Len(f) = 0&Application.ScreenUpdating = TrueEnd Sub
TA的最新馆藏
喜欢该文的人也喜欢