VBA高手来帮帮 公式太长

001213a

EXCEL公式  想转换成VBA可惜 公式太长求解决方法
=IF(AND(VALUE(RC[+1])=1,RC[-4]<VALUE("8:30"))=TRUE,"早班上班打卡",IF(AND(VALUE(RC[+1])=1,RC[-4]>VALUE("8:30"),RC[-4]<VALUE("12:00"))=TRUE,"早班迟到打卡",IF(AND(RC[+1]=1,RC[-4]>=VALUE("12:00"),RC[-4]<=VALUE("13:00"))=TRUE,"下午上班打卡",IF(AND(VALUE(RC[+1])=1,RC[-4]>VALUE("13:00"),RC[-4]<VALUE("17:00"))=TRUE,"下午迟到打卡",""))))&IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])<=0.0007)=TRUE,"重复打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]<VALUE("8:30"))=TRUE,"早班重复上班打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>VALUE("8:30"),RC[-4]<VALUE("12:00"))=TRUE,"早班早退打卡","")))&IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>=VALUE("12:00"),RC[-4]<=VALUE("13:00"))=TRUE,"下午上班打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>VALUE("13:00"),RC[-4]<VALUE("17:00"))=TRUE,"下午早退打卡",""))

001213a

Range("M" & I).FormulaR1C1 = "=IF(AND(VALUE(RC[+1])=1,RC[-4]<VALUE("8:30"))=TRUE,"早班上班打卡",IF(AND(VALUE(RC[+1])=1,RC[-4]>VALUE("8:30"),RC[-4]<VALUE("12:00"))=TRUE,"早班迟到打卡",IF(AND(RC[+1]=1,RC[-4]>=VALUE("12:00"),RC[-4]<=VALUE("13:00"))=TRUE,"下午上班打卡",IF(AND(VALUE(RC[+1])=1,RC[-4]>VALUE("13:00"),RC[-4]<VALUE("17:00"))=TRUE,"下午迟到打卡",""))))&IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])<=0.0007)=TRUE,"重复打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]<VALUE("8:30"))=TRUE,"早班重复上班打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>VALUE("8:30"),RC[-4]<VALUE("12:00"))=TRUE,"早班早退打卡","")))&IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>=VALUE("12:00"),RC[-4]<=VALUE("13:00"))=TRUE,"下午上班打卡",IF(AND(RC[+1]>=2,ABS(RC[-4]-R[-1]C[-4])>0.0007,RC[-4]>VALUE("13:00"),RC[-4]<VALUE("17:00"))=TRUE,"下午早退打卡",""))

gufengaoyue

这么长的公式
你不如上个附件，将哪些数据哪个单元格之间的关系说明一下就好了

001213a

就是公式太长输不进去
Range("M" & I).FormulaR1C1 = "=IF 。。。此处省略1000多字"
然后出错

001213a

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]<VALUE(""8:30""))=TRUE,""早班上班打卡"",IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班迟到打卡"",IF(AND(R[-2]C[13]=1,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下午迟到打卡"",""""))))&IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])<=0.0007)=TRUE,""重复打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]<VALUE(""8:30""))=TRUE,""早班重复上班打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班早退打卡"","""")))&IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下午早退打卡"",""""))&IF(AND(R[-2]C[13]=0,R[-2]C[8]<VALUE("
"8:30""))=TRUE,""早班上班打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班早退打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下班早退打卡"",""""))))"
    Range("A4").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub

001213a

原帖由 gufengaoyue 于 2011-4-25 13:20 发表
这么长的公式
你不如上个附件，将哪些数据哪个单元格之间的关系说明一下就好了

公式太长了
Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]<VALUE(""8:30""))=TRUE,""早班上班打卡"",IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班迟到打卡"",IF(AND(R[-2]C[13]=1,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(VALUE(R[-2]C[13])=1,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下午迟到打卡"",""""))))&IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])<=0.0007)=TRUE,""重复打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]<VALUE(""8:30""))=TRUE,""早班重复上班打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班早退打卡"","""")))&IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(R[-2]C[13]>=2,ABS(R[-2]C[8]-R[-3]C[8])>0.0007,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下午早退打卡"",""""))&IF(AND(R[-2]C[13]=0,R[-2]C[8]<VALUE("
"8:30""))=TRUE,""早班上班打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>VALUE(""8:30""),R[-2]C[8]<VALUE(""12:00""))=TRUE,""早班早退打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>=VALUE(""12:00""),R[-2]C[8]<=VALUE(""13:00""))=TRUE,""下午上班打卡"",IF(AND(R[-2]C[13]=0,R[-2]C[8]>VALUE(""13:00""),R[-2]C[8]<VALUE(""17:00""))=TRUE,""下班早退打卡"",""""))))"
    Range("A4").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub

whxbsyy

我也遇到同样的问题！顶楼主！有高手可以解决超长公式的问题吗？

whxbsyy

搞掂了楼主，需要分段，每段用双引号引起来，最后在段后再后加& _