Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 在所选单元格上应用Outisde边框_Excel_Vba - Fatal编程技术网

Excel 在所选单元格上应用Outisde边框

Excel 在所选单元格上应用Outisde边框,excel,vba,Excel,Vba,我想知道如何应用外部边界(范围A1:M4),而不在代码中加入“工作表”或“工作表”。 比如说 With Worksheets("Sheet1").Range("B8:I10").BorderAround [INDENT].LineStyle = xlContinuous[/INDENT] [INDENT].Weight = xlThick[/INDENT] End With 或 这是因为工作表尚未设置(我的用户界面格式将如何设置),并且我正在使用VBA模块。您可以尝试在变量中分配新创建

我想知道如何应用外部边界(范围A1:M4),而不在代码中加入“工作表”或“工作表”。 比如说

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


这是因为工作表尚未设置(我的用户界面格式将如何设置),并且我正在使用VBA模块。您可以尝试在变量中分配新创建的工作表。这将返回工作表名称

Option Explicit
Dim MainWorkBook As Workbook
Dim MainWorksheet As Worksheet

Sub ReturnWorkSheetName()

Set MainWorkBook = ActiveWorkbook
Set MainWorksheet = MainWorkBook.ActiveSheet

MsgBox MainWorksheet.Name

End Sub

您可以尝试在变量中分配新创建的工作表。这将返回工作表名称

Option Explicit
Dim MainWorkBook As Workbook
Dim MainWorksheet As Worksheet

Sub ReturnWorkSheetName()

Set MainWorkBook = ActiveWorkbook
Set MainWorksheet = MainWorkBook.ActiveSheet

MsgBox MainWorksheet.Name

End Sub