在选定的单元格应用Outisde边框

我想知道如何在没有放置有“工作表”或“工作表”的代码的情况下应用外部边界（范围A1：M4）。 例如

With Worksheets("Sheet1").Range("B8:I10").BorderAround [INDENT].LineStyle = xlContinuous[/INDENT] [INDENT].Weight = xlThick[/INDENT] End With 

要么

 With Sheet1.Range("B8:I10").Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous End With 

这是因为工作表尚未设置（至于如何我的用户界面格式），我正在使用VBA模块

Answer 1

您可以尝试将新创build的工作表分配给一个variables。 这将返回工作表名称。

 Option Explicit Dim MainWorkBook As Workbook Dim MainWorksheet As Worksheet Sub ReturnWorkSheetName() Set MainWorkBook = ActiveWorkbook Set MainWorksheet = MainWorkBook.ActiveSheet MsgBox MainWorksheet.Name End Sub