Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
    'Clean data range
    DeleteBlankRows
    DeleteBlankColumns
    
    'Set properties of listbox1
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 3
        .ColumnHeads = True
        .TextColumn = True
        If Range("A2") = "" Then
            .RowSource = "Sheet1!A2:C2"
        Else
            .RowSource = "Sheet1!A2:C" & xlLastRow("Sheet1")
        End If
        .ListStyle = fmListStyleOption
        .ListIndex = 0
    End With
End Sub

Code: Select all

Sub Macro3()
Msg = "ท่านต้องการแสดงใบนำส่งขอใช้อุปกรณ์เครื่องมือเครื่องใช้ด้วยหรือไม่  ?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "ขั้นตอนการจัดเก็บฐานข้อมูลและแสดงใบนำส่ง"
Temp = MsgBox(Msg, Style, Title)

'Unload Me
Call MacroPagePaper1PasteFormatA
Call MacroPageHistory_ToolPasteB
MsgBox ("จัดเก็บ Record นี้ลงในฐานข้อมูลเสร็จเรียบร้อย")

    
    If Temp = vbYes Then
        Call MacroPageDocument1CopyPaste
            Else
                Call MacroPageDocument1ClearContents
                Call MacroPagePaper1ClearContents
                Sheets("History_Tool").Select
                Range("B5").Select
                Selection.End(xlDown).Select  'เลือกจุดสุดท้าย
    End If

End Sub

Code: Select all

Private Sub ListBox1_Change()
    Dim SourceRange As Excel.Range
    Dim Val1 As String, Val2 As String, Val3 As String

    If (ListBox1.RowSource <> vbNullString) Then
        'Get Range that the ListBox is bound to
        Set SourceRange = Range(ListBox1.RowSource)
    Else
        'Get first data row
        Set SourceRange = Range("Sheet1!A2:C2")
        Exit Sub
    End If
    
    Val1 = ListBox1.Value
    'Get the value of the second column
    Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
    'Get the value of the third column
    Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value

    'Concatenate the three values together and display them in Label1
    Label1.Caption = "Selected Data: " & vbNewLine & Val1 & " " & Val2 & " " & Val3
    
    'Clean Up
    Set SourceRange = Nothing
End Sub


Private Sub UserForm_Initialize()
    'Clean data range
    'DeleteBlankRows
    'DeleteBlankColumns
    
    'Set properties of listbox1
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 3
        .ColumnHeads = True
        .TextColumn = True
        If Range("A2") = "" Then
            .RowSource = "Sheet1!A2:C2"
        Else
            .RowSource = "Sheet1!A2:C" & xlLastRow("Sheet1")
        End If
        .ListStyle = fmListStyleOption
        .ListIndex = 0
    End With


End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Dim i As Integer, j As Integer
    i = Range("A2", Range("A" & Rows.Count).End(xlUp)).Count - 1
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 3
        .ColumnHeads = True
        .TextColumn = True
        If Range("A2") = "" Then
            .AddItem Range("A2")
            .List(.ListCount - 1, 1) = Range("C2")
        Else
            For j = 0 To i
            .AddItem Range("A" & j + 2)
            .List(.ListCount - 1, 1) = Range("C" & j + 2)
            Next j
        End If
        .ListStyle = fmListStyleOption
        .ListIndex = 0
    End With
End Sub