ラベルとスクロールバーを関連付けるには？ (ID:82219)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

う〜ん。表示、そんなに遅いですか?

こちらで試してみたところ、セル数が2万あった場合でも、
0.3秒程度で出力されましたけれども…。

Option Explicit

Private Sub Form_Load()
    '20列1000行の表を作成
    With Me.MSHFlexGrid1
        .Cols = 21
        .Rows = 1000
        .FixedCols = 1
        .FixedRows = 0
    End With
End Sub

Private Sub Command1_Click()
    Dim T As Single
    Dim Row As Long
    Dim Col As Long
    Dim Data As Object
    Dim LineData(20) As String

Me.MSHFlexGrid1.Clear
    
    T = Timer   '計測開始

'表示用のダミーデータ作成
    Set Data = CreateObject("Scripting.Dictionary")
    For Row = 1 To 1000
        LineData(0) = CStr(Row) & "行目"
        For Col = 1 To 20
            LineData(Col) = CStr(Row) & "-" & CStr(Col)
        Next
        Data(Row) = Join(LineData, vbTab)
    Next

'MSHFlexGridへの出力
    With Me.MSHFlexGrid1
        .Redraw = False
        .Row = 0
        .Col = 0
        .RowSel = 999
        .ColSel = 20
        .Clip = Join(Data.Items(), vbCr)
        .Row = 0
        .Col = 1
        .Redraw = True
    End With
    Set Data = Nothing

'計測完了
    Debug.Print FormatNumber(Timer - T); "秒"
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る