2008年12月_donkey2004112103

原创 excel不显示提示对话框

excel的application对象十分强大，提供了很多方法，比如想要删除sheet时提示对话框，可以用下面的方法第一 Application.SendKeys ("{ENTER}") ActiveSheet.Delete 第二 Application.DisplayAlerts = False ActiveSheet.Delete Application.

2008-12-29 17:16:00 2417

原创 excel小技巧

1.自定义序列排序的时候有时候需要自定义序列如对职务的排序可以用自定义序列的方法，或者再增加一列用数字标识对数字标识排序。在excel2007里自定义序列的位置不好找，在下面的位置，常用的编辑自定义列表里。 2.分类汇总分类汇总帮我们更加方便的透过数据看到我们想要的信息，有两点需要注意。一是如果需要建立多级分类汇总的话，要依次建立，优先级高的先建立。建立后面的分类汇总时替换

2008-12-26 14:45:00 993

原创 excel列显示列号

excel里的行显示的行号，但是列显示的是英文字母，有时候要看列号就不方便了。下面这段程序可以让字母显示成数字 Sub Macro1() Application.ReferenceStyle = xlR1C1 End Sub 将ReferenceStyle改为xlA1变回原来的字母，非常强大。

2008-12-22 16:13:00 5141 1

原创会计凭证中的日期

把会计凭证中的日期总结下，算是对这段时间做ＦＩ的总结。记帐日期：指此凭证过账到哪一个期间，哪一个日期budat 凭证日期：指原始凭证的日期输入日期：指录入凭证时的系统日期起息日：指开始计算利息的日期基准日期：指开始计算到期日的开始日期(帐龄分析以此日期为基准)zfbdt 换算日期：指外币汇率取哪一天的汇率清帐日期：指进行未清项管理的行项目的清帐日期

2008-12-17 16:01:00 1974 1

原创求组合排列和字符串偏移

前段时间加班，让我好久没有看书了，周日又开始看programming pearls了，分享下我的代码。livewrier对代码排版的支持实在不好，大家凑合着看吧。 2.3节对字符串偏移的计算算法实在高明，真不知道作者是怎么想出来的，不过它的方法是可以用数学归纳法证明正确的，下面是我的实现代码： #include #include void reverse(char *str, i

2008-12-16 09:27:00 885 1

原创求列和

之前动态报表列求和是在excel自己输入公式在隐藏单元格实现，昨天发现了有更好的实现方法。代码如下： Dim rng As Range With Cells(6, 3) Set rng = Range(.Offset(1), .Offset(1).End(xlDown)) .Formula = "=SUM(" & rng.Addres

2008-12-12 09:59:00 798

原创 vba查找sheete

之前的报表全部放在一个ｅｘｃｅｌ文件里，所以查找ｓｈｅｅｔ非常麻烦．那我就自己写了个小程序方便查找，不过没有模糊查找的功能，以后可以完善下．代码如下： Sub findName() Dim sheetFind As Worksheet Dim name As String name = InputBox("输入要查找的sheet名", vbOKCancel)

2008-12-10 11:17:00 973

原创对某区间的ｃｅｌｌ进行操作

刚看《excel 2007 vba programmer reference》对一个区间cell进行操作的代码进行了4个进化，不错。第一个版本：第二个修改的版本，相比较第一个版本可读性更高，用了对象。第三个修改的版本，作者说这个版本效率会有一些提升，估计是因为少解析了一个cells类。第四个版本，没有了行和列的变量，更简洁。第五个版本，又少了一个变量。使

2008-12-08 21:05:00 737

原创获得某月有几天

其解决方法有很多，我介绍下系统函数。顺便赏析下系统是如何实现这个功能的。测是代码如下：系统实现代码如下： DATA: DAYS(26) VALUE 00312831303130313130313031, OFFSET TYPE I, I1 TYPE I, I2 TYPE I, I3 TYPE I. FIE

2008-12-08 15:13:00 836

原创 Private Sub Worksheet_Change事件碰到的问题

之前动态表格的更新问题我都是加了一个按钮来触发更新的事件，简洁却不美观。老大跟我说一定要解决，感谢崔兄之前告诉了active事件。后来查阅资料我又发现了有change事件！这个似乎更好用，通过更崔兄讨论确定了用会计年度，会计期间，公司代码这三个变量作为更新查询的条件。在写代码中我又发现了两个问题，第一个问题是query里有7个查询，你怎么知道那一个query最后更新。这个问题还是很好解决的，我

2008-12-07 11:03:00 6107

原创动态行插入没有固定标题

今天写的代码我感觉比较优雅，虽然用的是不熟悉的语言ＶＢＡ。解决问题用了table lookup，对于没有固定标题的情况下我又新增了一个变量来得到不确定的行数。代码如下： Option Explicit Public insertAllNum As Long query里插入的所有的行数 Public dynNum As Integer 动态插入

2008-12-05 15:04:00 672

黄立