FlexGridで、AfterEditの関数を使用して、
二つ横並びしているセルを足したら、１００になるようにしたいんです。
例えば、二つのセルに２０と８０が入ってて、
前のセルの20を30に変更すると自動的に後ろのセルの80を70に、
後のセルの70を60に変更すると自動的に前のセルがの0を40になるようにしたいのです、、、。

VB全くの初心者で困っています。
どうかよろしくお願い致します。

AfterEditイベントがあるということはグレープシティ社のVSFlexGridですね。

方針としては

現在の列Colが前のセルか後のセルなのかを
Select Case ステートメントかIf...Then...Else ステートメントを使って
条件分けをしてそれぞれにあった計算をするコードを書きます。

> AfterEditイベントがあるということはグレープシティ社のVSFlexGridですね。
>
> 方針としては
>
> 現在の列Colが前のセルか後のセルなのかを
> Select Case ステートメントかIf...Then...Else ステートメントを使って
> 条件分けをしてそれぞれにあった計算をするコードを書きます。
IF文で何とかしようとしたのですが、
できませんでした、、、。(T-T)

> IF文で何とかしようとしたのですが、
> できませんでした、、、。(T-T)

Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
    If Col = 前のセルの列の番号 Then
        後のセルの値 = 100 - 現在(前)のセルの値
    ElseIf Col = 後のセルの列の番号 Then
        前のセルの値 = 100 - 現在(後)のセルの値
    End Select
End Sub

> Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
>     If Col = 前のセルの列の番号 Then
>         後のセルの値 = 100 - 現在(前)のセルの値
>     ElseIf Col = 後のセルの列の番号 Then
>         前のセルの値 = 100 - 現在(後)のセルの値
>     End Select
> End Sub
afterEditの中で以下のプログラムを書いたのですがだめでした、、、。
どこが悪いか教えていただけないでしょうか。
よろしくお願い致します。

         Dim i  As Integer
         　　For i = 0 To .Rows - 1
         　　　　If .Col = 9 Then
            　　　　.Cell(flexcpText, 10, i) = 100 - .Cell(flexcpText, 9, i)
         　　　　ElseIf .Col = 10 Then
            　　　　.Cell(flexcpText, 9, i) = 100 - .Cell(flexcpText, 10, i)
         　　End If
         Next

> afterEditの中で以下のプログラムを書いたのですがだめでした、、、。
どんなふうにだめだったかを書いてください。
どの部分でどんなエラーメッセージが出るのかなど。

>         .Cell(flexcpText, 10, i) = 100 - .Cell(flexcpText, 9, i)
Cellプロパティの引数を確認してください。

Private Sub VSFlexGrid_AfterEdit(ByVal Row As Long, ByVal Col As Long)
    With VSFlexGrid
　　　　If Col = 9 Then
　　　　    .Cell(flexcpText, Row, 10) = 100 - .Cell(flexcpValue, Row, Col)
　　　　ElseIf Col = 10 Then
　　　　    .Cell(flexcpText, Row, 9) = 100 - .Cell(flexcpValue, Row, Col)
　　    End If
    End With
End Sub

これでどうでしょう？