[已解决]求VBA提示缺少结束语句是什么问题

gaiety1974

下面黄色语句是刚加进去的，帮忙大师看下提示确实结束语句是什么问题， 谢谢
With ActiveSheet
     .Range("D4") = ""
     .Range("D5") = ""
     .Range("G5") = ""
     .Range("I5") = ""

     .Range("C8:J57").ClearContents

     .Range("D59") = ""

     .Range("M1") = Format(Now(), "yyyy-m-d")
     .Range("G4") = "=text(M1,""yyyy-m-d"")"
     .Range("I4") = "=" & Sheet13.Name & "!$C$9&" & Sheet13.Name & "!$C$12&TEXT(M1," & Sheet13.Name & "!$C$10)&" & Sheet13.Name & "!$C$12&TEXT(M2," & Sheet13.Name & "!$C$11)"
'     .Range("H56:I56") = ""
'     .Rows("16:55").Hidden = True
     .Range("X1") = ""
     .Range("Z1") = ""

      .Range("I58") = "=IFERROR(AVERAGE(IF(I8:I12<>0,I8:I12)),0)"
      .range("D58") = "=IF(I58="TBD","TBD",LOOKUP(I58,{0,51,61,76,86,101,116,150},{"劣","差","较差","一般","合格","良好","优秀"}))"
      .Range("D58") = "=""人民币(大写) ""&N2RMB(I58)"
      .Range("I8:I57").FormulaR1C1 = "=RC[-2]*RC[-1]"
End With


Call ShowLine
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2022-5-28 10:10

.Range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

跳转到最佳答案楼层

zjdh

.Range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

gaiety1974

谢谢啦

gaiety1974

zjdh 发表于 2022-5-28 10:10
.Range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较 ...

谢谢啦

gaiety1974

zjdh 发表于 2022-5-28 10:10
.Range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较 ...

麻烦再请教一下，下面想要的结果是根据S4单元格及以下的S列单元格中的数据，将评判结果依次填写到T4单元格及以下T列的单元格中，下面句子应该怎么改才对， 谢谢
Range("T4:T") = "=IF("S4:S"="""","""",LOOKUP("S4:S"),{0,1,51,61,76,86,101,116,150},{"" "",""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

gaiety1974

gaiety1974 发表于 2022-5-30 10:15
麻烦再请教一下，下面想要的结果是根据S4单元格及以下的S列单元格中的数据，将评判结果依次填写到T4单元 ...

我自己研究了以下， T4:T后面固定一个数字，这样就没报错，先这么用着， 谢谢啦
Range("T4:T500") = "=IF(S4="""","""",LOOKUP(S4,{0,1,51,61,76,86,101,116,150},{"" "",""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

zjdh

以100行为例
Range("T4:T104").FormulaArray = "=IF(""S4:S104""="""","""",LOOKUP(RC[-1]:R[100]C[-1],{0,1,51,61,76,86,101,116,150},{"" "",""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"

gaiety1974

zjdh 发表于 2022-5-30 11:45
以100行为例
Range("T4:T104").FormulaArray = "=IF(""S4:S104""="""","""",LOOKUP(RC[-1]:R[100]C[-1],{0 ...

谢谢老师