EXCEL的VBA，需要修改下

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("首页汇总").Activate
Sheets("95%酒精").UsedRange.Borders.LineStyle = xlDash
End Sub
这里Sheets("95%酒精")因为工作表越来越多，每个都得加一条胎麻烦，能不能改成在操作的工作表，保存后就做这个框架格式

举报该问题

其他回答

第1个回答 2019-07-20

用ActiveSheet替换sheets("xxx")
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("首页汇总").Activate
ActiveSheet.UsedRange.Borders.LineStyle = xlDash
End Sub本回答被网友采纳

第2个回答 2019-07-20

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
activesheet.UsedRange.Borders.LineStyle = xlDash
End Sub本回答被提问者采纳

第3个回答 2019-07-20

把Target全部换成Target(1, 1)试试如果双击合并单元格不想执行程序，在第一行（If Target.Value > "" ）前加一行 If Target.count>1 then exit sub

第4个回答 2019-07-20

把Target全部换成Target(1, 1)试试如果双击合并单元格不想执行程序，在第一行（If Target.Value > "" ）前加一行 If Target.count>1 then exit sub

相似回答

VBA修改多个Excel的内容?答：用VBA修改多个Excel指定的内容，需要先循环工作簿，再循环工作表，然后再循环单元格。关键是，看你的工作表是不是指定的工作表，你的单元格区域是否固定，如果不固定就得循环，如果固定就先指定。以下代码你可以看一下行不行。可以使用dir函数来实现工作簿的循环。其他循环则看具体情况。另外，多个工作...

excel中用VBa自动设置单元格与工作表的超链接,VBA代码需修改答：方法：打开Excel 2010，在Sheet1的单元格中输入作为超链接的文字，如图 2.点击设置好的某一单元格，选择插入-->超链接，如图 3.在出现的插入超链接弹出框中选择要链接到的工作表，本例中选择名称为Sheet2的工作表，如图 4.点击链接就可以跳转到相应工作表了，如图 ...

EXCEL的VBA公式,求修改下答：Private Sub Workbook_BeforeClose(Cancel As Boolean) If thisworkbook.Name = "采购入库.xlsm" Then Workbooks("库存盘点表.xlsm").Close else Workbooks("库存盘点表.xlsm").Close Workbooks("月结销售盈利表.xlsm").Close End IfEnd Sub ...

求帮助。excel宏程序vba运行慢。看看能不能修改下。答：换一下思路吧……那些公式你也是可以 用vba 写进去的……相信通过这样的改换一下思路估计你的程序运行速度会有很大提高 ……没仔细看你的代码，但是在你的描述中有两点疑问：1、在你的补充说明中出现了sheet2 但是在你的程序中没有见到 sheet2 所以是不是笔误应该是sheet3……2、你的...

帮忙修改下excelVBA语句做成循环答：你的宏写复杂了，不需要选中再复制，再选中再粘贴，每次复制可以简化成一步，运行速度要快好多。我写了个10次循环的，你可以根据需要自行修改 Sub aa()For c = 0 To 9 '这里是循环次数为10，可以自行修改 Sheets("资料样板 (2)").Range(Cells(1 + c * 44, 26), Cells(4 + c * ...

关于Excel自动统计有颜色填充单元格个数的VBA修改?答：Excel的VBA中，无颜色的是rgb(255，255，255)吧？如果要统计有颜色填充个数的，判断不等于这个颜色的就可以了。也建议用宏表函数get.cell 用手机看你的代码太乱，没法修改。其实很简单，做个循环，判断选区中的每个单元格的填充颜色是否等于这个rgb的颜色就行了。不等于就是有颜色，就统计上。

EXCEL VBA代码修改,现在这个只能下载网页中的2个表格,如何修改后可下载...答：修改 For tnum = 0 To 1这行为 For tnum = 0 To 21修改为2 ，则是3给表格。如果表格数不确定（2个、3个，或者多余3个），则修改为。For tnum = 0 To tbls.Length

EXCEL的VBA公式,求修改下答：既然你写了窗口事件，那么建议把之后的代码写到CommandButton1_Click事件里面去，这样比较规整一点，在点击关闭后也就不会进行计算还有你的第二个if怎么没有end if结束？

EXCEL的VBA公式,求修改下答：我建议在前面添加代码，文件不存在的时候就立即打开，代码添加在下面一行之后：If Target.Column <> 17 Or Target.Count > 1 Then Exit Sub 添加的代码：Dim wb On Error Resume Next Set wb = Workbooks("珠宝行.xlsm") If wb Is Nothing Then MsgBox "请打开【珠宝行.xlsm】文件！

大家正在搜

EXCEL用VBA增加行 EXCEL表格VBA代码解释器 EXCEL EXCEL 宏 Excel里使用VBA ExcelVBA 什么是VBA excel VBA 提示 excel输入框VBA