Копирование и вставка текста в MSFlexGrid
2009-10-25 07:00 Александр
Копирование и вставка текста в MSFlexGrid
Sub CopyClipboard()
On Error Resume Next
Dim xStart As Integer, yStart As Integer
Dim xEnd As Integer, yEnd As Integer
Dim i As Integer, j As Integer
Dim strClipboard As String
With Screen.ActiveForm.ActiveControl
'координаты верхнего левого угла диапазона копирования
xStart = .Col
yStart = .Row
[...]