下面黄色语句是刚加进去的,帮忙大师看下提示确实结束语句是什么问题, 谢谢
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:11 编辑
.Range("D58") = "=IF(I58=""TBD"",""TBD"",LOOKUP(I58,{0,51,61,76,86,101,116,150},{""劣"",""差"",""较差"",""一般"",""合格"",""良好"",""优秀""}))"
|