• ベストアンサー

データグリッドビューに表示された数字を足したい

すごく基本的な質問になると思います。 データグリッドビューの1列目に表示された数字を全部足したいのですが、 行の数は可変で毎回変わります。 たぶんFor Each～を使えばうまくいくと思うのですが、 最近覚え立てなのでどう書いていいかわかりません＞＜ すみませんが、VB経験者の方、教えていただけますでしょうか。

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

  • ベストアンサー
回答No.1

Dim sum As Integer = 0 For i As Integer = 0 To CInt(DataGridView1.RowCount) Step 1 sum += CInt(DataGridView1(0, i).Value) Next ではないかと。 データグリッドはコレクション型ではないのでFor Each文では無理だと思います。

sineminna
質問者

お礼

どうもありがとうございます。

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

関連するQ&A

  • データグリッドビューの表示時

    ＶＢ.NET（VS2010）で開発しています。 データグリッドビューで複数行のデータを表示する際に１レコードずつ フィールド（カラム？）の値を確認して、それによってデータグリッドビューの あるフィールドを非表示にしたり罫線を消したり又は太字にしたりすることは 可能でしょうか？

  • データグリッドビューの一覧に無いファイルの検出

    VB2008・WINXP環境で、acsessのMDBファイルを読み込み、データグリッドビューにファイル名を表示、データグリッドビューをクリックすると指定フォルダのPDFファイルを展開というシステムを作っています。 使っていると、指定フォルダのPDFファイルの数とデータグリッドビューの表示件数（MDBのレコード件数）と合わなくなってきます。 指定フォルダの中からデータグリッドビューの一覧に無いものを検出する方法はあるでしょうか？ 色々調べたり考えたりしたのですが、わかりません。 よろしくお願いします。

  • VB2005でデータグリッドビューにTextBoxのセルとComboBoxのセルを表示

    はじめまして。プログラム開発初心者です。よろしくお願いいたします。 OSはWin2000、VB2005でプログラムを作成しています。 データベースはACCESS2000を使用しています。 今回はデザイナではなく、プログラムにてDatagridView.ROWS.ADDで行追加したいと思っています。 フォームにデータグリッドビューを配置し、三つのカラムにデータベースから持ってくるデータをを表示させたいと思っています。 ただし三つ目のカラムをコンボボックスにして ４つのデータを用意してデータを変更できるようにしたいと思っています。 DatagridView.ROWS.ADDにてテキストボックスカラムを二つ、コンボボックスの列を一つ行追加するにはどのようにしたらいいのでしょうか？ またそのコンボボックスの中身の設定はどのようにしたらよいのでしょうか？ テキストボックスのみの行追加はできるのですが。。。 テキストボックスカラム＋コンボボックスのカラムを追加する方法を調べたのですが探しきれませんでした。 お知恵をおかしください。

  • データグリッドビューの任意の列を削除

    ＶＢ2010にて、下記のコードを実行すると、左端にいらない列が表示されます。 左端にコンボボックスを表示したいのですが、うまくいきません。 左端の列を削除する方法。 または、左端にコンボボックスを表示する方法を教えていただけませんでしょうか。 ご存知の方、どうぞよろしくお願いいたします。 '■■■データグリッドビューセット■■■ '初期化 Me.DataGridView1.Columns.Clear() '最下部の新しい行を非表示 Me.DataGridView1.AllowUserToAddRows = False '行追加 Me.DataGridView1.RowCount = 気筒数 + 2 'コンボボックス列を追加 Dim i As Integer Dim BS As New BindingSource() For i = 1 To 系列数 BS.Add(系列名(i)) Next i Dim ComboBox As New DataGridViewComboBoxColumn() ComboBox.HeaderText = "系列名を選択" ComboBox.DataSource = BS Me.DataGridView1.Columns.Add(ComboBox) Me.DataGridView1.Columns(0).Width = 110

  • 【Excel365】数字のみの場合に表示させたい

    A列に10桁固定の数字のみ入力されていたらC列に「有効」と表示させる関数をご教示ください。 A列は0から始まる数字もあるため文字列です。 行数は数百行あります。 列の挿入はできません。 よろしくお願いします。

  • エクセルで数字のみのデータが違う内容で表示される

    エクセルで数字のみのデータが違う内容で表示される システムから自動で吐き出されたＣＳＶファイルがあります。 カンマ区切りです。 このファイルをクリックします。エクセルが立ちあがり、内容が見れます。 Ａ列からＧ列まであります。 Ａ列は日付で例 　2010/9/16 Ｂ列は時刻で例 　18:01:10 Ｃ，Ｄ，Ｅ，列は全て数字のみで例 　Ｃ列12345 　Ｄ列55555 　Ｅ列333 Ｆ列は数字と英数字で例 　Ｆ列A1C でこのとうり画面表示されます。 Ｇ列ですが、数字＋英字と数字のみのデータが混在です。 例えば ABC123456789 これは画面表示でもセルを選択してセル参照の枠内にも ABC123456789 と表示されています。 ではここに数字のみのデータで例えば 90983031000080だと 画面には9.083E+13と表示されます。 セル参照の枠内には 90983031000080となっています。 Ｃ，Ｄ，Ｅ列も数字のみなのにこのように相違表示しません。 これを画面表示で 90983031000080と表示させる方法は どうすればいいでしょうか？ なおこのファイルは毎夜夜間バッチでデーター自動追加で 例えば昨日までは１００行有り、 今日見ると１００行目の次の１０１行目から新しいデータが 追加され１５０行まで増えています。 加算量はその日のデータ量なので毎日違います。 明日は１５１行目から１２０行が２７１行に増加という感じです。 でこのＣＳＶファイルをいつ開いても印刷しても上記Ｇ列は 上記のように表示をさせたいです。 よろしくお願いします。

  • Excelの列が数字になってしまいました

    なぜか、Excelの行・列の表示が数字になってしまいました。行は数字、列はアルファベットに戻したいのですが、どのようにすればよろしいのでしょうか？

  • VB2010でデータグリッドビューに列追加

    VB2010でデータグリッドビューを使用したいのですが、 下記のコードを実行すると、 ※エラー1「指定された列は DataGridView コントロールに既に属しています。」がでます。 列インデックスがいるのかなと、コードを追加してみると ※エラー2「プロパティIndexはReadOnlyです」がでました。 どう直せばよいかわかるかた教えてください。 どうぞよろしくお願いします。 変数に入っているもの 系列数=2 系列名(0)=deg 系列名(1)=V 系列名(2)=P Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "データビュー" '初期化 Me.DataGridView1.Columns.Clear() '列追加 Dim i, j As Long Dim TBColumn As New DataGridViewTextBoxColumn() For i = 0 To 系列数 TBColumn.Name = 系列名(i) TBColumn.Index = i '←※エラー2　エラー後に追加してみた Me.DataGridView1.Columns.Add(TBColumn) '←※エラー1 Next i '行追加 Me.DataGridView1.RowCount = データ数 'データ追加 For j = 1 To データ数 For i = 0 To 系列数 Me.DataGridView1(系列名(i), CInt(j - 1)).Value = グラフデータ(i, j) Next i Next j '列幅設定 For i = 0 To DataGridView1.Columns.Count - 1 Me.DataGridView1.Columns(i.ToString).Width = 30 Next i End Sub End Class

  • EXCEL2000の行・列の表示される数字・アルファベットについて

    エクセル2000を利用しています。 通常、行と列には、数字とアルファベットが表示されています。 ところが、どういうわけか、行と列の表示が両方とも 数字になってしまいました。 わかりにくくてしょうがないので、元にしたいと思います。 どなたかこの設定の変更の仕方を ご存知の方はいらっしゃらないでしょうか？ よろしくお願い致します。

  • エクセルで数字の下１桁を見て並び替える

    エクセルで下記の様な数字が並んでいます。 A列の下１桁の数字は上から順に増えていて、ある数字で１に戻りまた増えています。 その数字は毎回同じではなく、６までの場合もあれば１０までの場合もあります。 下記の例では上から６行、次は４行、次は７行と下１桁の数字によってグループ分け出来ますよね？ それで上から６行目までのB列の値（４６２～５３０）をコピーしてSheet2のA1から横方向に並べます。 その次は７行目から１０行目までのB列の値（３５６～４８７）をコピーしてSheet2のA2から横方向に並べます。 その次も同じように並べます。 Ｂ列が空欄の場合もありますが、その場合はそのままSheet2にも空欄のセルを作ります。 １グループ全部のB列が空欄でもそのままSheet2に空欄の行を作ります。 この動作をマクロで出来る式を教えて頂けないでしょうか？ A列　　　　　　　　　　B列 0213240101 　　　 462 0213240102　　　 387 0213240103　　　 556 0213240104　　　 585 0213240105　　　 536 0213240106　　　 530 0213240201　　　 356 0213240202　　　 632 0213240203　　　 486 0213240204　　　 487 0213240301　　　 586 0213240302　　　 670 0213240303　　　 619 0213240304 0213240305　　　 645 0213240306　　　 487 0213240307　　　 651 0213240401 0213240402 0213240403 0213240501　　　 455 0213240502　　　 623 0213240503　　　 411 Sheet2 A列　　　B列　　　　C列　　　D列　　　　E列　　　　F列　　　G列 462　　　 387　　　 556　　　 585　　　 536　　　 530 356　　　 632　　　 486　　　 487 586　　　 670　　　 619　　　 　　　 　　　 645　　　 487　　　 651　　　 455　　　 623　　　 411

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する