Excel VBA 300语句集（四）-经管之家官网！

Excel VBA 300语句集（四）

发布：xumingming01 | 分类：ExcelVBA金融培训

WindowsAPI(200)DeclareFunctionGetWindowsDirectoryALib“kernel32”_(ByVallpBufferAsString,ByValnSizeAsLong)AsLong‘API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一 ...

坛友互助群

扫码加入各岗位、行业、专业交流群

Windows API
(200) Declare Function GetWindowsDirectoryA Lib “kernel32” _
(ByVal lpBuffer As String,ByVal nSize As Long) As Long ‘API 函数声明。返回安装Windows所在
的目录名称，调用该函数后，安装 Windows 的目录名称将在第一个参数 lpBuffer 中，该目录名
称的字符串长度包含在第二个参数nSize中
(201) Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add ‘创建 Excel工作簿
(202) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word 应用程序
(203) Application.TemplatesPath ‘获取工作簿模板的位置
(204) Application.Calculation = xlCalculationManual ‘设置工作簿手动计算
Application.Calculation = xlCalculationAutomatic ‘工作簿自动计算
(205) Worksheets(1).EnableCalculation = False ‘不对第一张工作表自动进行重算
(206) Application.CalculateFull '重新计算所有打开的工作簿中的数据
(207) Application.RecentFiles.Maximum = 5 '将最近使用的文档列表数设为5
(208) Application.RecentFiles(4).Open '打开最近打开的文档中的第4 个文档
(209) Application.OnTime DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo” ‘在 2006年6月 6
日的16:16:16开始运行 BaoPo过程
(210) Application.Speech.Speak ("Hello" & Application.UserName) ‘播放声音，并使用用户的姓名问
候用户
(211) MsgBox Application.PathSeparator '获取"\"号
(212) MsgBox Application.International(xlCountrySetting) '返回应用程序当前所在国家的设置信息
(213) Application.AutoCorrect.AddReplacement "葛洲坝", "三峡" '自动将在工作表中进行输入的"
葛洲坝"更正为"三峡" (214) Beep '让计算机发出声音
(215) Err.Number ‘返回错误代码
(216) MsgBox IMEStatus '获取输入法状态
(217) Date = #6/6/2006#
Time = #6:16:16 AM# '将系统时间更改为 2006 年6月6 日上午6时 16分16 秒
(218) Application.RollZoom = Not Application.RollZoom '切换是否能利用鼠标中间的滑轮放大/缩
小工作表
(219) Application.ShowWindowsInTaskba = True ‘显示任务栏中的窗口,即各工作簿占用各自的窗
口
(220) Application.DisplayScrollBars = True ‘显示窗口上的滚动条
(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切换是否显示编辑栏
(222) Application.Dialogs(xlDialogPrint).Show ‘显示打印内容对话框
(223) Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右
(224) Application.FindFile '显示打开对话框
(225) ThisWorkbook.FollowHyperlink http://fanjy.blog.excelhome.net ‘打开超链接文档
(226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '将当前工作簿设置为只读
(227) ActiveWorkbook.AddToFavorites '将当前工作簿添加到收藏夹文件夹中
(228) ActiveSheet.CheckSpelling '在当前工作表中执行"拼写检查"
(229) ActiveSheet.Protect userinterfaceonly:=True ‘保护当前工作表
(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ‘在当前工作表的左侧页
眉处打印出工作簿的完整路径和文件名
(231) Worksheets("Sheet1").Range("A1:G37").Locked = False
Worksheets("Sheet1").Protect
'解除对工作表 Sheet1 中A1:G37区域单元格的锁定
'以便当该工作表受保护时也可对这些单元格进行修改
(232) Worksheets("Sheet1").PrintPreview '显示工作表 sheet1 的打印预览窗口
(233) ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在 Excel的“打印预览”窗口中
的“设置”和“页边距”按钮
(234) ActiveSheet.PageSetup.PrintGridlines = True '在打印预览中显示网格线
ActiveSheet.PageSetup.PrintHeadings = True '在打印预览中显示行列编号
(235) ActiveSheet.ShowDataForm '开启数据记录单
(236) Worksheets("Sheet1").Columns("A").Replace _
What:="SIN", Replacement:="COS", _
SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中 A列的 SIN 替换为COS
(237) Rows(2).Delete '删除当前工作表中的第2 行
Columns(2).Delete '删除当前工作表中的第2 列
(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在当前单元格左侧
插入一条垂直分页符
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在当前单元格上方插入
一条垂直分页符
(239) ActiveWindow.ScrollRow = 14 '将当前工作表窗口滚动到第 14 行
ActiveWindow.ScrollColumn = 13 '将当前工作表窗口滚动到第 13列
(240) ActiveWindow.Close '关闭当前窗口
(241) ActiveWindow.Panes.Count '获取当前窗口中的窗格数 (242) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '将A2至D2的单元格名
称设定为 A1到 D1 单元格的内容
(243) Application.AddCustomList listarray:=Range("A1:A8") '自定义当前工作表中单元格 A1至
A8 中的内容为自动填充序列
(244) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap '将单元格 A1 至
B2 的内容复制成屏幕快照
(245) Selection.Hyperlinks.Delete ‘删除所选区域的所有链接
Columns(1).Hyperlinks.Delete ‘删除第1 列中所有的链接
Rows(1).Hyperlinks.Delete ‘删除第1 行中所有的链接
Range("A1:Z30").Hyperlinks.Delete ‘删除指定范围所有的链接
(246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我，就会开启Windows计算器
" , TextToDisplay:="Windows 计算器" '在活动单元格中设置开启 Windows计算器链接
(247) ActiveCell.Value = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus) '开启
Windows计算器
(248) ActiveSheet.Rows(1).AutoFilter ‘打开自动筛选。若再运行一次，则关闭自动筛选
(249) Selection.Autofilter ‘开启/关闭所选区域的自动筛选
(250) ActiveSheet.ShowAllData ‘关闭自动筛选

扫码或添加微信号：坛友素质互助

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-1069291-1-1.html

上一篇 | Excel VBA 300语句集（三）

下一篇 | Excel VBA 300语句集（五）

ExcelVBA金融培训精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：Excel VBA 300语句集（四）

本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_excelvbajinrongpeixun_1069291_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

Excel VBA 300语句集（四）-经管之家官网！

ExcelVBA金融培训