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

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

ただいまの
回答率

90.84%

  • VB.NET

    854questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • .NET Framework

    417questions

    .NET Framework は、Microsoft Windowsのオペレーティングシステムのために開発されたソフトウェア開発環境/実行環境です。多くのプログラミング言語をサポートしています。

  • Visual Basic .NET

    94questions

    Microsoft Visual Basic .NET (VB.NET)とはオブジェクト志向のプログラム言語です。 Microsoft"s Visual Basic 6 のバージョンアップとしてみることができますが、Microsoft.NET Frameworktによって動かされています。

  • Visual Studio 2012

    90questions

    Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです

DataGridViewにおいて、値計算のロジックで悩んでいます。

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 1,006

churi_yuzuki

score 24

前提・実現したいこと

イメージ説明

上図のようなDataGridViewを作成し、valueカラムを編集した時に、関連する値が変化するようなプログラムを組みたいです。
また、その値が最小最大を超えたときに色を変える仕掛けもあり、そちらは出来ています。
計算ロジックは内部で組み込んであり、
A=930-B
B=930-A
C=2400-D
D=2400-C
です。

発生している問題・エラーメッセージ

下記のコードだと、AとCを計算したときは上手くいくのですが、BとDを変更した時は上手く動きません。
また、Loadイベントでdatagridviewを描画したときに、CellValueChangedイベントが起きてしまうのでtry~catchにしていますが、他に良い方法はありますでしょうか。

該当のソースコード

Private Sub CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
            Calculate()
    End Sub

Private Sub Calculate()
        Try
            A = Integer.Parse(DataGridView1(1, 1).Value)
            B = 930 - A
            DataGridView1(1, 2).Value = B

            B = Integer.Parse(DataGridView1(1, 2).Value)
            A = 930 - B
            DataGridView1(1, 1).Value = A

            C = Integer.Parse(DataGridView1(1, 3).Value)
            D = 2400 - C
            DataGridView1(1, 4).Value = nineteen

            D = Integer.Parse(DataGridView1(1, 4).Value)
            C = 2400 - D
            DataGridView1(1, 3).Value = C

        Catch ex As Exception
            Return
        End Try

分かりにくくて申し訳ありませんが、ご教授お願いいたします。

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

回答 2

checkベストアンサー

+1

Valueの編集をDatagridviewのみで行うのであれば、CellEndEditかCellValidatingを使用してはどうでしょうか?

また、B、Dを変更した際にCalculate内で
1.A変更時の計算(BのValueが変更される)
2.B変更時の計算(AのValueが変更される)
と順番に動くので1にて編集したBの値が上書きされてしまいます。
ですので、行が固定なのであれば、

Private Sub Calculate(EditRowIndex As Integer)
        Try
            Select Case EditRowIndex
                Case 1
                    'A変更時の計算
                Case 2
                    'A変更時の計算

        Catch ex As Exception
            Return
        End Try


みたいに変更した行のみ計算を行うようにすればどうでしょうか

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/01/17 09:39 編集

    回答ありがとうございます。
    厳密に条件を設定したら出来ました、ありがとうございます。
    あと追加で申し訳ありませんが、

    ```
    Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    Dim dgv As DataGridView = CType(sender, DataGridView)

    'セルの列を確認
    If dgv.Columns(e.ColumnIndex).Name = "value" AndAlso TypeOf e.Value Is Integer Then
    Dim val As Integer = CInt(e.Value)
    Dim min As Integer = CInt(dgv.Item(e.ColumnIndex + 1, e.RowIndex).Value)
    Dim max As Integer = CInt(dgv.Item(e.ColumnIndex + 2, e.RowIndex).Value)

    'セルの値により、背景色を変更する
    If val < min Or val > max Then
    e.CellStyle.BackColor = Color.Yellow
    ElseIf val = 0 Then
    e.CellStyle.BackColor = Color.Red
    Else
    e.CellStyle.BackColor = Color.Empty
    End If

    End If
    End Sub

    ```

    というイベントを記述しているのですが、色が変わってくれません。
    何か問題があるのでしょうか。。

    キャンセル

  • 2017/01/17 14:13 編集

    他の部分がどうなっているか不明なので分かりませんが、

    If dgv.Columns(e.ColumnIndex).Name = "value" AndAlso TypeOf e.Value Is Integer Then

    このIf文でのNameが"Value"ではない、もしくはe.ValueのTypeがIntegerではないのではないかと思います。
    (If文の条件に合うよう設定し実行すると、このままのソースでも色は変わりました)

    また、色を変更する条件ですが、値が0の場合、val=0の判定をする前にval<minのチェックに引っかかります。
    ですので、赤色にならずに黄色になります。

    キャンセル

  • 2017/01/17 15:51

    Datatableを見直したらValueカラムのTypeがIntegerではなかったことが原因でした、、
    本当にありがとうございました!

    キャンセル

+1

Loadイベントでdatagridviewを描画したときに、CellValueChangedイベントが起きてしまう

datagridviewの描画が済んだあとで、CellValueChangedイベントハンドラを設定するようにすればいいのでは?

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/01/13 09:46

    回答ありがとうございます。
    すいません、Loadイベントの冒頭でRemoveHandler、最後にAddHandlerをつければ動きました、、
    ロジックについて何かありますでしょうか。。

    キャンセル

  • 2017/01/13 17:41

    > BとDを変更した時は上手く動きません。
    よくわからないですけど、BかDを変更しても、AやCを元にした計算結果でBやDが上書きされているからじゃないんですかね?
    ステップ実行でどんな動きをしているか確認する方が早い気がしますよ
    こうなるはずだと都合よく思い込んでいませんか?

    キャンセル

  • 2017/01/17 10:04

    回答ありがとうございます。
    確認したら上書きする動きになっていました、、
    ありがとうございます!

    キャンセル

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

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

関連した質問

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

  • VB.NET

    854questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

  • .NET Framework

    417questions

    .NET Framework は、Microsoft Windowsのオペレーティングシステムのために開発されたソフトウェア開発環境/実行環境です。多くのプログラミング言語をサポートしています。

  • Visual Basic .NET

    94questions

    Microsoft Visual Basic .NET (VB.NET)とはオブジェクト志向のプログラム言語です。 Microsoft"s Visual Basic 6 のバージョンアップとしてみることができますが、Microsoft.NET Frameworktによって動かされています。

  • Visual Studio 2012

    90questions

    Microsoft Visual Studio 2012は、Microsoftによる統合開発環境(IDE)であり、多種多様なプログラミング言語に対応しています。 Visual Studio 2010の次のバージョンです