- 博客(64)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 TreeView控件的通用代码
With TreeView1 .Style = tvwTreelinesPlusMinusPictureText .LineStyle = tvwRootLines .CheckBoxes = False With .Nodes .Clear .Add Key:="TEST", Text:="TEST"
2010-02-20 11:40:00
1304
原创 禁止工作表右击菜单
private void InternalStartup() { this.ActivateEvent += new Microsoft.Office.Interop.Excel.WorkbookEvents_ActivateEventHandler(ThisWorkbook_ActivateEvent); th
2010-02-19 13:44:00
1009
原创 NewSheet事件的疑惑与郁闷
C# 的代码using System;using System.Collections.Generic;using System.Data;using System.Linq;using System.Text;using System.Windows.Forms;using System.Xml.Linq;using Microsoft.VisualStudio.
2010-02-18 21:22:00
1155
原创 OFFICE 2007 SP2安装的问题
前几天重装系统，安装集成SP2的OFFICE 2007时候弹出错误（其他什么软件都还没装），忽略错误后安装的是没打补丁的2007，我想那就360下补丁安装呗，谁知26个补丁一个都没打上，晕死。弄了好一会，还是没弄好，卸载了，先装了VS 2008，然后再装OFFICE 2007，竟然OFFICE 2007 SP2集成版整个安装了上去，死马当活马医竟然医好了。在360上的反馈补丁问题论坛里见很
2010-02-17 16:11:00
751
1
原创 EXCEL export to TXT
Sub Export2TXT() Dim arr, i&, k%, str$ Open ThisWorkbook.Path & "/test.txt" For Output As #1 arr = [a1].CurrentRegion For i = 1 To UBound(arr) str = "" For k = 1
2010-02-10 23:11:00
1130
原创 设置EXCEL的默认打印机
系统设置了一个默认打印机，但在EXCEL有些人喜欢用其它的打印机做默认项，这个可以通过EXCEL的workbook的事件来实现Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ActivePrinter = "pdfFactory Pro 在 FPP3:" End Sub 注意： 1、括号里
2010-02-09 14:24:00
7159
1
原创 把WORD中的文本框批量转换为图文框
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
2010-02-08 15:07:00
2231
原创 列出所有最近使用的工作簿
private void button1_Click(object sender, EventArgs e){ StringBuilder sb = new StringBuilder(); for (int i = 1; i < this.Application.RecentFiles.Count; i++) { sb.Append(this.
2010-02-07 20:32:00
578
原创 列出所有工作表的名称
在sheet1里插入button1，双击输入click事件 private void button1_Click(object sender, EventArgs e) { StringBuilder sb = new StringBuilder(); foreach (Excel.Workshee
2010-02-07 20:25:00
922
原创 如何取相同项的最后一次值
示例说明：A列是料号列，只需要取重复项的最后一行数据，例如B料号是取黄色行数据。该实例可用于公司BOM表中取最近日期数据 源数据 结果 VBA代码：Sub test()Dim cn As Object, sql$Set cn = CreateObject("ADODB.Connection")Sheet2.[a1:d65536].Cl
2010-02-05 23:46:00
1822
原创 用自定义函数判断指定文件夹下是否包含子文件夹
Function CheckFolder(sPath As String) As Boolean If Right(sPath, 1) <> "/" Then sPath = sPath & "/" Dim sDir As String sDir = Dir(sPath & "*.*", vbDirectory) While sDir <> ""
2010-02-03 21:54:00
773
转载 创建指定程序的桌面快捷方式--以记事本为例
Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, MyDesktop, DesktopPath DesktopPath = WSHShell.SpecialFolders("Desktop") Set MySho
2010-02-03 21:48:00
2049
原创 删除工作簿中所有定义的名称
Sub delNames()Dim vNameFor Each vName In ThisWorkbook.Names vName.delteNextEnd Sub 或者在立即窗口输入此句代码后回车for each vName in thisworkbook.Names:vname.delete:next
2010-02-03 21:04:00
1087
原创 用VBA实现OUTLOOK接收新邮件后的自动转发
OUTLOOK自带的规则虽然可以设置自动转发，但这个规则是建立在服务器上的，但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现：Private Sub Application_NewMail() Dim myItem As Outlook.MailItem Set myItem = Application.Activ
2010-02-02 22:54:00
8417
2
原创 倒置文本的自定义函数
A1=欢迎来到CSDN论坛 一、倒置全部文本字符 Function 倒置文本(str As String)倒置文本 = StrReverse(str)End Function B1=倒置文本(A1)=坛论NDSC到来迎欢 二、倒置汉字，英文字母和数字不倒置 Function 倒置(str As String)Application
2010-02-01 22:48:00
893
原创 银行账号和身份证号的数据有效性设置
身份证，15位或18位，只能是数字，不能有空格和其他字符，除18位最后一位外，不能有英文字母=((LEN(A2)=15)+(LEN(A2)=18))*(ISNUMBER(VALUE(A2))+(ISNUMBER(VALUE(--LEFT(A2,17)))*(RIGHT(A2,1)="X"))) 银行账号，务必是901开头，011结尾，20位=(LEFT(B2,3)="901")*(
2010-02-01 15:52:00
1015
原创 如何不保护工作表，而起到禁止插入对象（插入图片按钮灰色）的目的
不用保护工作表，不用加workbook_open事件，只需设置一下thisworkbook的属性就可以达到目的: thisworkbook.DisplayDrawingObjects =xlHide 有兴趣的可以看一下这个帖子http://topic.csdn.net/u/20091230/10/e8dbc009-f19e-497
2009-12-30 19:29:00
2823
原创 ADO的SQL语句中的“*”和“?”
由于VBA中代表单个和多个字符是用“?”和“*”代表的，所以许多刚学ADO的朋友经常会问：为什么在SQL语句中这两个符号不能用呢？应该用什么符号来代表呢？ 这是因为VBA+ADO所用的驱动的关系，本人对这个也不是太精，具体大家可以去微软的网站上找找答案，所以VBA+ADO的SQL语句中的“*”和“?”这两个符号是用“%”和“_”，即百分号和下划线，明白了吧，赶快去试试吧。 再说一个差不多的问题
2009-12-01 20:46:00
801
原创 如何将数据文本反转
如何将单元格中的数据反转，如“CSDN”变成“NDSC”？ 由于工作表函数没有直接的能连接内存数组的函数，所以通常的解法是用辅助单元格或自定义函数。 我们这里主要说自定义函数，一般人的做法是用MID函数循环逐个取出并连接，最后取得一个反转的数据，但其实EXCEL的VBA里已经存在着一个反转数据的函数：StrReverse，所以自定义一个函数只需要1行代码： Function reve
2009-11-30 23:21:00
1617
原创 初任CSDN OFFICE小版主，以后还请大家多多关照
初任CSDN OFFICE小版主，以后还请大家多多关照，大家记得去接分哦。http://topic.csdn.net/u/20091130/13/9283e009-a52f-4d36-9005-e09ff7c341fb.html
2009-11-30 15:21:00
1712
原创 关于EXCEL2007中ADO的数据库引擎
很多人换了2007后，问的最多的问题之一是2003里最经典的ADO中的“provider=Microsoft.Jet.OLEDB.4.0”这句怎么不能用了。百度一下可以了解到，Microsoft.Jet.OLEDB.4.0是Microsoft Jet引擎，这适用于2003版本（2003之前的我没装，所以也不知道能向下适应到哪个版本），而在2007中，微软对其旗下 Access 与 Excel
2009-11-29 23:50:00
9152
2
原创 关于9E+307
经常看到初学者会问，公式中出现的9E+307是什么意思呀？ 今天我就说说这个问题。 昨天的文章也说了，其实许多问题的解决方法就能在帮助文件中找到，这个问题也不例外。搜索“限制”，查看“Excel 规范与限制”一节，里面说EXCEL中的最大正数是1.79769313486231E+308，而可在单元格中键入的最大数值是9.99999999999999E+307，因为9E+307已经接近于1.79
2009-11-28 23:00:00
3094
原创 VBA中的REPLACE函数的问题
今天见到EH一位会员问一个REPLACE函数的问题，原文如下： 代码: Sub Macro2() s = "---" s = Replace(s, "-", "=", 2, 1) Debug.Print s End Sub 立即窗口中显示的是"=-"而不是"-=-" 为什么会少一个字符啊? 这确
2009-11-27 23:46:00
10305
原创 郁闷的十月和十一月，希望的十二月
这两个月过的可真郁闷，彩票不顺，股票不顺，工作不顺，学习不顺，希望12月能否极泰来，一切顺利。 像现在这样沉迷彩票确实不是件好事，而且昨天也加入房奴一族了，接下来这段时间确实要要好好节制一下，所以为了督促自己不忘记学习，从今天开始每天写一篇EXCEL的小文章，大家如果有空可以来逛逛，也许可以学到点对你有用的EXCEL小技巧。
2009-11-27 12:05:00
630
EXCEL工作表事件改变值
2010-01-14
生成1-10的组合数
2009-12-25
Vlookup只能查出第一个匹配的单元格
2009-11-21
Vlookup只能查出第一个匹配的单元格
2009-11-21
excel宏操作，求解
2009-08-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人