ต้องการดึงข้อมูลจากใน Sheet มาใน Userform ครับ

[ottokung25]

คือผมต้องการให้มีการดึงข้อมูลในชีทออกมาใน Userform ครับ โดยที่เวลาผมดึงออกมาใช้แล้วต้องการให้เลือกได้หลายๆตัวเลือกพร้อมกันด้วยครับ

(ใช้ในการจัดสต็อกของสินค้าครับ) มีตัวช่วยไหนช่วยได้บ้างครับ

[snasui]

การทำเช่นนั้นต้องใช้ VBA ครับ สำหรับ VBA แล้วจำเป็นต้องเขียนมาก่อน ติดตรงไหนสามารถถามมาได้เรื่อย ๆ ครับ

[ottokung25]

สิ่งที่ผมอยากถามคือจะมีแนวทางอย่างไรในการเลือกข้อมูลทีละหลายๆตัวน่ะครับ ปกติผมจะใช้ list ให้เลือกทีละตัวครับ แต่ทีนี้มันต้องเลือกทีละ 30 ตัวขึ้นไป มันเลยไม่สะดวกครับ

ปกติผมจะให้ VB ในการเขียนครับ แล้วจะใช้ Datagridview รับข้อมูลแล้วกด Save ข้อมูลใน Database ทีเดียวครับ แต่ตอนนี้ผมไม่รู้จะใช้อะไรใน VBA ครับ

[snasui]

ใช้ ListBox โดยกำหนดให้เป็น Multiple Columns และกำหนด Properties ให้เป็นแบบ Option คือสามารถเลือกรายการที่ต้องการได้ครับ

[ottokung25]

ขอบคุณมากครับ พรุ่งนี้ผมจะลองดูแล้วจะมารายงานผลครับ

[ottokung25]

ใช้การเลือกจากใน Combobox มาก่อนแล้วให้ข้อมูลแสดงใน Listbox หรือเปล่าครับ ที่คุณ snasui แนะนำมาน่ะครับ หรือให้ข้อมูลเข้ามาใน Listbox เพื่อเลือกเลยครับ

[snasui]

อันนั้นก็แล้วแต่ลักษณะงานครับ ตัวอย่างการใช้ ListBox เช่น มี ListBox อยู่สองฟาก ฟากซ้ายคือข้อมูลทั้งหมด ฟากขวาคือข้อมูลที่ได้เลือกมาจากฟากซ้ายแล้ว สามารถลบข้อมูลจากฟากขวาเพื่อให้กลับไปอยู่ฟากซ้ายเหมือนเดิมได้ ฯลฯ

หรือใช้ ComboBox เพื่อเลือกหมวดใหญ่แล้วให้หมวดย่อยหรือ Transaction ที่ขึ้นกับหมวดนั้นมาแสดงที่ ListBox เช่นนี้เป็นต้นครับ

[ottokung25]

ตอนนี้ผมติดที่ไม่สามารถดึงข้อมูลจากในชีทมาใส่ใน Listbox ได้ครับ พี่ๆช่วยดูโค๊ดด้านล่างให้หน่อยครับว่ามีอะไรผิดหรือไม่ครับ

ผมเอาไปว่าไว้ที่ Form ที่สร้าง Listbox ไว้ถูกต้องมั้ยครับ?

Code: Select all

Private Sub UserForm_Activate()
Dim j As Long
    
    j = 1
    Do While Sheets("Sheet2").Cells(j, 1).Value
        j = j + 1
    Loop
    
    Me.ListBox1.RowSource = "Sheet2!A1:A" & (j - 1)

End Sub

[snasui]

การเพิ่มรายการใน ListBox สามารถใช้ AddItem เข้ามาช่วยได้ ดูตัวอย่างจาก Link นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=2025

[ottokung25]

ผมไม่ค่อยเข้าใจในกระทู้ที่แนะนำครับ ตอนนี้ผมใช้โค๊ดด้านล่างนี้ครับ

Code: Select all

Private Sub UserForm2_Initialize()
Dim a As Integer
Dim f As Integer

For a = 2 To 1000
If Oat5.Cells(i, 1) = "" Then
f = a - 1
Exit For
End If
Next

ListBox1.AddItem = Oat5.Cells(f, 1)
Next

  
   
End Sub

แต่มันไม่มีอะไรเลยครับ พอดีผมต้องอ้างอิงใน Sheet ด้วยครับ(มีหลายชีท)

ขอคำแนะนำเพิ่มเติมด้วยครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยครับ จะได้ช่วยทดสอบได้ครับ

[ottokung25]

แนบมาให้แล้วครับ จะทำตามที่พี่แนะนำครับ คือให้เลือกแล้วกด >> จะไปที่ Listbox อีกอัน รวมทั้งมีการนับจำนวนสินค้าที่เลือกไปแล้วครับ

Pass 1150

[bank9597]

