MSHFlexGrid で複数行コピーするには？

解決

NJ 2003-09-25 23:10:40 No: 79551

お世話になります。先日も質問させていただいた、ＮＪです。
環境は VB6 です。

【質問】----------------------
MSHFlexGrid で、ある列の数行をクリップボートにコピーして、
ある列にそのまま貼り付けるにはどうしたらよいのでしょうか？

1つのセルをコピーして、複数行に貼り付けることは出来たのですが
上記については、なんとなく想像はつくのですが、実際に考えてみる
と、こんがらがってしまいました。

どなたか、ご教授ください。
よろしくお願いいたします。

Say 2003-09-26 02:31:07 No: 79552

列内の選択範囲を1列右にコピーするならこんなかんじ

    Dim r2 As Long, c2 As Long
    With MSHFlexGrid1
        Clipboard.SetText .Clip
        r2 = .RowSel
        c2 = .ColSel
        .Col = .Col + 1
        .ColSel = c2 + 1
        .RowSel = r2
        .Clip = Clipboard.GetText
    End With

NJ 2003-09-26 18:18:12 No: 79553

Sayさん、ご回答ありがとうございました。
お蔭様で、手がかりをつかめて、うまくいきました。

ありがとうございました。