いつもお世話になっております。

掲題の件で、質問させてください。
エクセルで複数のセルを選択し、コピーしたものをクリップボードから
MSFlexGridに貼り付けようとしています。
いま、悩んでいることは、選択するデータ数が毎回異なる場合、
クリップボードのデータをセットする時に、MSFlexGridの貼り付け
終了位置の設定をどうしたら良いのかという点です。
ちなみに１列×複数行のデータを扱おうとしているのですが、
クリップボードの要素数を数える方法を解っておりません。
申し訳ありませんが、ご存知の方がいらっしゃいましたらご教授願います。
よろしくお願いします。

いつもお世話になっております。
現時点では選択したセルの数を数えるためにRichTextBoxに貼り付けて
その総行数を取得し、MSFlexGridのペースト範囲設定時に、セル数分の
行を設定しました。良いやり方では無いかもしれませんが、やりたい事は
達成できました。
他の表現方法をご存知方がいらっしゃれば、ご教授ください。
よろしくお願いします。

こんにちは、じゃんぬねっと です。

> いま、悩んでいることは、選択するデータ数が毎回異なる場合、
> クリップボードのデータをセットする時に、MSFlexGridの貼り付け
> 終了位置の設定をどうしたら良いのかという点です。
> ちなみに１列×複数行のデータを扱おうとしているのですが、
> クリップボードの要素数を数える方法を解っておりません。
> 申し訳ありませんが、ご存知の方がいらっしゃいましたらご教授願います。
> よろしくお願いします。

えっと、

　Tab区切り == 列の境目
　改行コード == 行の境目

じゃなかったでしょうか?

はじめまして。
ご指摘いただいた内容を元に処理を作ってみます。
ありごとうございました。

> こんにちは、じゃんぬねっと です。
> えっと、
>
> 　Tab区切り == 列の境目
> 　改行コード == 行の境目
>
> じゃなかったでしょうか?

テスト結果のままのコードなので、参考までに。

Private Sub Command2_Click()
    Dim myDate As String
    Dim cpCol As Integer
    Dim cpRow As Integer
    Dim myCol As Integer
    Dim myRow As Integer
    If Clipboard.GetFormat(vbCFText) Then
        myDate = Clipboard.GetText
    End If
    cpRow = UBound(Split(myDate, vbCrLf))
    If cpRow > 0 Then
        cpCol = (UBound(Split(myDate, vbTab)) / cpRow) + 1
    End If
    If cpRow = 0 Or cpCol = 0 Then Exit Sub
    myCol = 2
    myRow = 2
    With MSFlexGrid1
        .Col = myCol
        .Row = myRow
        .RowSel = myRow + cpRow - 1
        .ColSel = myCol + cpCol - 1
        .Clip = myDate
    End With
End Sub

いつもお世話になっております。
返事が遅くなりましてすいません。
大変参考になりました。
クリップボードのデータがテキストタイプであることを確認後、
改列・改行コードで分割しながらデータ数をカウントし、
何行・何列かを把握するわけですね。
勉強になりました。
誠にありがとうございました。