投稿日 | : 2003/04/21(Mon) 19:52 |
投稿者 | : むっちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4: FlexGlidでのAfterEditの使用法について |
> 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