|
こんにちは。
▼りか さん:
>試してみたのですが、
>> chk_a = "=if(SUM(R" & start_rw & ":R" & end_rw & ")= " & _
>> cnt & ",""" & msg1 & """,""" & msg2 & """)"
>
>オブジェクトが設定されていません。というエラーになるます…
試してみましたがエラーになりませんでした。
Sub main()
Dim start_rw As Long
Dim end_rw As Long
Dim cnt As Long
Dim msg1 As String
Dim msg2 As String
msg1 = "A"
msg2 = "B"
start_rw = 1
end_rw = 10
cnt = 3
chk_a = "=if(SUM(R" & start_rw & ":R" & end_rw & ")= " & _
cnt & ",""" & msg1 & """,""" & msg2 & """)"
Cells(2, 2).Formula = chk_a
'↑ 適当なセルに書き込んでみました。
End Sub
りかさんが他のところで変更された物が間違っているように思えますが....。
どのように変更されたのでしょうか?
自身で手直しされて、「動きませんエラーになリます。」と言ってませんか?
>特殊文字が入っている場合どうすればよいのでしょうか?
状況が全く伝わりません。
|
|