|
▼りか さん:
>>>chk_a = "=if(SUM(R" & start & ":R" & end & ")= " & cnt & ", msg1 ,msg2))"
>>↑このとおりだとすると、エラーになりますけどね!!
>>まっ、この辺は記述ミスだとして・・・・
記述の間違いはひとつではなさそうですが、
まず、endというのは、ステートメントですので予約語になります。
変数としては、使えませんよ!!
'=====================================================
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 & """)"
s.Cells(start_rw, 3).Formula = chk_a
' ↑このsは、ご自分でセットしてください
'
End Sub
|
|