【文件属性】:
文件名称:Excel高亮选中行列
文件大小:187KB
文件格式:ZIP
更新时间:2021-10-21 03:05:09
Excel
Sub 复制() 'sheet1中的代码复制到激活工作表中的工作表对象中
Dim wb As Workbook, vb1, vb2, str$
Application.ScreenUpdating = False
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then wb.Close True
Next
Set wb = Workbooks.Open(ThisWorkbook.Path & "\测试.xlsm")
Set vb1 = wb.VBProject.VBComponents("Sheet1")
Set vb2 = ThisWorkbook.VBProject.VBComponents("Sheet1")
str = vb2.CodeModule.Lines(1, vb2.CodeModule.CountOfLines)
vb1.CodeModule.DeleteLines 1, vb1.CodeModule.CountOfLines
vb1.CodeModule.AddFromString str
Workbooks("动态高亮.xlsm").Close False
Application.ScreenUpdating = True
'复制完之后,关闭这个工作表
End Sub
Sub 删除() '将激活工作表中的工作表对象中的代码删除
Dim wb As Workbook
Application.ScreenUpdating = False
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then wb.Close True
Next
Set wb = Workbooks.Open(ThisWorkbook.Path & "\测试.xlsm")
With wb.VBProject.VBComponents("Sheet1")
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
End With
wb.Sheets(1).Cells.FormatConditions.Delete
Workbooks("动态高亮.xlsm").Close SaveChanges:=False
Application.ScreenUpdating = False
'删除之后,关闭这个工作表
End Sub
【文件预览】:
动态高亮.xlsm
103428c20z6c63ru1tt1o9.jpg
100328i52hp6ypy614yvuw.jpg