質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.93%

VBでエクセルに合計値を書き込みたい

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 692
退会済みユーザー

退会済みユーザー

こんにちは。プログラミング歴数週間の初心者です。
Visual Studio 2015で開発しています。

以下のように、SQLで持ってきたデータテーブルを行のデータがなくなるまで繰り返す形で、
エクセルに表として出力したあと、
最終行にa,b,c,d(金額のデータが入っています)それぞれの合計値を書きたいのですが、どのような処理をすればA,B,C,Dの値を任意のセルに書き込めるのかわかりません。
御教授願いますm(_ _)m

イメージ

列1 列2 列3 列4 列5 列6 a b c d
a b c d
a b c d
            A B C D

:                        ↑合計

        Dim Row As Integer = 0

        Dim A As Integer = 0 'A合計
        Dim B As Integer = 0 'B合計
        Dim C As Integer = 0 'C合計
        Dim D As Integer = 0 'D合計

        xls.BookOpen(Bag.ExcelBookPath & "Excel.xlsx")

        xls.NewArray(r.Rows.Count, 10) = "明細"

        For Each dr As DataRow In r.Rows

            xls.RangeField("明細", Row, 0) = dr("列1")
            xls.RangeField("明細", Row, 1) = dr("列2")
            xls.RangeField("明細", Row, 2) = dr("列3")
            xls.RangeField("明細", Row, 3) = dr("列4")
            xls.RangeField("明細", Row, 4) = dr("列5")
            xls.RangeField("明細", Row, 5) = dr("列6")
            xls.RangeField("明細", Row, 6) = dr("a")
            xls.RangeField("明細", Row, 7) = dr("b")
            xls.RangeField("明細", Row, 8) = dr("c")
            xls.RangeField("明細", Row, 9) = dr("d")

            A += dr("a") '足していく処理
            B += dr("b")
            C += dr("c")
            D += dr("d")

            Row += 1

            xls.RangeField("明細", ?, 6) = A
            xls.RangeField("明細", ?, 7) = B
            xls.RangeField("明細", ?, 8) = C
            xls.RangeField("明細", ?, 9) = D

        Next

        xls.RangeFieldGo("明細", "A2")


Row+1のあとに挿入したコードの?に0を入れると、エクセルの2行目(1行目には項目名が書いてあります)に合計値が入ったので、?の部分を工夫すれば解決するのかと考えましたがよくわかりませんでした。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • ttyp03

    2017/03/31 10:44

    Excelを操作するためのオブジェクト(xls)は何でできているのですか?RangeFieldなどのメソッドを調べても出てこないので。独自のクラスでしょうか?

    キャンセル

  • akabee

    2017/03/31 10:48

    「xls」は何という型なのか分かりますか?(この質問の意味は分かりますか?)私が不勉強なのかもしれませんが、BookOpen、NewArray、RangeFieldなど見慣れないメソッドが使われています。これは邪推ですが、どなたかの作られたクラスを利用されているのではないでしょうか?そのクラスの仕様が分からないので、回答ができない状況にあります。

    キャンセル

  • 退会済みユーザー

    退会済みユーザー

    2017/03/31 10:57

    たしかにほかの方に作っていただいたクラスを利用しています。問い合わせます。ありがとうございます。

    キャンセル

回答 2

0

RangeFieldGo の検索結果が 0 件だったので仕様がよくわかりませんが、0 で二行目になるなら、r.Rows.Count を入れるとその場所に行きそうな気がします。試してみてください。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

check解決した方法

-3

自己解決しました。ありがとうございました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/03/31 11:04

    作った人に問い合わせできるなら最初からそちらに聞いてください。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.93%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る