[原创]VBA程序集(第1辑)

yz1654

好东东呀，收藏。谢谢！！！！！！！！

goso

LZ 第三个程序rankprocess()过程中使用Excel的rank函数进行排序的语句写成:

r = Application.WorksheetFunction.rank(MyCell.Value, MyRange, 1)是一样的不 为什么要用1+.... 呢?

gljzyp

先找到第2期后才找到第1期的，都是太好了，谢谢分享

fanjy

LZ 小弟新学VBA 最近研究你的程序 有些问题很初级 还是希望你能给解答
1.程序1中ThisWorkbook.Close savechanges:=True作何用啊? 是关闭最后一个workbook吗? 为什么我加上这句和不用这句执行的结果是一样的呢?
2.很弱地问: :=是什么意思啊? 是给方法的参数赋值吗? 是的话情形二厘里面的.close false 中false前为什么不加:=呢 还有xlReadOnly中的xl代表什么啊?

我也是前个月才学VBA的,感觉自已入门了.

(1)ThisWorkbook.Close savechanges:=True的意思是关闭当前工作簿,并存盘.

(2)有些对象的方法后面是带有参数的,执行参数的写法有两种,一种是按参数的顺序依次写,但是如果中间某参数省略的话,必须用空格代替,且两边有逗号;还有一种是"参数名"+":="+"值"的写法,这种写法一目了然,推荐这样写.

xl代表的是Excel常量.因为VB常量很多,为了分类,在前面加上标志.

fanjy

LZ 第三个程序rankprocess()过程中使用Excel的rank函数进行排序的语句写成:

r = Application.WorksheetFunction.rank(MyCell.Value, MyRange, 1)是一样的不 为什么要用1+.... 呢?

不一样,很简单的数学推理,自已可以再思考一下.

goso

以下是引用[I]fanjy[/I]在2006-6-20 13:16:12的发言：

LZ 小弟新学VBA 最近研究你的程序 有些问题很初级 还是希望你能给解答
1.程序1中ThisWorkbook.Close savechanges:=True作何用啊? 是关闭最后一个workbook吗? 为什么我加上这句和不用这句执行的结果是一样的呢?
2.很弱地问: :=是什么意思啊? 是给方法的参数赋值吗? 是的话情形二厘里面的.close false 中false前为什么不加:=呢 还有xlReadOnly中的xl代表什么啊?

我也是前个月才学VBA的,感觉自已入门了.

(1)ThisWorkbook.Close savechanges:=True的意思是关闭当前工作簿,并存盘.

(2)有些对象的方法后面是带有参数的,执行参数的写法有两种,一种是按参数的顺序依次写,但是如果中间某参数省略的话,必须用空格代替,且两边有逗号;还有一种是"参数名"+":="+"值"的写法,这种写法一目了然,推荐这样写.

xl代表的是Excel常量.因为VB常量很多,为了分类,在前面加上标志.

多谢fanjy解答 兄台你岂止是入门啊... hehe

[此贴子已经被作者于2006-6-20 13:56:17编辑过]

goso

不太明白啊... 比如range总共有n个元素 如果x按升序排第r位 那按降序不就是1+n-r位吗? 莫非我对排序函数的理解有误?

goso

另外有个不情之请 LZ可否看帮忙看下小弟的问题啊http://club.excelhome.net/dispbbs.asp?boardID=2&ID=172974&page=1&px=0 仿佛无人问津啊...

shyplx276

非常感谢,下了学习学习