[原创]★将公式保存在宏中★

LangQueS · 发表于 2008-8-7 20:35

QUOTE:

以下是引用xpm130在2008-8-7 20:12:14的发言：

"如果是公式相同的单元，可以同时选择所有单元后Ctrl+Enter。"

试过的,不行.

原是单个单元格数组公式,相对引用的,在A1样式里是不一样的,到了宏里,成了R1C1样式后才变相同的.录起来蛮费力的呵.

是公式编写的问题。录入公式时，要随时考虑到公式复制的适应。

建议楼主做个附件例子上传。

[此贴子已经被作者于2008-8-7 20:36:13编辑过]

xpm130 · 发表于 2008-8-7 20:56

QUOTE:

以下是引用LangQueS在2008-8-7 20:35:06的发言：

是公式编写的问题。录入公式时，要随时考虑到公式复制的适应。

建议楼主做个附件例子上传。

谨遵版主吩咐,现传上附件.

说明几点:

1.操作思路是山菊花超版的二级动态数据有效性,在"jiage"表中定义了几个名称,以便在"流水"表录入数据时不出现同名同规格物品的不同"名字"

2.但,由于数组公式较多,往往在录入时觉得不爽气,就用sig sun版的宏来保存公式,,可就是录起来蛮费力的

RaGJpenw.rar (22.21 KB, 下载次数: 300)

LangQueS · 发表于 2008-8-7 20:59

请在你的附件中保留所有公式。

xpm130 · 发表于 2008-8-7 21:11

QUOTE:

以下是引用LangQueS在2008-8-7 20:59:38的发言：
请在你的附件中保留所有公式。

真是麻烦老师了,重新传上,请多费心.

KElm9w6o.rar (23.6 KB, 下载次数: 260)

LangQueS · 发表于 2008-8-7 21:24

Sub 公式()
Application.Calculation = xlCalculationManual       '手动重算
y = Sheets(1).Range("a65536").End(xlUp).Row       'A列最后可见单元的行号
    Range("K1").Select
    Selection.FormulaArray = "=INDEX(lei_0,MATCH(,COUNTIF(R1C10:RC[-1],lei_0),))"
    Range("K1:U1").Select
    Selection.FillRight
    Range("K2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("L2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("M2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("N2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("O2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("P2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("Q2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("R2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("S2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("T2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("U2").Select
    Selection.FormulaArray = _
        "=INDEX(min_0,MATCH(,COUNTIF(R1C11:R[-1]C,min_0)+(lei_0<>R1C),))"
    Range("K2").Select

Application.Calculation = xlCalculationAutomatic    '自动重算
    ActiveWindow.SmallScroll Down:=15
    Range("K2:U" & y).Select
    Selection.FillDown
    Range("K1:U" & y).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K2").Select
    Application.CutCopyMode = False
End Sub

xpm130 · 发表于 2008-8-7 21:30

老师辛苦了,至以衷心感谢!

让我试试.

LangQueS · 发表于 2008-8-7 21:30

29Fw5P0h.rar (40.89 KB, 下载次数: 846)

xpm130 · 发表于 2008-8-7 21:50

呀,老师竟给我做出现成的,十二分感谢.

大概因计算范围过多,费时太多了.我现在每类不足40个品种,就算有60个好了,不知代码从何改,真不好意思....谢谢谢谢

LangQueS · 发表于 2008-8-7 21:54

QUOTE:

以下是引用xpm130在2008-8-7 21:50:41的发言：
呀,老师竟给我做出现成的,十二分感谢.

大概因计算范围过多,费时太多了.我现在每类不足40个品种,就算有60个好了,不知代码从何改,真不好意思....谢谢谢谢

如果文件中的公式太多，说明管理数据的方法不正确。

管理数据的方法与技术同样重要，在论坛关于方法的帖子不很多，

建议楼主调整数据管理的方式，请参考下帖附件：

★Excel数据管理的一般规律★

★用Excel制作的仓储管理工具★

xpm130 · 发表于 2008-8-7 22:00

白天要打工养家,只有夜里多泡会论坛了.

万分感谢老师的热情帮辅.

		自动登录	找回密码
密码			免费注册