HYPERLINK :blogsEllenarchive201106062073885 替换页眉页脚[word]Sub 替换页眉页脚()If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).CloseWith ActiveWindow.ActivePa
Slide TitleMS Office开发平台的好处完成宏录制深入浅出VBA为何要使用 VBA宏缺少伸缩的弹性记录了许多不需要的步骤记录了许多不需要的无法使用较深入的功能无法完成重复性的工作无法完成需要条件判断的工作Application……顶级对象:Application层次式对象模型结构查看结构模型图(帮助)对象浏览器自动列出成员功能对象属性对象方法事件:文档级和应用级循环结构示例:保存
Slide TitleBody TextSecond LevelThird LevelSlide TitleBody TextSecond LevelThird LevelVBA应用开发与实例李 辉 微软课程培训讲师活动行程表VBA编程环境Office对象模型VBA编程技巧与案例Office XP开发版简介MS Office开发平台的方向Office高级用户模板开发加载宏或构建小型项目企业信息部
REF _Ref297456573 h MERGEFORMAT 1VBS改写追加 文件 REF _Ref297456579 h MERGEFORMAT 2VBS读取文件 ReadAll 读取全部 REF _Ref297456585 h MERGEFORMAT 3VBS读取文件 ReadLine 读取一行 REF _Ref297456590 h MERGE
VB6如何在托盘中写入应用程序图标 1新建立一个VB6工程将Form1的ShowInTaskBar属性设置为False 2菜单:工程--添加模块 按打开这样就添加了一个新模块名为Module1保存为Module1.bas 3在Module1中写下如下代码: Option ExplicitPublic Const MAX_TOOLTIP As Integer = 64Public Con
1 类动态数组控件 2007VBA技巧快盘Mytb更新类类动态数组控件.xlsm2013-6-16类模块代码:Public WithEvents frm As WithEvents myText As Index As IntegerPrivate Sub myText_Change()Index = Mid( 8)If (Textbox Index) <> Then = 控件事件
1特殊条件编号2012-9-3=viewthreadtid=914702page=1pid6271907Sub lqxs()Dim Arr i j jj n aa bb y x Dim d As New Dictionary k t d1 As New Dictionary [e31:e5000].ClearContentsArr = [a1].CurrentRegionFor i = 31 To
1排课表显示(字典套字典)求助课表中如何自动合并单元格.xls2014-4-20Sub lqxs()Dim Arr i j b xq x y aa xinq colDim d k t kk tt jj q c m m1 bj = FalseSet d = CreateObject()xinq = Array(星期一 星期二 星期三 星期四 星期五)col = Array(12 34 56
#
实验1:VBA工具应用销售统计分
违法有害信息,请在下方选择原因提交举报