Excel VBA質問箱 IV

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

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


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

57328 / 76732

←次へ　｜　前へ→


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

Jaka - 05/4/13(水) 10:56 -


	引用なし

	パスワード

こんにちは。

▼りかさん：
>試してみたのですが、
>>　 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

りかさんが他のところで変更された物が間違っているように思えますが....。
どのように変更されたのでしょうか？
自身で手直しされて、「動きませんエラーになリます。」と言ってませんか？

>特殊文字が入っている場合どうすればよいのでしょうか？
状況が全く伝わりません。

0 hits

▼

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