|
>りかさんが他のところで変更された物が間違っているように思えますが....。
>どのように変更されたのでしょうか?
>自身で手直しされて、「動きませんエラーになリます。」と言ってませんか?
すみません。
何か別のエラーのようでした。
chk_a = "=if(SUM(R" & start_rw & ":R" & end_rw & ")= " & _
cnt & ",""" & msg1 & """,""" & msg2 & """)"
Cells(x, x).Formula = chk_a
p.Shapes("オプション 8").Select
With Selection
…
End With
Withほうでエラーになっていたのですが、
p.Shapes("オプション 8").Select
With Selection
…
End With
chk_a = "=if(SUM(R" & start_rw & ":R" & end_rw & ")= " & _
cnt & ",""" & msg1 & """,""" & msg2 & """)"
Cells(x, x).Formula = chk_a
順番を逆にしたらエラーが出なくなりました。
原因はなぞです…
ありがとうございました!
|
|