| 投稿日 | ： 2003/05/02(Fri) 00:45 |
| 投稿者 | ： 通りすがり |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: FlexGlidでのAfterEditの使用法について |
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
これでどうでしょう？