摘要：
ACCESS数据库界面EXCEL的窗体界面窗体中的代码：原文件可以去下面地址下载：http://u.115.com/file/f7df8e035b 阅读全文
摘要：
代码效果如下图： 阅读全文
摘要：
OUTLOOK自带的规则虽然可以设置自动转发，但这个规则是建立在服务器上的，但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现：在本人的OUTLOOK 2007环境下测试通过，如果各位有谁实现不了，请留言。 阅读全文
摘要：
Sub test()Dim obj As ShapeFor Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then obj.ConvertToFrame End IfNextEnd Sub 阅读全文
摘要：
注意：1、没有真正意义上的不打开表，这个示例是用数据库引擎打开的，是一种隐式的打开方法。2、输出结果是按字母顺序排序的，而不是那个工作簿里面真正的表的顺序。 阅读全文
摘要：
代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-- 1 Sub CreatShortCut() 2 Dim WSHShell 3 Set WSHShell = CreateObject("WScript.Shell") 4 Dim MyShortcu... 阅读全文
摘要：
OFFICE 2007采用的Ribbon的概念，所以以前的commandbar().visible的方法在2007中是行不通的。VBA中的语句如下：[代码]VSTO中的代码如下[代码] 阅读全文
摘要：
身份证，15位或18位，除18位最后一位外，不能有英文字母，而且不能有空格和其他字符=((LEN(A2)=15)+(LEN(A2)=18))*(ISNUMBER(VALUE(A2))+(ISNUMBER(VALUE(--LEFT(A2,17)))*(RIGHT(A2,1)="X"))) 阅读全文
摘要：
今天见到EH一位会员问一个REPLACE函数的问题，代码如下：Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--1 Sub Macro2() 2 s = "---" 3 s = Replace(s, "-", "=", 2, 1) 4 Debug.Pri... 阅读全文
摘要：
今天搜索一个VSTO问题时候碰巧来到了博客园，发现这边好多技术文章，顿时也有了来此安个小家的想法。注册账号后申请BLOG，本来以为申请需要至少两三天的时间，哪知等了3个小时竟然就通过了，对博客园的效率赞一个哟。 由于本人OFFICE系列中主要研究是EXCEL，所以本博主要讨论的是EXCEL VBA/VSTO。 本人目前用的是OFFICE 2003 + OFFICE 2007 + VS 2008，有... 阅读全文