将以下代码保存到.xlam或.xla(Excel97-2003)文件。
在ThisWorkBook对象中,添加Workbook_Open事件,调用启动菜单过程。
Private Sub Workbook_Open()
Call MenuSetup(True)
End Sub
'-----------------------------------------------
'在Excel...
分类:
编程语言 时间:
2014-11-18 10:22:03
阅读次数:
143
Private Sub GridToExl_Click() On Error Resume Next If DataGrid1.Columns.Count = 0 Then MsgBox "抱歉,没有数据可供打印!", vbOKOnly, "提示" ...
分类:
其他好文 时间:
2014-11-17 17:43:46
阅读次数:
210
Sub Click(Source As Button) Dim ss As New NotesSession Dim ws As New notesuiworkspace Dim CurDB As NotesDatabase Dim db As NotesDatab...
分类:
其他好文 时间:
2014-11-17 17:23:32
阅读次数:
346
1.加减法module addsub ( input [7:0] dataa, input [7:0] datab, input add_sub, // if this is 1, add; e...
分类:
其他好文 时间:
2014-11-17 12:16:52
阅读次数:
258
在执行一些计划任务时,如月度结转,遇到跨年跨月的情况,我觉得还是直接用sql语句把时间选出来更靠谱些,于是就去了解了下时间加减的函数。有两个这样的函数,一加一减DATE_ADD() 给日期添加指定的时间间隔DATE_SUB() 从日期减去指定的时间间隔再来看参数DATE_SUB(da...
分类:
数据库 时间:
2014-11-17 10:27:16
阅读次数:
286
1. Colorful Number:A numbercan be broken into different sub-sequence parts. Suppose a number 3245 can bebroken into parts like 3 2 4 5 32 24 45 324 24...
分类:
其他好文 时间:
2014-11-17 09:08:40
阅读次数:
401
最近在学习ProductsDemo.Win,有一些体会记录下来,大家分享:在Contacts模块: 在Private Sub UpdateCurrentContact()过程添加一句:InitIndex(DataHelper.Contacts)'根据Contacts数据库重建索引 在Public S...
最近在配置eclipse的svn插件,发现在部分机器上无法启用javaHL,很是奇怪,尤其是在windows环境下,网上搜索到的解决方案太复杂,居然还有说要安装slikSVN的,其实windows只需要安装相应的vc++2010可再发行组件包即可,注意要与subclipse的版本对应,即32位sub...
分类:
编程语言 时间:
2014-11-15 00:09:24
阅读次数:
226
同样代码表现的不同行为创建基类(Super)和派生类(Sub)每个类有一个字段field和一个公共方法getField,并且使用内联的方式初始化为1,方法getField返回字段field。C#和Java代码及运行结果如下C# class Super { public in...
1.Link:http://poj.org/problem?id=1860http://bailian.openjudge.cn/practice/18602.Content:Currency ExchangeTime Limit:1000MSMemory Limit:30000KTotal Sub...
分类:
其他好文 时间:
2014-11-14 19:36:55
阅读次数:
244