| 投稿日 | ： 2005/06/28(Tue) 00:04 |
| 投稿者 | ： ぶぶ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: フレキシブグリッド |
テキストボックスをコントロール配列にするとすっきりするかも。
Private Sub フレキシブル_click()
Dim Row As Long
Dim Col As Long
With フレキシブル
Row = .Row '列位置取得
For Col = 0 to .Cols - 1 ' 最初の列から最後の列まで
Text(Col).Text = .TextMatrix(Row, Col)
Next Col
End With
End Sub
参考までに。