ใช้สูตร Index+Match+if ในรูปแบบ VBA .Application

[bank9597]

สวัสดีครับอาจารย์ ผมรบกวนให้อาจจารย์ช่วยดูโค๊ดการใช้สูตรอาร์เรย์ด้วย VBA ให้หน่อยครับ พอดีว่าเขียนโค๊ดมาแล้ว มันยังรันติดติดอยู่ครับ ไม่รู้ว่าจะเพิ่มอะไรอีก รบกวนด้วยครับ

โค๊ดอยู่ใน frmTest อ๊อปเจ็ค cboName ครับ

ผมใช้โคีดนี้

Code: Select all

Private Sub cboName_Change()
         With Sheets("Sheet1").Application
                Me.txtResult.Value = .Index(.Range("C2:C5"), .Match(1, .if(cboName.Value = Range("A2:A5"), .if(cboNum.Value = .Range("B2:B5"), 1)), 0))
        End With
End Sub

และ

Code: Select all

Private Sub cboName_Change()
         With Sheets("Sheet1").Application
                Me.txtResult.Value = .Lookup(2, 1 / ((cboName.Value = .Range("A2:A5")) * (cboNum.Value = .Range("B2:B5"))), .Range("C2:C5"))
        End With
End Sub

ก็ยังไม่ได้ซักโค๊ดเลย

[snasui]

Formula เป็น Property ของ Range ไม่ใช่ของ Object จะนำไปใช้กับ Object อื่นไม่ได้ครับ

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub cboName_Change()
    With Sheets("Sheet1")
        .Range("d1").Formula = "=Lookup(2, 1 / ((" & Chr(34) & cboName.Value & Chr(34) & "=A2:A5) * (" & CLng(cboNum.Value) & "=B2:B5)), C2:C5)"
        If IsError(.Range("d1")) Then
            Me.txtResult.Text = "#N/A"
        Else
            Me.txtResult.Text = .Range("d1").Value
        End If
        .Range("d1").Clear
    End With
End Sub

[bank9597]

อับอายขายหน้ามากมาย

พอดีเห็นสูตร Index+Match มันใช้ได้ไม่มีปัญหา เลยคิดว่าสูตรอื่นก็น่าจะไม่มีปัญหา

ต้องขอบคุณอาจารย์มากครับ

[snasui]

การที่ใช้ Index, Match, Vlookup ฯลฯ ใน VBA ได้นั้นเป็นการใช้ตามภาวะปกติของสูตร หากมีการประยุกต์โดยเพิ่มส่วนที่เป็นการเปรียบเทียบค่าใด ๆ กับช่วงข้อมูลเข้าไปด้วยเช่น Lookup ตามสูตรด้านบนนั้น หากจะทำได้ก็ต้องใช้ Cell มาช่วยครับ

ตัวอย่าง Code ด้านล่างใช้ตามรูปแบบปกติของสูตร

Code: Select all

Private Sub cboName_Change()
    With Sheets("Sheet1")
       Me.txtResult.Text = Application.Lookup(CDbl(cboNum.Text), .Range("b2:b5"), .Range("c2:c5"))
    End With
End Sub

[bank9597]

การที่ใช้ Index, Match, Vlookup ฯลฯ ใน VBA ได้นั้นเป็นการใช้ตามภาวะปกติของสูตร หากมีการประยุกต์โดยเพิ่มส่วนที่เป็นการเปรียบเทียบค่าใด ๆ กับช่วงข้อมูลเข้าไปด้วยเช่น Lookup ตามสูตรด้านบนนั้น หากจะทำได้ก็ต้องใช้ Cell มาช่วยครับ

ตัวอย่าง Code ด้านล่างใช้ตามรูปแบบปกติของสูตร

Code: Select all

Private Sub cboName_Change()
    With Sheets("Sheet1")
       Me.txtResult.Text = Application.Lookup(CDbl(cboNum.Text), .Range("b2:b5"), .Range("c2:c5"))
    End With
End Sub

แต่พอมี 2 เงื่อนไขขึ้นไป ทำเอางงไปหมดเลยครับ

[snasui]

Lookup หรือ Index + Match ฯลฯ ที่ใช้แบบมีเงื่อนไขเป็นการใช้แบบประยุกต์ จะเขียนเช่นนั้นใน VBA เสมือนว่าเขียนในเซลล์ไม่ได้ครับ

[bank9597]

Lookup หรือ Index + Match ฯลฯ ที่ใช้แบบมีเงื่อนไขเป็นการใช้แบบประยุกต์ จะเขียนเช่นนั้นใน VBA เสมือนว่าเขียนในเซลล์ไม่ได้ครับ

ขอบคุณครับอาจารย์ ยังไงมันก็เป็นเรื่องยาก เอาเป็นว่าจะพยายามประยุกต์ใช้ร่วมกันทั้ง สูตร,vba,ออฟเจ็ค ครับ