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

shunz · 发表于 2010-2-23 17:59

好办法,已经用上了.

lbl016 · 发表于 2010-4-16 12:37

值得好好学习。

风和日月 · 发表于 2010-4-16 19:33

老师下了你的资料学习学习遇到了难点请指点下我上传一个附件1表从2表中取数有一个A列非空单元格我要的是2表中的A列

风和日月 · 发表于 2010-4-16 20:24

请老师指点为什么表1表2有5行的差别

LangQueS · 发表于 2010-4-16 21:10

没明白风和日月的意思

风和日月 · 发表于 2010-4-16 21:30

从表2中取数表2 中有的都要用公式反应到表1中来

风和日月 · 发表于 2010-4-16 21:33

一个是年份是一定月份有12个天有365天如果每天产生多条数据在表2中记录,必同时在表1中体现

风和日月 · 发表于 2010-4-16 21:40

老师我上传样表2那个在sheet2表用绿色字体部份怎么把它导入sheet1表中

LangQueS · 发表于 2010-4-17 09:21

原帖由 风和日月 于 2010-4-16 21:40 发表
老师我上传样表2那个在sheet2表用绿色字体部份怎么把它导入sheet1表中

Sheet2才是保存数据的形式……需要返回到Sheet1的格式，先做好函数公式，再使用宏来保存公式……

[ 本帖最后由 LangQueS 于 2010-4-17 09:35 编辑 ]

lbl016 · 发表于 2010-4-17 09:54

Sub 引入公式()
y = Range("a65536").End(xlUp).Row    'A列最后可见单元的行号
With Application
      .Calculation = xlManual
      .MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("d3:d" & y).Select
Selection.FormulaR1C1 = _
      "=IF(RC[2]<>"""",IF(MOD(RIGHT(LEFT(RC[2],17)),2),""男"",""女""),)"
Range("E3:e" & y).Select
Selection.FormulaR1C1 = _
      "=IF(RC6<>"""",DATEDIF(TEXT((LEN(RC6)=15)*19&MID(RC6,7,6+(LEN(RC6)=18)*2),""#-00-00""),TODAY(),""y""),)"
Range("g3:g" & y).Select
Selection.FormulaR1C1 = _
      "=IF(RC2<>"""",""**县""&VLOOKUP(--MID(RC2,1,6),代码!C[-5]:C[-4],2,),)"
         Range("a3:n" & y).Select    '选择所有公式区域
'复制并选择性粘贴数值
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("a" & y + 1).Select
With Application
      .Calculation = xlAutomatic
      .MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
这个代码还能精简和优化吗？

[ 本帖最后由 lbl016 于 2010-4-17 10:06 编辑 ]

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