• ベストアンサー

コンパイルエラー　修正候補：ステートメントの最後

EXCEL2000のマクロで ActiveCell.FormulaR1C1 = "=VLOOKUP($H$4,INDIRECT(実績反映!$F$4&"!$A$3:$BP$65536"),28,0)" という文を入れると、!$A$3の！の部分がハイライトされてタイトル記載のエラーが出ます。 実績反映!$F$4にはシート名（例えば200605）が入っています。 セルにVLOOKUPの式を入れると正常動作しますが、マクロに取り込むとエラーとなります。何故でしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • agricap
  • ベストアンサー率40% (79/195)
回答No.1

「$A$3:$BP$65536」の前後にある"を、２つ重ねて、 「""$A$3:$BP$65536""」のようにしてみてください。 VBAでは、"は文字列の囲みとしての意味を持つため、文字列の中身と してこれを指定したい場合には、囲みの"と区別するために、特別に ２つ重ねて書く必要があります。

sakutomo
質問者

お礼

ご指摘通り修正すると、エラーが出なくなりました。早速の回答ありがとうございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロで名前をつけたセル範囲の平均値を求める

    Excel2000のマクロを使用しています。 まだまだ初心者なので、少し複雑になるとさっぱりです。 ぜひお力をお貸しください。 例） A1のセルに200、A2のセルに300、A3のセルに500のデータを持ち、 Range("A1":"A3")に "data"と名前を付けたとします。 ここでAVERAGE関数を使いたいのですが、 ActiveCell.FormulaR1C1 = "=AVERAGE("A1":"A3")"という方法ではなく "data"で参照して平均値を求めたいのですが、 ActiveCell.FormulaR1C1 = "=AVERAGE(data)としても参照してくれません。 この場合のいい解決法があったら教えてください。 よろしくお願いいたします。

  • ExcelのVBAのAutoFillの使い方について

    Excel97のマクロでAutoFillを使おうとしているのですが、エラーが出て実行できません。 何も表示されていないシートでコマンドボタンを押すと、AutoFillを使ってA1セル～E1セルとA2セル～E2セルに数字の1～5が表示されるようにしたいと考えています。 下記のようにマクロを書いたところ、A1～E5はうまくできたのですが、 「Selection.AutoFill Destination:=ActiveCell.Range("A2:E2"), Type:=xlFillSeries」 の行でエラーが発生します。 「実行時エラー:1004　RangeクラスのAutoFillメソッドが失敗しました。」と表示されます。 Private Sub CommandButton1_Click() 　　ActiveSheet.Range("A1").Select 　　ActiveCell.FormulaR1C1 = "1" 　　Selection.AutoFill Destination:=ActiveCell.Range("A1:E1"), Type:=xlFillSeries 　　ActiveSheet.Range("A2").Select 　　ActiveCell.FormulaR1C1 = "1" 　　Selection.AutoFill Destination:=ActiveCell.Range("A2:E2"), Type:=xlFillSeries End Sub どなたかエラーの原因を教えていただけないでしょうか？ よろしくお願いいたします。

  • エクセルのマクロの作り方

    マクロ初心者です。 今勉強している最中ですが、以下の物を作りました。 Sub Macro1() ' ' Macro1 Macro ' ' Sheets("Sheet2").Select Range("A4").Select ActiveCell.Formula = "=Sheet1!IM4" ActiveCell.Offset(3, 0).Select ActiveCell.FormulaR1C1 = "=Sheet1!R[-3]C[240]" ActiveCell.Offset(3, 0).Select ActiveCell.FormulaR1C1 = "=sheet1!r[-6]c[234]" ActiveCell.Offset(3, 0).Select ActiveCell.FormulaR1C1 = "=sheet1!r[-9]c[228]" End Sub わかる人はもうお分かりかもしれませんが、ループという機能でもっと簡単にできるように思います。 これを手打ちしていくのであれば、手間がかかってしまい、マクロの意味がないというか… [-3]→[-6]→[-9]と、縦に参照したいセルが3つずつ上がっていき、横には左に6ずつ移動していきます。正確にはアクティブセルが移動しているのでってことなのでしょうけど…（たぶん…） 最初が絶対参照になっていて２回目以降から相対参照になっているのは、１回目で絶対参照にすれば、そのセルを基準として相対参照でRC[-6]でループさせられるかなっと思ったからです。。。結局そうなりませんでしたが… 作りたいのは、sheet２のA4とsheet1のIM4、sheet２のA7とsheet１のIG4をイコールにし、それを間隔は同じでsheet２のA127まで繰り返したものです。 本を買って、ネットで検索して色々とやったのですが、どうにもわからなく。。。 どうかよろしくお願いします。

  • エクセル マクロ VBA について

    以下はセルB2.C2.D2.E2.F2をアクティブセルから右方向へ入力しています。ここでの入力とは"=" + "セルB2" というものです。一つずつ入力している為マクロが長くなります。短くシンプルなものにしたいです。ご教示お願いします。 ActiveCell.FormulaR1C1 = "=R2C2" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=R2C3" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=R2C4" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=R2C5" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=R2C6"

  • VBAでVlookupを使って

    いつもお世話になっています。 VBAで現場検索登録シートと言うところに 一覧シートからVlookupを使って 表示させようと思い作りました。 エラーも何もでません。 ただ、表示されるものがちゃんと検索されるものと まったくされないものがあります。 Vlookupはマクロの記録から作ったものです。 原因がわかりません。 よろしくお願い致します。 '検索ボタン Private Sub CommandButton6_Click() '送り方 Range("C4:D4").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,22,FALSE)" Selection.Value = Selection.Value '封筒 Range("C5:D5").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,23,FALSE)" Selection.Value = Selection.Value '得意先名ふりがな Range("C6:F6").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,6,FALSE)" Selection.Value = Selection.Value '得意先名 Range("C7:F8").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,4,FALSE)" Selection.Value = Selection.Value '現場名ふりがな Range("C9:H11").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,9,FALSE)" Selection.Value = Selection.Value '現場名 Range("C10:H11").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C5,一覧!R5C1:R2000C54,7,FALSE)" Selection.Value = Selection.Value End Sub エラーも何もなく、ちゃんと動くことは動きます。 検索結果が、検索コードによって違うのです。 よろしくお願い致します

  • マクロ（VLOOKUP）に関しての質問です。

    現在、シート名が、A1セル～A5セルの値となっています。（状況によっては増減があります。） VLOOKUP関数の範囲指定をセルの値によってシートを選択するようにしたいと考えています。 シートには、A列とB列にデータがあり、B列の値を元のシートのA2と検索をし、B2に引っ張りたいと思っています。 以下のようなコードを考えているのですが、エラーとなってしまいます。 ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheets(Cells(1, 2).Value)!C[-7]:C[-6],2,0)" Sheets(Cells(1, 2).Value)!C[-7]:C[-6]の部分が間違えていると思うのですが、どのように修正すればよろしいのでしょうか。 申し訳ありませんが、お力をお貸しいただけませんでしょうか、 よろしくお願いいたします。

  • VBAでエラーになってしまう

    初心者です。 RangeクラスのSelectメゾットが失敗しました。となります。 このコードは、マクロの記録を行い、そのコードをコマンドボタンのコードにコピーしたものです。 初心者なので、マクロの記録からやりました。 どうか、わかる方がいらっしゃいましたら、教えてください。 Private Sub CommandButton4_Click() Sheets("印刷ページ").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("C6").Select　←ここが黄色くなり、エラーになります。 ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("D6").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("E6").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("B8").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("C8").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("D8").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("E8").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("F8").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("B10").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("C10").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("D10").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" Range("E10").Select ActiveCell.FormulaR1C1 = "='鈴木　一郎'!R[2]C" End Sub

  • For Each ～ Nextステートメント

    今、1つのブックに200前後のワークシートがあるとします。 For Each ～ Nextステートメントを使って以下のようなプログラムを全てのワークシートに適用したいと考えています。 Sub test() Dim mySht As Worksheet For Each mySht In Worksheets If Range("A2").Value <> "1990/01/31" Then Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2").Select ActiveCell.FormulaR1C1 = "1990/01/31" End If If Range("A3").Value <> "1990/02/28" Then Rows("3:3").Select Selection.Insert Shift:=xlDown Range("A3").Select ActiveCell.FormulaR1C1 = "1990/02/28" End If ・・・（中略）・・・ Next End Sub しかし、これを実行しても、うまくいきません。 全てのワークシートについて、必ずしもA2のセルが 1990/01/31であるとは限らないことが原因かとは思うんですが、自身ではどうしてもうまくプログラムを書くことが できません。良いお知恵を拝借できればと思います。

  • 数字データを「文字列」に変更してもすぐ反映されない

    EXCEL2003＞Vlookup関数で困った現象が起きました。 数字データをセルの書式設定で「文字列」に変更し、 vlookupにて参照したところ、エラーが返ってくる。 しかし、参照元データの上でF2　を押してあげると、正常に値が返る。 ひとつひとつこのF2キーを押してあげるのは大変です。 数字データを「セルの書式設定」で「文字列」データに一括変更する方法はないのでしょうか？ 例 シートA 　　A　　 ｜　B 　社員番号　｜　名前 1｜123　　　 ｜　小泉 2｜456　　　 ｜　森 シートB（シートAを参照し、名前　を返す） 　　A　　 ｜　B 1｜社員番号　｜　名前 2｜123　　 　｜　＃N/A シートA＞A2　の上でF2を押すと、シート2＞B2が正常に値を返します。

  • エクセルのマクロの自動記録で、セルに式を入力すると・・・・

    １．マクロの自動記録で、セルに式を入力すると、 仮にセルA1に =(D1+E1)/F1 と入れると、 ActiveCell.FormulaR1C1 = "=(RC[3]+RC[4])/RC[5]" というようにR1C1形式になってしまいます。 他の場合は通常のA1とかE4とかの形式で記録されるのにどうしてでしょうか？ ２．これを ActiveCell.Formula = "=(D1+E1)/F1" のような形式で記録させる方法はないのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する