(LangQueS)259个常用宏.xlsVIP

文本框 代码 目录 file_name1 filename [ filename ] filename [ filename 1.00 QQ 登录 临时 [b2] = r 行高 [c2] = c 列宽 Sub 分离A列中的超链接到指定表的B和C列() 指定单元显示光标位置内容（工作表代码） 指定单元显示光标位置内容（工作表代码） Sheets(1).Range(A1) = Selection Sub 返回非空单元数量() 返回非空单元数量 返回非空单元数量 返回A列非空单元数量 返回A列非空单元数量 Sub 复制当前工作簿的报表到临时工作簿() 作者：yuanzhuping版主 Dim x As Integer For x = 1 To Workbooks.Count ActiveWorkbook.SaveCopyAs Range(A1) + .xls Sub 在有密码的工作表执行代码() Sheets(1).Unprotect Password:=123 假定表名为“1”，密码为“123” 打开工作表 Range(C:C).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True 隐藏C列空值行 Sheets(1).Protect Password:=123 重新用密码保护工作表 在有密码的工作表执行代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range(A1) 2 Then CommandButton1.Visible = 1 Else CommandButton1.Visible = 0 End If End Sub Private Sub CommandButton1_Click() 循环宏 在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 高级筛选5列不重复数据至指定表 根据A1单元文本隐藏/显示按钮（控件按钮代码） If Workbooks(x).Name = 临时.xls Then For Each sht In Workbooks(x).Sheets If sht.Name = 001 Then MsgBox 已经有了001表, 64, 提示 Exit Sub Sheets(报表).Copy Before:=Workbooks(临时.xls).Sheets(1) ActiveSheet.Name = 001 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path \ 临时 ThisWorkbook.Activate Sheets(报表).Copy Before:=Workbooks(临时.xls).Sheets(1) 复制当前工作簿的报表到临时工作簿 Sub 选择到指定列的最后行() Range(C4:G [G65536].End(xlUp).Row).Select 选择到指定列的最后行 Selection.Value = Selection.Value If Worksheets(Sheet1).ProtectContents = True Then MsgBox Sheet1 保护了. 打开文件时提示指定工作表是保护状态(ThisWorkbook) .NumberFormatLocal = Selection.NumberFormatLocal .HorizontalAlignment = Selection.HorizontalAlignment .VerticalAlignment = Selection.VerticalAlignment Private Sub TextBox1_Change() If Len(Me.TextBox1.Text) 1 Then Exit Sub Me.TextBox1.Activate Private Sub Workbook_BeforePrint(Cancel As Boolean) Range(A1) = 1 + Range(A1) Worksheets(Sheet1).PrintPreview [g:g] = Sub 将A列数据随机排列到F列() 将A列数据随机排列到F列 回车光标向右 回车光标向下 mycell.FormulaR1C1 = mycell.Address Sub