ผมดูไฟล์แล้ว ฟอร์มออกแบบได้สวยดีครับ เหมือนโปรแกรมสำเร็จรูป แต่คาดว่าต้องใช้เวลาในการสร้างฟอร์มค่อนข้างเยอะอย่างแน่นอน

หากเป็นการทำงานบน Work Sheet น่าจะปรับโค๊ดได้ง่ายกว่า และรวดเร็วกว่าบน Object ครับ

[snasui]

แนบมาให้แล้วครับ จะทำตามที่พี่แนะนำครับ คือให้เลือกแล้วกด >> จะไปที่ Listbox อีกอัน รวมทั้งมีการนับจำนวนสินค้าที่เลือกไปแล้วครับ

Pass 1150

Code ที่เขียนมานั้น อยู่ใน UserForm ใด ชื่อ Procedure ว่าอะไรครับ

[ottokung25]

แนบมาให้แล้วครับ จะทำตามที่พี่แนะนำครับ คือให้เลือกแล้วกด >> จะไปที่ Listbox อีกอัน รวมทั้งมีการนับจำนวนสินค้าที่เลือกไปแล้วครับ

Pass 1150

Code ที่เขียนมานั้น อยู่ใน UserForm ใด ชื่อ Procedure ว่าอะไรครับ

Userform 2 อยู่ในส่วน Userform_intitialize ครับ

[ottokung25]

แนบมาให้แล้วครับ จะทำตามที่พี่แนะนำครับ คือให้เลือกแล้วกด >> จะไปที่ Listbox อีกอัน รวมทั้งมีการนับจำนวนสินค้าที่เลือกไปแล้วครับ

Pass 1150

Code ที่เขียนมานั้น อยู่ใน UserForm ใด ชื่อ Procedure ว่าอะไรครับ

Userform 2 อยู่ในส่วน Userform_intitialize ครับ

ขอโทษนะครับ ตอนนี้ผมเอาโค๊ดนั้นออกไปแล้ว แล้วใช้โค๊ดนี้แทนครับ

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
     
     'Load the combobox with a variety of household pets
    With Me.ListBox1
         'Clear the rowsource in case it has been set
        .RowSource = ""
         
         'Add the items from Cell A10 to the last used row in column A
        For Each cl In Worksheets("Oat2").Range("A2:A" & _
            Worksheets("Oat2").Range("A65536").End(xlUp).Row)
            .AddItem cl.Value
        Next cl
    End With
End Sub

แต่ผลลัพธ์เหมือนเดิมครับ

[snasui]

ไฟล์ที่แนบมาน่าจะไม่ Update ครับ ผมไม่พบ Code Initialize ใน UserForm2 โดยมีเพียง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim validar As Boolean
Dim validarfecha As Boolean
 
If TextBox1 = "" Then
UserForm10.Show
Exit Sub
End If

If TextBox2 = "" Then
UserForm11.Show
Exit Sub
End If

If TextBox4 = "" Then
UserForm12.Show
Exit Sub
End If

If TextBox6 = "" Then
UserForm13.Show
Exit Sub
End If

If TextBox7 = "" Then
UserForm14.Show
Exit Sub
End If

validar = IsNumeric(TextBox2.Value)
If validar = False Then
UserForm22.Show
TextBox2.BackColor = &HFF00&
Exit Sub
End If

validarfecha = IsDate(TextBox6.Value)
If validarfecha = False Then
UserForm23.Show
TextBox6.BackColor = &HFF00&
Exit Sub
End If

If TextBox2 <> "" And TextBox1 <> "" And TextBox4 <> "" And TextBox6 <> "" And TextBox7 <> "" Then
TextBox2.BackColor = -2147483643
TextBox6.BackColor = -2147483643
UserForm15.Show
End If


End Sub

Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub


Private Sub CommandButton3_Click()
UserForm30.Show
End Sub

[ottokung25]

อัพเดตครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
     
     'Load the combobox with a variety of household pets
    With Me.ListBox1
         'Clear the rowsource in case it has been set
        .RowSource = ""
         
         'Add the items from Cell A10 to the last used row in column A
        For Each cl In Oat5.Range("A2:A" & _
            Oat5.Range("A65536").End(xlUp).Row)
            .AddItem cl.Value
        Next cl
    End With
End Sub

หรือปรับเป็นด้านล่าง

Code: Select all

Private Sub UserForm_Initialize()
    Dim cl As Range
     
     'Load the combobox with a variety of household pets
    With Me.ListBox1
         'Clear the rowsource in case it has been set
        .RowSource = ""
         
         'Add the items from Cell A10 to the last used row in column A
        For Each cl In Worksheets("NOTEBOOK").Range("A2:A" & _
            Worksheets("NOTEBOOK").Range("A65536").End(xlUp).Row)
            .AddItem cl.Value
        Next cl
    End With
End Sub

[ottokung25]

ได้แล้วครับ ขอบคุณมากครับ ผมสงสัยอีกนิดนึงครับว่าผมทำผิดตรงไหนหรือครับ