tagCANDY CGI VBレスキュー(花ちゃん) - クリップボードのデータから要素数(列数)を数えるには(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
クリップボードのデータから要素数(列数)を数えるには(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

クリップボードのデータから要素数(列数)を数えるには(VB6.0) [No.97の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/09/13 05:34
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[グリッド関係][クリップボード][エクセル]                            *
* キーワード:CSVファイル,列数,行数,MSHFlexGrid,,                                 *
***********************************************************************************

元質問:クリップボードのデータから要素数を数える.. - NM  2004/12/28-16:39 No.1390

エクセルで複数のセルを選択し、コピーしたものをクリップボードからMSFlexGridに貼り付けようとしています。
いま、悩んでいることは、選択するデータ数が毎回異なる場合、クリップボードのデータをセットする時に、MSFlexGridの貼り付け終了位置の設定をどうしたら良いのかという点です。
ちなみに1列×複数行のデータを扱おうとしているのですが、クリップボードの要素数を数える方法を解っておりません。


----------------------------------------------------------------------------------
Re^3: クリップボードのデータから要素数を.. - 花ちゃん  2004/12/28-18:37 No.1394
----------------------------------------------------------------------------------
テスト結果のままのコードなので、参考までに。

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

メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