VBAにて計算式をセルへ代入できなくて困っています

計算式を変数QRdataへ代入し
その変数から指定のセルへ入力するとき、実行時エラー１００４となってしまい
マクロを実行できずに困っています。
Cells(3, 6).ValueもRange("F3").Fourmulaと変えたりしたのですが解決方法が解らなく
どうか御教授下さい。

Dim コードナンバー As String
Dim 品名1行 As String
Dim QRdata As String


QRdata = "=("& Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)"
Cells(3, 6).Value = QRdata　　←ここでエラーとなってしまいます。

No.5 ベストアンサー 回答者： m-take0220 回答日時： 2011/02/24 09:11

＞ セルに直接入力すると　=("123456あいうえお ",1)"　とこんな感じに

Excelに何か計算をさせたいというわけではなくて、セルに「=("123456あいうえお ",1)」と表示させたいということですか?
それであれば、セルの表示形式として「文字列」を指定するか、先頭に文字列データであることを示す「'」を加えます。
VBAで表示形式を文字列にするには、

.NumberFormatLocal="@"

でいけるはずです。

この回答へのお礼

意図する事ができ非常に助かりましたました。
期限もありかなり焦っていたため一部マクロのミスも同時に見つかり
うまく動いてくれました。有難うございます。

お礼日時：2011/02/24 20:12

No.6 回答者： ichhabehunger 回答日時： 2011/02/24 16:57

>実際にDebug.Print QRdata

>イミディエイト・ウィンドウに出力された変数「QRdata」の結果を
>貼り付けるということもしてみました。

いや、どこにも貼りついていませんよ。
あなたが確認するということではありません。
回答はよく読みましょう。

あなたは質問者なのですから、回答者の我々にわかるように
「ここに」貼りつけてください。

我々に情報を提供しなければ回答しようがないじゃないですか。

No.4 回答者： imogasi 回答日時： 2011/02/23 23:00

多分（セル）.Ｆｏｒｍｕlａ=の右辺の式の問題だと思うが、

"=("& Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)"
はＭｓｇｂｏｘで表示すると、どんな文字列になるか、エラーが出たら確認するのが筋でしょう。
「コードナンバー」や「品名1行」は変数名だと思うが、値はちゃんとセットされて取れていますか。
そんなこと（その実情と確認したかどうか）も書かないでエラーの質問にならない。もっと粘り強く、自分であれこれ考えるとか試行すべきだ。

No.3 回答者： ichhabehunger 回答日時： 2011/02/23 21:39

こんばんは。

Cells(3, 6).Value = QRdata

というコードの直前に

Debug.Print QRdata

と入れ、イミディエイト・ウィンドウに出力された変数「QRdata」の結果を
正確にここに貼りつけてください。

この回答への補足

ご回答ありがとう御座いました。
実際にDebug.Print QRdata
イミディエイト・ウィンドウに出力された変数「QRdata」の結果を
貼り付けるということもしてみました。
変数（QRdata）の内容は意図する内容で
単純に =(" & Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)
をセルに代入するだけと思っていたのですが、ダブルクォーテーションや式の
取り扱いに問題があるのではと思うのですが
文字の配列や，Formula.など他にもあるのですが気がついたことや調べたことはいろいろ試みたのですが行き詰まってしまいました。
実際
コードナンバーには商品のコードとして例えば123456
品名には商品名　あいうえお　などと入ります。

セルに直接入力すると　=("123456あいうえお ",1)"　とこんな感じに
ただ商品名や商品コードは変数となるため　一部のダブルクォーテーションを
　Chr(34)　にすることにより一時的に文字とすることによって
Cells(3, 6).Value = "=("123456あいうえお",1)"
セルに直接入力することは出来ても、マクロでは・・・・

補足日時：2011/02/24 01:53

No.2 回答者： end-u 回答日時： 2011/02/23 19:53

仮に

Range("A1").Formula = "=,"
でも同じ結果です。
手動で =, などと入れても同じです。
数式文字列として入力しようとしてる『QRdata』が数式として正しくない為のエラーです。

Debug.Print QRdata　などで確認して
変数『コードナンバー』『品名1行』の中身をチェックしてください。

No.1 回答者： m-take0220 回答日時： 2011/02/23 19:34

ValueじゃなくてFormulaに設定したらどうですか?