ActiveCell.Offset(-1?? , 0).Select'当前单元格向上移动一格 end sub
如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume next
注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加! 给当前单元格赋值：
ActiveCell.Value = \你好！！！\给特定单元格加入一段代码:
例如：在Ａ１单元格中插入\ＨＥＬＬＯ\Range(\
又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入\ＨＥＬＬＯ\
1.sheets(\range(\
或2.Sheets(\说明：
1.sheet2被打开，然后在将“HELLO\A1单元格中。 2.sheet2不被打开，将“HELLO\A1单元格中。 隐藏工作表
'隐藏SHEET1这张工作表
sheets(\'显示SHEET1这张工作表
sheets(\
有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。 Dim my As Worksheet For Each my In Worksheets my.PrintPreview Next my
得到当前单元格的地址 msgbox ActiveCell.Address 得到当前日期及时间
msgbox date & chr(13) & time 保护工作簿
ActiveSheet.Protect 取消保护工作簿 ActiveSheet.Unprotect 给当前工作簿改名为 \ActiveSheet.Name = \打开一个应用程序
AppActivate (Shell(\增加一个工作簿 Worksheets.Add 删除当前工作簿
activesheet.delete 打开一个文件
Workbooks.Open FileName:=\关闭当前工作簿 ActiveWindow.Close 当前单元格定为：左对齐
Selection.HorizontalAlignment = xlLeft 当前单元格定为：中心对齐
Selection.HorizontalAlignment = xlCenter 当前单元格定为：右对齐
Selection.HorizontalAlignment = xlRight 当前单元格为百分号风格 Selection.Style = \当前单元格字体为粗体 Selection.Font.Bold = True 当前单元格字体为斜体
Selection.Font.Italic = True 当前单元格字体为宋体20号字 With Selection.Font .Name = \宋体\.Size = 20 End With
With 语句 With 对象 .描述 End With
让你的机器发出响声 BEEP
清除单元格中所有文字、批注、格式、所有的东西！ ActiveCell.Clear
测试选择状态的单元格的行数 MsgBox Selection.Rows.Count 测试选择状态的单元格的列数 MsgBox Selection.Columns.Count 测试选择状态的单元格的地址 Selection.Address 让所有的错误不再发生 ON ERROR RESUME NEXT
产生错误时让错误转到另一个地方 on error goto l 'code l: 'code 删除一个文件
kill \定制自己的状态栏
Application.StatusBar = \现在时刻: \恢复自己的状态栏
Application.StatusBar = false 在运行期执行一个宏
Application.Run macro:=\滚动窗口到a1的位置 ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1 定制系统日期 Dim MyDate, MyDay MyDate = #12/12/69# MyDay = Day(MyDate) 今天的年限
Dim MyDate, MyYear MyDate = Date MyYear = Year(MyDate) MsgBox MyYear
产生一个inputbox<输入框>
InputBox (\得到一个文件名：
相关推荐：
loading