nbspzs的专栏

【代码】vba 查看保护的worksheet。

vba除了某个sheet其他都隐藏

Sub 宏2()'' 宏2 宏'' With Application.FindFormat.Interior .PatternColorIndex = xlAutomatic .Color = 65535 '黄色 .TintAndShade = 0 .PatternTintAndShade = 0 End With Cells.Find(What:="", After:=ActiveCell, LookIn.

Sub 宏1() Sheets("无汇总").SelectEnd Sub

EXCELSub 宏1()'' 宏1 宏'' Range("A4:G15").Select Selection.Copy Rows("24:24").Select Application.CutCopyMode = False Range("A4:G19").Select Selection.Copy Rows("24:24").Select Selection.Insert Shift:=xlDown Act.

'筛选某列包含OK,不包含12的单元格Function Filter(rag As Range) With CreateObject("VBscript.regexp") rag = Worksheets("sheet1").Range("B1:B6666"). .Global = True .Pattern = "(.*[OK])(?!.*[12])" If .Execute(rag).Count = 0 Then .

VBA ArrayList - A Complete Guide - Excel Macro Mastery

Sub 宏1()'' 宏1 宏'' Sheets("Sheet1").Select Sheets("Sheet1").Copy Before:=Workbooks("B.xlsx").Sheets(1) Windows("A.xlsx").ActivateEnd Sub

Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub Else FileCopy Filename, .

Sub Maco1()For i = 1 To Sheets.CountCells(i, 1) = Sheets(i).NameNextEnd Sub