Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57337 / 76732

←次へ　｜　前へ→


	【24132】Re:セルに動的に計算式を記述したい

ichinose - 05/4/12(火) 22:00 -


	引用なし

	パスワード

▼りかさん：
>>>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

1 hits

▼

【24128】セルに動的に計算式を記述したい りか 05/4/12(火) 19:24