สอบถาม code vba ใน combobox

[natthaporn]

ดิฉันต้องการดึงค่าจาก sheet : Data, column : G มาวางไว้ที่ tbox1 และ
ดึงค่าจาก sheet : Data, column : H มาวางไว้ที่ tbox2
ตามวันที่ที่ระบุไว้ที่ cboDay , cboMonth และ cboYear

กล่าวคือ ที่ tbox1 และ tbox2 เป็นได้ทั้งกรณีรับค่า และส่งค่า

โดยได้เขียน code ตามนี้คะ

Code: Select all

Private Sub cboDay_Change()
Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Private Sub cboMonth_Change()
Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

Private Sub cboYear_Change()

  Dim mRange As Range
    'On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

แต่ code error คะ รบกวนแนะนำด้วยคะ
ขอบคุณคะ

[snasui]

ตัวอย่างการปรับ Code เฉพาะ cboDay (วันที่) สำหรับ เดือน และ ปี ก็ให้ปรับลักษณะนี้ ครับ

Code: Select all

Private Sub cboDay_Change()
    Dim mRange As Range
    On Error Resume Next
    Set mRange = Sheet2.Range("i1")
    If Me.cboMonth.Text <> "" And Me.cboDay.Text <> "" And Me.cboYear.Text <> "" Then
        mRange = Me.cboMonth.Text & "/" & Me.cboDay.Text & "/" & Me.cboYear.Text
    Else
        Exit Sub
    End If
    With Application.WorksheetFunction
        Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)
    End With
End Sub

[natthaporn]

อาจารย์คะ code ไม่ error แล้ว แต่ปรากฏว่าเมื่อเลือกวันที่แล้วไม่มีค่าแสดงที่ tbox1 คะ
ขอบคุณคะ

[snasui]

ปรับให้ครบทุก Control ทั้งที่เป็น วันที่ เดือน ปีจึงจะ Lookup กันได้ครับ

Code ที่ผมเขียนมานั้นเป็นเพียงตัวอย่างให้เห็นว่าควรปรับเช่นไรเท่านั้นครับ

[natthaporn]

อาจารย์คะดิฉันทำตามที่อาจารย์แนะนำแล้วคะ แต่ก็ยังไม่แสดงค่า ดิฉันลองใส่ comment ไว้ที่
on error resume next" ปรากฎว่า code error ที่

Code: Select all

Me.tbox1.Value = .VLookup(mRange.Value, Sheet2.Range("Table"), 6, False)

ดิฉันพยายามหาสาเหตุ เช่น ค่าของ mRange และค่าของ Tabel แต่ก็หาไม่เจอคะ

ขอรบกวนด้วยนะคะ ขอบคุณคะ

[snasui]

ปรับเป็นด้านล่าง โดยลบ .value ออก หรือใช้ .value2 แทน .vlaue ครับ

Me.tbox1.Value = .VLookup(mRange, Sheet2.Range("Table"), 6, False)

[natthaporn]

ได้ผลลัพธ์ตามที่ต้องการแล้วคะ ขอขอบคุณอาจารย์มากคะ

[belmont]