| Вопрос: MSFlexGrid - работа с матрицами? | Добавлено: 12.06.06 19:29 |
Автор вопроса:  КУДЕСНИК
|
|
у меня возник вопрос и я не как не могу его решить(
сделать ввобщем нужно что то вроде как в excel пусть есть матрица чиссел нужно найти среднее значение под этим столбцом помогите пожалуйста |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  КУДЕСНИК Вопросов: 10 Ответов: 13 |
Профиль | | #1 | Добавлено: 12.06.06 19:40 |
|
слушайте а почему не работает программа
Function GetCellIndex(MSFlexGrid As MSFlexGrid, row As Integer, col As Integer) GetCellIndex = row * MSFlexGrid.Cols + col End Function Private Sub MSFlexGrid1_Click() If MSFlexGrid1.FocusRect = flexFocusHeavy Then Text1.Text = GetCellIndex End If End Sub я хотел чтобы если мы щелкаем по ячеки то в тексте показывался их индекс |
||
|
Номер ответа: 2 Автор ответа: Random665 ICQ: 256557986 Вопросов: 1 Ответов: 8 |
Профиль | | #2 | Добавлено: 13.06.06 11:19 |
|
у меня твоя прога работает вот в таком виле сов. спокойно( я убрал Иф и добавил аргументы в ф-ию):
Text1.Text = GetCellIndex(MSFlexGrid1, MSFlexGrid1.row, MSFlexGrid1.col)
|
||
|
Номер ответа: 3 Автор ответа: Random665ICQ: 256557986 Вопросов: 1 Ответов: 8 |
Профиль | | #3 | Добавлено: 13.06.06 12:32 |
|
Вот допустим прога такая: щёлкаешь по ячейке, а в тетстбоксе-среднее арифметическое этого столбца.
Private Sub MSFlexGrid1_Click()
Dim i As Long Dim sum As Single For i = 1 To MSFlexGrid1.Rows - 1 sum = sum + Val(MSFlexGrid1.TextArray(i * MSFlexGrid1.Cols + MSFlexGrid1.col)) Next Text1.Text = sum / (MSFlexGrid1.Rows - 1) End Sub |
||
Страница: 1 |