Private Sub Form_Load()
With MSFlexGrid1
'Перемещаемся в ячейку (1,1)
.Col = 1 'Столбец 1
.Row = 1 'Строка 1
.Text = "Новое значение ячейки"
'Второй способ.
.TextMatrix(2, 2) = "Новое значение ячейки"
End With
End Sub
sash писал(а):Попробуй так:
- Код: Выделить всё
Private Sub Form_Load()
With MSFlexGrid1
'Перемещаемся в ячейку (1,1)
.Col = 1 'Столбец 1
.Row = 1 'Строка 1
.Text = "Новое значение ячейки"
'Второй способ.
.TextMatrix(2, 2) = "Новое значение ячейки"
End With
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
End Sub
Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 14