Friday, April 8, 2011

Create a simple "Help Menu" for your report

Do you need explain some data on your report? Create a simple "Help menu" and insert all information...
Insert this code in your form:

Private Sub Userform_Initialize()
    Me.Caption = appname & "Help"
    LastRow = Sheets("Sheet1").Range("A65536").End(xlUp).Row
    TxT = ""
        For r = 1 To LastRow
            TxT = TxT & Sheets("Sheet1").Cells(r, 1).Text & vbCrLf
        Next r
        With Label1
            .Top = 0
            .Caption = TxT
            .Width = 160
            .AutoSize = True
        End With
        With Frame1
            .ScrollBars = fmScrollBarsVertical
            .ScrollHeight = .InsideHeight * 2
            .ScrollWidth = .InsideWidth * 9
        End With
End Sub

No comments:

Post a Comment