excel个常用宏.xls

文本框 代码 目录 file_name1 filename [ filename ] filename [ filename 1.00 QQ 登录 临时 Set mySpk = Application.Speech myStr = Replace(Replace(Range(A1:A i).Address, $, ), :, 到) With mySpk For Each tRng In Range(A1:A i) UseRow = Cells.SpecialCells(xlCellTypeLastCell).Row SpecialCells(xlCellTypeLastCell)表示已用区域最后一个单元格 If ActiveCell.Row UseRow Then Private Sub Workbook_Open() Sheets(str1).Select Sheets(str1).Move after:=Sheets(I) I = I + 1 Sheets(aa).Select Loop 按aa工作表A列的内容排列工作表标签顺序 Sub 按aa工作表A列的内容排列工作表标签顺序() Sub 工作表标签排序() Dim i As Long, j As Long, nums As Long, msg As Long ActiveSheet.Name = nm 以A1单元文本作表名插入工作表 以A1单元内容批量插入批注 Sub 以A1单元内容批量插入批注() Dim r As Range Application.ScreenUpdating = True For Each mycell In Selection Sub 禁用保存() ????? If Asc(Mid(rg, i, 1)) 0 Then rg.Characters(i).Font.ColorIndex = 3 ? Next Sub 隐藏显示E列空值行() Selection.AutoFilter Field:=1 Application.DisplayAlerts = False 不出现对话框，按对话框默认选择 Range(a3:a4).Merge 拷贝A1公式和格式到A2 宏管理 Dim raddress As String, taddress As String raddress = Selection.Address .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ .IgnoreBlank = False .InCellDropdown = False .InputTitle = .ErrorTitle = .InputMessage = .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True xlBetween, Formula1:=bigsun010@ .ErrorMessage = 要奋斗就会有牺牲，死人的事是经常发生的。 Sub 加数据有效限制() Application.CommandBars(Web).Visible = False Application.CommandBars(我的工具).Visible = False Sub 重排窗口() 重排窗口 Sub 选择打开文件单元() Dim a a = ActiveCell.Value Range(a).Worksheet.Activate Range(a).Select Application.MoveAfterReturnDirection = xlToRight Application.MoveAfterReturnDirection = xlDown Sub 录入光标向右() Sub 录入光标向下() .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .ErrorMessage = Sub 取消数据有效限制() Sub 取消选定锁定单元() k = 1 Column