• ベストアンサー

VBAコンパイルエラーについて

お世話になります。 下記記述の矢印部分(af)がコンパイルエラーになり困っています。 「修正候補：ステートメントの最後」と出るのですが、どう修正 して良いのか分かりません。 どなたかご教授頂きたく宜しく御願い致します。 　　　　　記 　　　　　　　　　　　　　　　　　　　 　　　　　　↓ myrng.Cells(nrow, 10).Formula = "=Sum("af" & myrow & ":af" & nrow)"

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

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

myrng.Cells(nrow, 10).Formula = "=Sum(af" & myrow & ":af" & nrow & ")" なのでは？

miruchoko
質問者

お礼

いつもありがとうございます。 解決しました。

その他の回答 (1)

回答No.2

修正方法のご質問ですね お困りでしょう。 そりゃもちろんそのような書き方ではエラーが出てしまいます^^ このようにすれば エラーがでないでコンパイルする事ができますよ＞＜ｂ myrng.Cells(nrow, 10).Formula = "" ёёё　素晴らしきかな。老婆心。 　　　　　あなたのお悩みjavajavax2がずばり解決！　ёёё

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

関連するQ&A

  • エクセルVBAのエラー

    お世話になります。 A列に2014/12/29のように日付がはいってます。 G2に=TEXT(SUBSTITUTE(RC[-6]," / ",""),"yyyymm")と 手入力すると問題なく20141229と表示されます。 しかし、 VBAでセルG2に Cells(2, 7) = "=TEXT(SUBSTITUTE(RC[-6]," / ",""),"yyyymm")" と入力して実行させようとすると、 コンパイルエラー 修正候補：ステートメントの最後 と表示されて実行できないのですが なぜでしょうか？ 宜しくお願い致します。 バージョン2010です

  • VBA(エクセル)のコンパイルエラー

    お世話になります。 下記のマクロを記述したのですが、ウエから7行目の mid(Cells(i, colNum + 1).Value, 7, 11) のところで、下記のようなコンパイルエラーが出てしまいます。 試しに".Value"をとっても見ましたが、結果は同じでした。 どこをどう直せばよろしいのでしょうか、よろしくご指南くださいませ。 Sub mid_ac() Dim i As Integer Dim colNum As Integer i = 2 colNum = ActiveCell.Column Do Until Cells(i, 1).Value = "" Cells(i, colNum).Value = mid(Cells(i, colNum + 1).Value, 5, 10) i = i + 1 Loop End Sub コンパイルエラー： モジュールではなく、変数またはプロシージャを指定してください (ちなみに、このマクロは選択したセルの右隣にあるセルの左から5文字目～10文字目までを、表示させるものです。答えて下さる方には老婆心かもしれません。。。)

  • アクセス2010でコンパイルエラーが出てしまいます

    顧客情報の入力時に重複データをチェックする為の以下のコードにエラーが出てしまいました。 strSQL = "Select*From 顧客情報 "&_ "Where 氏名 ='"& strName &"' "&_ "And 住所='"& strAddress &"' "&_ "And 電話番号_１_='"& strTelNo &"' " >strSQL = "Select*From 顧客情報 "&_ コンパイルエラー：不正な文字です。 >"Where 氏名 ='"& strName &"' "&_ >"And 住所='"& strAddress &"' "&_ >"And 電話番号_１_='"& strTelNo &"' " コンパイルエラー：修正候補：行番号または行ラベルまたはステートメントまたはステートメントの最後 Ａｃｃｅｓｓがほとんどわからないので、ネットで調べたところ コードまるまる記載されているのがあったので、同じように入力していきましたら 上記のようなエラーが出てしまいました；； これだけでは、わからないという事でしたらおっしゃってください。 お手数掛けますが、よろしくお願いいたします。 (初心者なのでわかりやすい回答ですと助かります...）

  • vba 記述をスマートにしたい

    お世話になります。 以下の記述をもっと簡略化させたいのですが、 列とシートが違うだけで、同じ処理を２回しているだけなので、 出来そうで、自分では出来ませんでした。 どなたかご教示頂きたく宜しくお願い致します。 　　　　　　記 Set myrngv = Workbooks("Ａ.xls").Sheets("sheet1").Range("a:a") Set myrngYK = Workbooks("Ａ.xls").Sheets("sheet1").Range("t:t") Set myrialz = Workbooks("Ａ.xls").Sheets("sheet2").Range("b:b") Set myXBrialz = Workbooks("Ａ.xls").Sheets("sheet3").Range("b:b") j = 3 Do j = j + 1 myhin = myrngv.Cells(j, 1).Value If myhin = "" Then Exit Do Set c = myrialz.Find(what:=myhin, Lookat:=xlWhole) If Not c Is Nothing Then firstaddress = c.Address Do myrow = c.Row myrngv.Cells(j, 9) = myrialz.Cells(myrow, 7).Value myrngv.Cells(j, 11) = myrialz.Cells(myrow, 8).Value myrngv.Cells(j, 13) = myrialz.Cells(myrow, 3).Value myrngv.Cells(j, 5) = myrialz.Cells(myrow, 3).Value + Cells(myrow, 7).Value - Cells(myrow, 8).Value Set c = myrialz.FindNext(c) Loop Until firstaddress = c.Address End If Loop 'ここより下が同じ様な処理 j = 3 Do j = j + 1 myhin = myrngYK.Cells(j, 1).Value If myhin = "" Then Exit Do Set c = myXBrialz.Find(what:=myhin, Lookat:=xlWhole) If Not c Is Nothing Then firstaddress = c.Address Do myrow = c.Row myrngYK.Cells(j, 8) = myXBrialz.Cells(myrow, 7).Value myrngYK.Cells(j, 10) = myXBrialz.Cells(myrow, 8).Value myrngYK.Cells(j, 12) = myXBrialz.Cells(myrow, 3).Value myrngYK.Cells(j, 6) = myXBrialz.Cells(myrow, 3).Value + Cells(myrow, 7).Value - Cells(myrow, 8).Value Set c = myXBrialz.FindNext(c) Loop Until firstaddress = c.Address End If Loop

  • アクセステーブルのデータをエクセルシートへ

    お世話になります。 下記のようにベタ書きで、データを取得していますが、 コード行数を少なくしたいと思っており、 ＦＯＲ　ＮＥＸＴで対応出来ないかと考えてやって見ましたが うまく行きません。アクセステーブルのフィールドは順番に並んで います。コードの書き方をご教示頂きたくお願い致します。 　　　　記 myrng.Cells(n, 1) = rs!住所 myrng.Cells(n, 2) = rs!氏名 myrng.Cells(n, 3) = rs!年齢 myrng.Cells(n, 4) = rs!性別 myrng.Cells(n, 5) = rs!職業 ↓↓（下記の書き方で、「実行時エラー３２６５ 　　　　　このコレクションには項目がありません」と 　　　　　出てしまいす。） For h = 1 To 5 　myrng.Cells(n, h) = rs!Fields(h).Value Next h

  • エクセルVBAで解らないコードの意味を教えてくれませんか？

    お世話になります。 以前こちらでVBAで質問した際に下記のようなコードを教えていただきました。足し算のコードと言うのは分かるのですが、SUM以降の意味がどうも理解できませんでした。どなたか判る方教えていただけませんでしょうか？ ws.Range(ws.Cells(r, 2), ws.Cells(r, c)).Formula = "=SUM([" & .Parent.Name & "]" & .Name & "!A3:A" & .Rows.Count & ")" よろしくお願いします。

  • ＶＢＡのソートで

    お世話になります。 初歩的な質問なのですが・・。 表のソートをしたいのですが、 表は２行目に見出しがあり３列で１００行の構成です。 下記の様な記述で表の範囲をセットするところでエラー がかかってしまうのですが、どうしたらうまくいくでしょうか。 どなたかご教示頂きたく宜しくお願い致します。 　　　記 Sub ソート() Dim myrhg As Range Dim myar As Variant Dim i As Long Sheets("台帳").Range("A1").CurrentRegion.Select Selection.Offset(1, 0).Select Set myrng = Selection.Resize(Selection.Rows.Count - 1).Select myar = Array(1, 2, 3) With myrng For i = 0 To UBound(myar) .Sort key1:=Cells(1, myar(i)), Order1:=xlAscending, header:=xlYes Next End With Set myrng = Nothing End Sub

  • ACCESSのコンパイルエラーについて

    初心者です。 教本を見ながら練習していまして、下記のコードを、サブフォームの商品コードコンボボックスのプロパティ→イベント→フォーカス喪失時→ビルド→オブジェクト＝商品コード、プロシージャボックス＝Exitの状態で Private Sub 商品コード_Exit(Cancel As Integer) 商品名=dlookup("商品名","商品","商品コード='"&商品コード&"'") End Sub の記述をしたときに、コンパイルエラー　修正候補：区切り記号または） のメッセージが出てしまいます。教本どおりに記述したはずですし、商品テーブルには、商品名と商品コードがともにテキスト型で登録されております。 原因が見当つかないのですが・・・・。 多分、どこかで大ボケしているとは思うのですが、わかりません。 的を射ない質問かもしれないので、恐縮ですが。 Access2002　VB　6.0です。

  • EXCEL VBA SUM関数利用時？

    EXCEL2000にて kakikomi→セル行数の変数です ５列、２行に入力されている数値を加算して ３行目(結合セル）に答えを出したいため 下記のように書き込みました。 計算は実行できるのですが 長文になってしまい修正などがあった場合困ると思います もっと見やすく、修正も楽なようにするには どの様にすれば宜しいでしょうか？ ActiveSheet.Cells(kakikomi + 3, 2) = Application.WorksheetFunction _ .Sum(Cells(kakikomi, 2), Cells(kakikomi, 3), Cells(kakikomi, 4), Cells(kakikomi, 5), Cells(kakikomi, 6) _ , Cells(kakikomi + 2, 2), Cells(kakikomi + 2, 3), Cells(kakikomi + 2, 4), Cells(kakikomi + 2, 5), Cells(kakikomi + 2, 6)) 宜しくお願いいたします。

  • アクセスでタイトルバーに会社名や日付を表示するには？

    いつもお世話になってます。アクセスでタイトルバーに会社名や日付を表示させようとして、フォームの読み込み時のイベントに下記の処理を記述したところ、「コンパイルエラー：修正候補：ステートメントの最後」と出て、「"】"」のところが黄色でハイライトされます。どのように修正したらよいのでしょうか？よろしくお願いいたします。。。 Me.Caption="会社名【"＆Me.Caption&"】"&_ Format(Date,"yyyy年ｍ月ｄ日(aaa)")

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する