本文主要是介绍VBA小程序--针对所有已经打开的Excel文件_格式调整_针对所有工作表_冻结首行_无视所在位置,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
VBA小程序--针对所有已经打开的Excel文件_格式调整_针对所有工作表_冻结首行_无视所在位置
Function 格式调整_针对所有工作表_冻结首行_无视所在位置()Dim sht As WorksheetFor Each sht In Worksheetssht.ActivateWith Cells.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.Font.Name = "微软雅黑".Font.Size = 10End WithCells.EntireColumn.AutoFitRange("A1").SelectWith ActiveWindow.ScrollRow = 1 '当前窗口最上面的行号,相当于移动最右侧的滚动条.SplitColumn = 0 '拆分(冻结)窗口,保留第几列.SplitRow = 1 '拆分(冻结)窗口,保留第几行End WithActiveWindow.FreezePanes = True '微软官方:这是可能的FreezePanes是真正的和拆分为假,反之亦然。如果拆分窗格被冻结,则为True。读/写布尔值。Next
End Function
Sub 格式调整_针对所有已经打开的工作簿()For Each sht1 In WorkbooksDebug.Print (sht1.Name)sht1.ActivateCall 格式调整_针对所有工作表_冻结首行_无视所在位置NextMsgBox ("兄台,已完成")
End Sub
这篇关于VBA小程序--针对所有已经打开的Excel文件_格式调整_针对所有工作表_冻结首行_无视所在位置的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!