【分享成果，随喜正能量】一切痛苦的根源在于我执。我执的因在於：我们沉溺在贪、嗔、痴、慢、疑的泥沼里不能自拔，有时明明知道自己这样去想、这样去做不对，但仍然让自己的心像脱缰的野马一样横冲直撞，纵容自己为所欲为，造身业、造口业、造意业，让自己痛苦不堪，扰乱自心、扰乱众生心。谨记：一念放下，万般自在。。
我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：EXCEL VBA命令和语法列表之设置代码
Settings | ||
Description | 描述 | VBA Code |
Screen Updating | 屏幕更新 | Application.ScreenUpdating = False |
Application.ScreenUpdating = True | ||
Display Alerts | 显示警报 | Application.DisplayAlerts = False |
Application.DisplayAlerts = True | ||
Events | 控制 | Application.EnableEvents = False |
Application.EnableEvents = True | ||
Enable Cancel Key | 启用取消键 | Application.EnableCancelKey = xlDisabled |
Application.EnableCancelKey = xlInterrupt | ||
Text Compare – Ignore Case | 文本比较 - 忽略大小写 | Option Compare Text |
Require Variable Declaration | 需要变量声明 | Option Explicit |
Automatic Calculations | 自动计算 | Application.Calculation = xlManual |
Application.Calculation = xlAutomatic | ||
Background Error Checking | 后台错误检查 | Application.ErrorCheckingOptions.BackgroundChecking = False |
Application.ErrorCheckingOptions.BackgroundChecking = True | ||
Display Formula Bar | 显示公式栏 | Application.DisplayFormulaBar = False |
Application.DisplayFormulaBar = True | ||
Freeze Panes | 冻结窗格 | ActiveWindow.FreezePanes = False |
ActiveWindow.FreezePanes = True | ||
Full Screen View | 全屏视图 | Application.DisplayFullScreen = False |
Application.DisplayFullScreen = True | ||
PageBreak Preview | 分页预览 | ActiveWindow.View = xlPageBreakPreview |
ActiveWindow.View = xlNormalView | ||
Display Scroll Bars | 显示滚动条 | With ActiveWindow |
.DisplayHorizontalScrollBar = False | ||
.DisplayVerticalScrollBar = False | ||
End With With ActiveWindow | ||
.DisplayHorizontalScrollBar = True | ||
.DisplayVerticalScrollBar = True | ||
End With | ||
Display Status Bar | 显示状态栏 | Application.DisplayStatusBar = False |
Application.DisplayStatusBar = True | ||
Status Bar Contents | 状态栏内容 | Application.StatusBar = “I’m working Now!!!” |
Application.StatusBar = False | ||
Display Workbook Tabs | 显示工作簿选项卡 | ActiveWindow.DisplayWorkbookTabs = False |
ActiveWindow.DisplayWorkbookTabs = True | ||
UserName | 用户名 | Application.UserName = “AutomateExcel.com” |
App Caption | 应用标题 | Application.Caption = “AutomateExcel Model” |
Zoom | 放大倍数 | ActiveWindow.Zoom = 80 |
【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】千磨万击还坚劲，任尔东西南北风。生活是自己的，你选择怎样的生活，就会成就怎样的你，与其抱怨这个世界不美好，不如用自己的努力，美好和幸运自然不期而至。。
