在开发VBA程序中,我们可能会需要用代码处理VBA工程,包括启用VBA工程访问,启用所有宏,动态插入代码,动态删除代码,动态添加引用和自动创建模块等等,本次的分享内容便以这些为主. 启用VBA工程访问 Dim oWshell As Object Set oWshell = CreateObject("WScript.Shell") oWshell.RegWrite , "REG_DWORD"'将第二个参数改为0就是关闭 启用所有宏 Dim WScr As Objec…

今天下班前分享一下之前在网上搜到的两段好用的VBA代码,貌似都来自国外,觉得挺好,模仿不来. 第一段的功能是修改VBA控件中的文本框控件,使其右键可以选择粘贴.复制.剪切等: Option Explicit ' Required API declarations Private Declare Function CreatePopupMenu Lib "user32" () As Long Private Declare Function InsertMenuItem Lib &quo…

VBA设置/取消工作簿共享是很常用的一个功能,那么如何用代码实现呢? 设置共享 Then MsgBox "文件没有保存" Exit Sub End If Application.DisplayAlerts = False ActiveWorkbook.ProtectSharing Filename:=ActiveWorkbook.Name Application.DisplayAlerts = True 取消共享 On Error Resume Next Application.Dis…

VBA开发中经常需要提示消息框,如果不关闭程序就会暂时中断,这里分享下VBA如何实现消息框的自动关闭,总共有三种方法: 第一种方法 Public Declare Function MsgBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long…

问题描述 用户输入圆的半径,计算并显示圆的面积 代码分享 /** * @author hpu-gs * 2015/11/25 */ public class Circle { public static Double r; public static Double m; /** * 计算圆的面积 */ public static void main(String[] args) { System.out.print("请输入圆的半径:"); Scanner in = new Scann…

问题描述 为某音像店开发一个迷你DVD管理器,最多可存6张DVD,实现碟片的管理. 管理器具备的功能主要有: 1.查看DVD信息. 菜单选择查看功能,展示DVD的信息. 2.新增DVD信息 选择新增功能,根据提示输入新增的DVD名称,添加到库存,如果DVD货架已满,即达到6张,则提示增加失败. 3.删除DVD信息 执行删除命令,输入要删除的DVD的名称,如果DVD为借出状态,不允许删除.如果没有该DVD信息,则提示“没有找到匹配信息”: 4.借出DVD 如果该DVD已经被借出,则系统提示“XX已…

问题描述: 从键盘读入学生成绩,找出最高分,并输出学生成绩等级. 成绩>=最高分-10  等级为’A’   成绩>=最高分-20  等级为’B’ 成绩>=最高分-30  等级为’C’   其余等级为’D’ 提示:先读入学生人数,根据人数创建int数组,存放学生成绩. 请输入学生人数:5 请输入5个成绩 56 74 89 41 89 最高分是:89 student 0 score is 56  grade is D student 1 score is 74  grade is B stu…

这些天将原来在网上找的jQuery插件进行了下整理,特此将代码分享出来给大家. 见下图结构. 对目录结构进行了分类.这里是插件列表. 这里总共收集了20来个插件.还有下面未进行划分的. 下面是DEMO使用示例. 下面是上次的一个示例. 编写Javascript类库(jQuery版) - 进阶者系列 - 学习者系列文章 主要收集了这些个大概能使用到的插件. 下面提供下载地址: http://files.cnblogs.com/lzhdim/JavascriptSLN.rar Ps.今天是周六,天气…

现在应该讲主控制类了,为了不把系统弄得太复杂,所以就用一个类作为主要控制类(服务类),作为前端.后端.业务逻辑的控制类. WorkflowService类的类图如下: 该类的构造函数: public WorkflowService(IWorkflowDB workflowDb, IWorkflowMethods workflowMethods) { _iWorkflowDb = workflowDb; _iWorkflowMethods = workflowMethods; } 通过简单工厂方法…

数据存储引擎是本项目里比较有特色的模块. 特色一,使用接口来对应不同的数据库.数据库可以是Oracle.Sqlserver.MogoDB.甚至是XML文件.采用接口进行对应: public interface IWorkflowDB { List<Flow> GetFlows(); bool SaveFlow(Flow flow); bool DeleteFlow(Guid flowId); FlowInstance GetFlowInstanceByInstanceId(Guid flowI…