計算式を変数QRdataへ代入し
その変数から指定のセルへ入力するとき、実行時エラー1004となってしまい
マクロを実行できずに困っています。
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ベストアンサー
- 回答日時:
> セルに直接入力すると =("123456あいうえお ",1)" とこんな感じに
Excelに何か計算をさせたいというわけではなくて、セルに「=("123456あいうえお ",1)」と表示させたいということですか?
それであれば、セルの表示形式として「文字列」を指定するか、先頭に文字列データであることを示す「'」を加えます。
VBAで表示形式を文字列にするには、
.NumberFormatLocal="@"
でいけるはずです。
意図する事ができ非常に助かりましたました。
期限もありかなり焦っていたため一部マクロのミスも同時に見つかり
うまく動いてくれました。有難うございます。
No.6
- 回答日時:
>実際にDebug.Print QRdata
>イミディエイト・ウィンドウに出力された変数「QRdata」の結果を
>貼り付けるということもしてみました。
いや、どこにも貼りついていませんよ。
あなたが確認するということではありません。
回答はよく読みましょう。
あなたは質問者なのですから、回答者の我々にわかるように
「ここに」貼りつけてください。
我々に情報を提供しなければ回答しようがないじゃないですか。
No.4
- 回答日時:
多分(セル).Formula=の右辺の式の問題だと思うが、
"=("& Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)"
はMsgboxで表示すると、どんな文字列になるか、エラーが出たら確認するのが筋でしょう。
「コードナンバー」や「品名1行」は変数名だと思うが、値はちゃんとセットされて取れていますか。
そんなこと(その実情と確認したかどうか)も書かないでエラーの質問にならない。もっと粘り強く、自分であれこれ考えるとか試行すべきだ。
No.3
- 回答日時:
こんばんは。
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)"
セルに直接入力することは出来ても、マクロでは・・・・
No.2
- 回答日時:
仮に
Range("A1").Formula = "=,"
でも同じ結果です。
手動で =, などと入れても同じです。
数式文字列として入力しようとしてる『QRdata』が数式として正しくない為のエラーです。
Debug.Print QRdata などで確認して
変数『コードナンバー』『品名1行』の中身をチェックしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
- Visual Basic(VBA) VBAで時間(00:00形式)を積算(足し算)したい 1 2022/11/15 17:04
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
vba formulaの中での変数の扱い
Ruby
-
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
-
4
VBAでExcel関数入力時のシングルクォーテーションについて
Visual Basic(VBA)
-
5
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
6
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
7
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
8
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
13
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
16
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
17
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
18
【VBA】配列に数式を仕込む方法(カンマのエスケープ方法)
Excel(エクセル)
-
19
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
20
VBAで行削除のできない場合がある
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
実行時エラー3001「引数が間違...
-
EXCEL VBAマクロ中断でデバッグ...
-
なぜこんな初歩的なVBAのIf文で...
-
プロシージャ名の取得
-
VBS実行時エラー オブジェクト...
-
アクセス 実行時エラー3265
-
マクロでオートシェイプ内の文...
-
ExcelVBA Range クラスの Page...
-
「実行時エラー3001」のポップ...
-
SQL文をVBAで流すと「型...
-
EXCEL/VBAで、自分のPCだけエラ...
-
VBAのコードがエラーになっ...
-
「コンパイルエラー:プロシー...
-
VBAでのMATCH関数の使用
-
ゴールシーク関数で、エラーを...
-
ADODB.Streamを使用してUTF-8を...
-
Application.ActiveInspectorで...
-
VBAがブレークモードになっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
VBAでのエラー
-
マクロについて教えてください...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
VBAのコードがエラーになっ...
-
実行時エラー -'-2147417848
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
VB6+SQL サーバー 2000 で 実行...
おすすめ情報