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

lindw

LangQueS 发表于 2011-12-12 17:17
你可以自己修改一下原公式，再录制到宏中即可。

sheet2中K、M、O三列的单元格式发生变化了，例如K2变为1.01了，但实际应为01.01,因为数据库表是文本的，这个我也不懂得改

LangQueS

lindw 发表于 2011-12-12 17:46
sheet2中K、M、O三列的单元格式发生变化了，例如K2变为1.01了，但实际应为01.01,因为数据库表是文本的，这 ...

140楼的代码已经修改好了。

lindw

LangQueS 发表于 2011-12-12 19:05
140楼的代码已经修改好了。

还是不行哦

lindw

执行代码后sheet2中K、M、O三列的其中K2本来正常结果是01.01,但还是1.01

LangQueS

lindw 发表于 2011-12-12 19:19
执行代码后sheet2中K、M、O三列的其中K2本来正常结果是01.01,但还是1.01

在我这里没问题呀：

LangQueS

关于格式可添加一行：

1. .Range("k2:0" & a).NumberFormatLocal = "00.00_ "

复制代码

lindw

LangQueS 发表于 2011-12-12 20:47
关于格式可添加一行：

谢谢，LangQueS 老师，sheet2的问题全解决了，接下来是要把sheet3的公式也放入代码里

LangQueS

lindw 发表于 2011-12-12 21:37
谢谢，LangQueS 老师，sheet2的问题全解决了，接下来是要把sheet3的公式也放入代码里

sheet2 中的公式，检索D列行数返回其他列公式行数，而 sheet3 中不知公式的行数以哪列为准？

楼主不想自己试试么？{:soso_e113:}

lindw

LangQueS 发表于 2011-12-12 22:16
sheet2 中的公式，检索D列行数返回其他列公式行数，而 sheet3 中不知公式的行数以哪列为准？

楼主不想自 ...

sheet3的中除了F列是以数据录入那个表的A列行数为准，数据录入这个表有多少行，sheet3就有多少行。sheet3的其他列则是以相貌sheet3中的F列行数返回其他列公式行数。目前我自己弄还不行，想让老师帮我弄好这个，我就以这个为例来套用到其他工作簿，如领料单数据录入、产成品数据录入等

LangQueS

1. Sub 表3公式()
   
2. Application.Calculation = xlCalculationManual   '手动重算
   
3. With Sheets("Sheet3")
   
4.     b = .Range("d65536").End(xlUp).Row
   
5.     If b > 1 Then
   
6.         .Range("A2:A" & b).FormulaR1C1 = "=IF(RC[5]="""","""",0)"
   
7.         .Range("C2:C" & b).FormulaR1C1 = "=IF(RC[3]="""","""",0)"
   
8.         .Range("E2").FormulaR1C1 = "=IF(RC[1]="""","""",1)"
   
9.         .Range("E3:E" & b).FormulaR1C1 = "=IF(RC[1]="""","""",IF(RC[1]=R[-1]C[1],R[-1]C+1,1))"
   
10.         .Range("F2:F" & b).FormulaR1C1 = "=IF(数据录入!RC[-5]="""","""",数据录入!RC[-5])"
    
11.         .Range("G2:G" & b).FormulaR1C1 = "=IF(RC[-1]="""","""",1)"
    
12.         .Range("H2:H" & b).FormulaR1C1 = "=IF(RC[-2]="""","""",数据录入!RC[-1])"
    
13.         .Range("I2:I" & b).FormulaR1C1 = "=IF(RC[-1]="""","""",数据录入!RC[-1])"
    
14.         .Range("L2:L" & b).FormulaR1C1 = "=IF(RC[-6]="""","""",""*"")"
    
15.         .Range("M2:M" & b).FormulaR1C1 = "=IF(RC[-5]="""","""",数据录入!RC[-4])"
    
16.         .Range("N2:N" & b).FormulaR1C1 = "=IF(RC[-6]="""","""",RC[-1])"
    
17.         .Range("O2:O" & b).FormulaR1C1 = "=IF(RC[-7]="""","""",数据录入!RC[-5])"
    
18.         .Range("P2:P" & b).FormulaR1C1 = "=IF(RC[-8]="""","""",数据录入!RC[-5])"
    
19.         .Range("Q2:Q" & b).FormulaR1C1 = "=IF(RC[-9]="""","""",数据录入!RC[-5])"
    
20.         .Range("S2:S" & b).FormulaR1C1 = _
    
21.         "=IF(RC[-13]="""","""",IF(数据录入!RC[3]="""","""",数据录入!RC[3]))"
    
22.         .Range("T2:T" & b).FormulaR1C1 = "=IF(RC[-5]="""","""",RC[-5])"
    
23.         .Range("U2:U" & b).FormulaR1C1 = "=IF(RC[-15]="""","""",0)"
    
24.         .Range("V2:V" & b).FormulaR1C1 = "=IF(RC[-16]="""","""",0)"
    
25.         .Range("X2:X" & b).FormulaR1C1 = "=IF(RC[-18]="""","""",0)"
    
26.         .Range("Z2:Z" & b).FormulaR1C1 = "=IF(RC[-20]="""","""",数据录入!RC[-13])"
    
27.         .Range("AA2:AA" & b).FormulaR1C1 = "=IF(RC[-1]="""","""",数据录入!RC[-13])"
    
28.         .Range("AF2:AF" & b).FormulaR1C1 = "=IF(RC[-26]="""","""",0)"
    
29.         .Range("AG2:AG" & b).FormulaR1C1 = "=IF(RC[-27]="""","""",0)"
    
30.         .Range("AH2:AH" & b).FormulaR1C1 = "=IF(RC[-28]="""","""",0)"
    
31.         .Range("AJ2:AJ" & b).FormulaR1C1 = "=IF(RC[-30]="""","""",0)"
    
32.         .Range("AK2:AK" & b).FormulaR1C1 = "=IF(RC[-31]="""","""",0)"
    
33.         .Range("AL2:AL" & b).FormulaR1C1 = "=IF(RC[-32]="""","""",0)"
    
34.         .Range("A2:AL" & b) = .Range("A2:AL" & b).Value
    
35.     End If
    
36. End With
    
37. Application.Calculation = xlCalculationAutomatic '自动重算
    
38. End Sub
    
39. 
    

复制代码