6.显示所有隐藏的行和列下面的代码,可以取消所有隐藏的行和列。 如果你从别人那里获得一个Excel文件,并希望没有隐藏的行与列,那么下面的代码对你非常有用。 Sub UnhideRowsColumns() Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub 7.取消所有的合并单元格把多个单元格合并成一个单元格时常用的做法: 如果你的工作表里面有合并的单元格,使用下面代码可以一次性取消所有合并的单元格。 Sub UnmergeAllCells() ActiveSheet.Cells.UnMerge End Sub 8.保存带有时间戳的工作簿很多时候,您可能需要创建工作的各个版本。 一个好的做法,就是在工作薄名称上,加上时间戳。 使用时间戳将允许您返回到某个文件,查看进行了哪些更改或使用了哪些数据。 下面的代码会自动保存工作簿在指定的文件夹中,并添加一个时间戳时保存。 Sub SaveWorkbookWithTimeStamp() Dim timestamp As String timestamp = Format(Date, 'dd-mm-yyyy') & '_' & Format(Time, 'hh-ss') ThisWorkbook.SaveAs 'C:UsersUsernameDesktopWorkbookName' & timestamp End Sub C:UsersUsernameDesktopWorkbookName 你可以制定文件位置和文件名。 'dd-mm-yyyy'指的的日期的格式。 'hh-ss'指的是时间的格式 9.将工作表另存为一个PDF文件如果您使用不同年份或部门或产品的数据,可能需要将不同的工作表保存为PDF文件。 如果手动完成,这可能是一个耗时的过程,但vba确可以加快速度。 下面是一个将每个工作表保存为单独PDF的VBA代码 Sub SaveWorkshetAsPDF()Dim ws As Worksheet For Each ws In Worksheets ws.ExportAsFixedFormat xlTypePDF, 'C:UsersSumitDesktopTest' & ws.Name & '.pdf' Next ws End Sub 在上面的代码中,我指定了要保存pdf的文件夹位置的地址。 请注意,此代码仅适用于工作表。 10.将工作簿另存为单独的PDF文件下面是将整个工作簿保存为指定文件夹中的PDF格式的代码 Sub SaveWorkshetAsPDF() ThisWorkbook.ExportAsFixedFormat xlTypePDF, 'C:UsersSumitDesktopTest' & ThisWorkbook.Name & '.pdf' End Sub 你可以修改储存文件的文件件。 注意:9~10代码保存为PDF文件,需要在工作表里面设置好打印的区域。如果有空的工作表,那么程序会报错。 私信 SQL 可以获取SQL代码的Excel文件私信 视频 可以获取54集VBA入门视频私信 VBA或 vba 可以获取文章中含VBA代码的Excel文件 |
|