寻求用excel制作统计工具的朋友

字体: 小中大 | 打印发表于: 2008-8-07 13:46 作者: yuanlong1980 来源: 6sigma品质网

我喜欢自己用excel VBA设计制作各种统计工具，目前也小有“成就”（制作了一些简单的统计分析工具如排列图（自动排序的）、控制图（样本容量可选择）、过程能力分析（正态曲线、　直方图一起）、Ｒ＆Ｒ分析等，现在希望认识更多和我有同样兴趣的朋友，一起进步探讨。

[ 本帖最后由 yuanlong1980 于 2008-8-8 15:05 编辑 ]

我也来说两句查看全部回复

最新回复

tigerliuxd (2008-8-07 14:01:29)

可否传几个上来看一下。。。。。。。。。。。。。。
verdy (2008-8-07 14:12:58)

我看的懂VBA代码,但要自已编程的话还有些困难
biaotiger1 (2008-8-07 14:14:45)

LZ啥意思啊。。。。。。。。。。。。。。。。
part job
豁飘 (2008-8-07 14:28:42)

基本模糊！但是还是很新奇呀。lz指点一哈可以不？
传递函数 (2008-8-07 14:48:53)

最崇拜EXCEL很厉害的人咯.........
flying008 (2008-8-07 15:06:05)

偶正打算找人一起基于EXCEL开发一套APQP系统，主要是为了在文件方面规范化，减少差错，提高效率，当然少不了VBA高手，顶楼上的，有兴趣吗？
feicana (2008-8-07 15:11:51)

上面几位大侠能否指点小弟一下，我的QQ：84503636
aey227 (2008-8-07 22:34:20)

只会用函数。知道VBA，不过打开了看不懂，有这方面的学习资料可以介绍下吗？
yuanlong1980 (2008-8-08 15:01:38)

9#的如果需要VBA资料可以联系我
biaotiger1 (2008-8-08 15:07:01)

发段代码上来研究下呀
众人拾柴嘛。。。。。。。。。。
lengyu1190 (2008-8-08 16:03:30)

不要光说,拿出来和大家分享一下,让大家和你共同分析和改进吗!!!
要不留个油箱给你xin-xiong@kodai-inc.cn
aey227 (2008-8-08 18:40:34)

QUOTE:
原帖由 yuanlong1980 于 2008-8-8 15:01 发表
9#的如果需要VBA资料可以联系我

谢谢，我的邮箱；aey227@yahoo.com.cn
如方便，请介绍一些学习网站和基础的入门资料。
yuanlong1980 (2008-8-13 10:13:59)

'
Application.ScreenUpdating = False

Range("F5:I5"）.Select
Selection.AutoFilter
Selection.AutoFilter Field:=2

Range("B5:C211"）.Select
Selection.Copy

Range("f5:G21"）.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Application.CutCopyMode = False
Range("e5:g20"）.Select
Range("g19"）.Activate
Selection.Sort Key1:=Range("g5"), Order1:=xlDescending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin, DataOption1:=xlSortNormal


         ActiveSheet.Range("$F$5:$I$20"）.AutoFilter Field:=2, Criteria1:=">0", _
      Operator:=xlAnd


      '排除零值
      kd = Range("h20")
      zkd = kd / 5

ActiveSheet.ChartObjects("Chart 1"）.Activate
ActiveChart.Axes(xlValue）.Select
ActiveSheet.ChartObjects("Chart 1"）.Activate
ActiveSheet.ChartObjects("Chart 1"）.Activate
ActiveChart.Axes(xlValue）.MinimumScale = 0
ActiveChart.Axes(xlValue）.MaximumScale = kd
ActiveChart.Axes(xlValue）.MajorUnit = zkd

End Sub

[ 本帖最后由 yuanlong1980 于 2008-8-19 08:45 编辑 ]
yuanlong1980 (2008-8-13 10:15:54)

"）. "代表了"）."
即在英文输入法下面输入括号后面加点号。

[ 本帖最后由 yuanlong1980 于 2008-8-19 08:48 编辑 ]
biaotiger1 (2008-8-14 13:06:37)

QUOTE:
原帖由 yuanlong1980 于 2008-8-13 10:13 发表
'
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="qcl1980"

' Macro2 Macro
Range("F5:I5"Select
Selection.AutoFilter
Selection.AutoFilter Field:=2

...
看到了
不过大多都是直接录制（select activate很影响速度的）
LZ过谦，上面的代码恐无法代表呢

问下
POWERPOINT方面的vba资料有吗？
最近想研究下，谢谢！！
我的邮箱biaotiger_1@163.com

再次感谢
yuanlong1980 (2008-8-14 13:39:57)

不好意思，没有单独的

POWERPOINT方面的vba类似excel
基础一样
只不过部分细节不一样
aey227 (2008-8-14 18:20:23)

谢谢你的资料，已经受到，有时间漫漫学习，以后多指教！
stevexdyang (2008-8-14 19:07:29)

有机会，一起学习。

Skype:xdyang-nt
znd.sixsigma (2008-8-14 19:58:41)

VBA, VB代码编程,我也喜欢, QQ群:48334358
木子金刀 (2008-8-16 08:52:19)

你好，你有这方面的资料么？能否发一份给lizhao071022@126.com，非常感谢，以前没接触过编程，不知VBA难学否？