Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11323 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16782】ＶＢＡで、数式を入れたい edogawakonan 04/8/9(月) 22:40 質問[未読]
【16784】Re:ＶＢＡで、数式を入れたい Asaki 04/8/9(月) 23:12 回答[未読]
【16786】Re:ＶＢＡで、数式を入れたい edogawakonan 04/8/9(月) 23:21 質問[未読]
【16787】Re:ＶＢＡで、数式を入れたい Asaki 04/8/9(月) 23:31 回答[未読]
【16788】Re:ＶＢＡで、数式を入れたい edogawakonan 04/8/9(月) 23:34 お礼[未読]
【16782】ＶＢＡで、数式を入れたい
質問  edogawakonan  - 04/8/9(月) 22:40 -
引用なし
パスワード
   みなさん、こんちには。
仕事で、ＶＢＡを使っていますが　どうしても解決できないので
お知恵をお貸しください。

いま、セルＧ３９に　ＩＦ関数が入っています。
エクセルを開いた時に条件により、セルＧ３９の関数を消して
「＋Ｄ４９」と　セルＤ４９の値と同じにしたいのですが、
ＶＢＡで書くと
----------------------------------------------------------
Dim 変更後の関数 As Variant
If Worksheets("入力").Cells(21, 12) = 1 Then　　　　　
　　変更後の関数 = "+D49"
　　Worksheets("result").Cells(39, 7) = 変更後の関数
END IF
----------------------------------------------------------
としているのですが、文字列となってしまいます。

どうしたら、代入値と判断してくれるのでしょうか？
よろしくお願いいたします。
【16784】Re:ＶＢＡで、数式を入れたい
回答  Asaki  - 04/8/9(月) 23:12 -
引用なし
パスワード
   こんばんは。

Excelの場合、基本的に数式は イコールで始まるとお考え下さい。
また、Cells() のプロパティを省略するとValueになりますし、解りにくくなるので
省略せずに書いたほうが良いと思います。

Worksheets("result").Cells(39, 7).Formula = "=D49"
ではどうなりますか？
【16786】Re:ＶＢＡで、数式を入れたい
質問  edogawakonan  - 04/8/9(月) 23:21 -
引用なし
パスワード
   >Worksheets("result").Cells(39, 7).Formula = "=D49"
>ではどうなりますか？

おおっ！見事に代入式が入りました！
ありがとうございます。

もうひとつ質問してよいですか？

もし、セルＤ４９が、１なら　「良」　それ以外は、「不良」と
書き換えたいのですが、以下では旨くいきません。

Worksheets("result").Cells(39, 7).Formula = "=if(d49=1,"良","不良")"

ダブルフォーテーションを　どう処理すれば良いのでしょうか？
【16787】Re:ＶＢＡで、数式を入れたい
回答  Asaki  - 04/8/9(月) 23:31 -
引用なし
パスワード
   ダブルクォーテーションの中にダブルクォーテーションを書きたいときは、
その数を2倍にします。
つまり
>"=if(d49=1,"良","不良")"
 ↓
"=if(d49=1,""良"",""不良"")"
【16788】Re:ＶＢＡで、数式を入れたい
お礼  edogawakonan  - 04/8/9(月) 23:34 -
引用なし
パスワード
   ▼Asaki さん：
>ダブルクォーテーションの中にダブルクォーテーションを書きたいときは、
>その数を2倍にします。

希望した通りの動作を確認しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11323 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free