☰

如何向电子表格添加按钮并删除特定单元格的边框？

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 microsoft-excel-2007 vba spreadsheet
如何向电子表格添加按钮并删除特定单元格的边框？

我对以下 Excel 文件有两个疑问：

在此处输入图片描述

  1. 我希望此 Excel 表上有一个按钮，其名称为“另存为 PDF”。

    • 当我按下此按钮时，它应该将 Excel 表的所有数据保存为 PDF 格式，路径为 M:\formats\'文件名'

    • ‘文件名’应为单元格 H8 的值。

    • 换句话说，当我单击“另存为 PDF”按钮时，它应该以 pdf 格式将 excel 文件保存到上面提到的路径中，并使用单元格 H8 中写的名称。

    • 例如，如果在 H8 单元格中写入名称 ANDREW PITTERSON，则应使用相同的名称保存，即 ANDREW PITTERSON。

  2. 我想删除此快照中显示的行。

    • 为此，我尝试取消选中“视图”选项卡中的网格线，但问题是它隐藏了所有网格线，而我想显示其中一些网格线（单元格编号 H8 就是其中之一）。

    • 我尝试解决此问题的另一件事是将“所有边框”从主页选项卡中移除。

    • 但它产生了另一个问题，当我从纸张上打印出来时它会显示边框。

    • 我不希望打印纸张时显示任何边框。

    • 那么，有没有办法从工作表中删除仅选定的行，如图所示。

答案1

使用以下代码作为按钮

Sub Button1_Click()
ActiveSheet.ExportAsFixedFormat 
        Type:=xlTypePDF, 
        Filename:=Range("H8").Value, 
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, 
        IgnorePrintAreas:=False, 
        OpenAfterPublish:= False
End Sub

学习此操作的最简单方法是录制宏（我就是这么做的）

相关内容