สูตรดึงจำนวนตามเงื่อนไข รหัส สถาที่ รายการ วันที่ ค่ะ

[snasui]

ควรถามที่เป็นปัญหาไม่ใช่แจ้งมาเฉยๆ ครับ

[suka]

ค่ะอาจารย์จาก Code ชุดด้านล่างนี้ ต้องการให้ Code นำข้อมูลเพิ่มจากเดิมที่ชีท Template Q2:R4 ไปวางให้เป็นสูตรที่คอลัมน์ Q:R ชีท DataRM_ex ไฟล์ MR_BookShare

Code: Select all

Sub PasteDataRM_ex()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim i As Integer
        Dim e As Long
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("MR_BookShare.xlsx")

    With wbShare
            e = .Sheets("DataRM_ex").Range("B" & Rows.Count).End(xlUp).Value + 1
            formBook.Worksheets("Form").Range("J1").Value = e
    End With

            i = Worksheets("Form").Range("B5").Value
            With formBook.Worksheets("Template")
                Set rs = .Range(.Range("A2"), .Range("P" & i + 1))
            End With
             Set rt = wbShare.Sheets("DataRM_ex").Range("A1048576").End(xlUp).Offset(1, 0)
            If formBook.Worksheets("Form").Range("B5") = True Then
                MsgBox "Please check your data. This transaction already recorded."
                Exit Sub
            End If
           
            If formBook.Worksheets("Form").Range("D4") = "" Then
                MsgBox "Your data is empty. Fill your data and click record button again."
                Exit Sub
            End If
            rs.Copy: rt.PasteSpecial xlPasteValues
            wbShare.Save
            formBook.Save
        
            Application.CutCopyMode = False
           formBook.Sheets("Form").Range("K7:K11,N7:N11").ClearContents
           
            Application.ScreenUpdating = True
End Sub

ขอรบกวนอาจารย์ปรับช่วยปรับ Code ที่บันทึกแมโครนี้เพื่อนำข้อมูลที่ไฟล์ Form ชีท Template เซลล์ Q2:R4 ไปวางให้เป็นสูตรที่คอลัมน์ Q:R ชีท DataRM_ex ไฟล์ MR_BookShare ค่ะ
ที่เป็นปัญหาคือยังไม่สามารถนำสูตรไปวางที่คอลัมน์ Q:R ชีท DataRM_ex ไฟล์ MR_BookShare ค่ะ

Code: Select all

Sub Macro9()
    Range("Q2:Q4").Select
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("Q2").Select
    ActiveSheet.Paste
    Windows("Form.xlsm").Activate
    Range("R2:R4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("R2").Select
    ActiveSheet.Paste
End Sub

[snasui]

ที่เป็นปัญหาคือยังไม่สามารถนำสูตรไปวางที่คอลัมน์ Q:R ชีท DataRM_ex ไฟล์ MR_BookShare ค่ะ

โปรแกรมฟ้องว่าอย่างไรหรือแสดงค่าผิดพลาดเป็นอย่างไรครับ

[suka]

ติดที่ข้อมูลยังวางซ้ำเซลล์เดิม Q2:R4 ชีท DataRM_ex ไฟล์ MR_BookShare ไม่วางต่อลงมาค่ะและยังไม่สามารถปรับ Code ที่บันทึก Macro ให้ใช้ร่วมกับ Code ทั้งชุดด้านบนได้ค่ะ

[snasui]

ต้องการให้วางต่อกันเป็นฐานข้อมูลใช่หรือไม่ครับ

หากใช่จะต้องปรับ Code ครับ ยกตัวอย่างเช่นจากเดิม

Code: Select all

Range("R2").Select
    ActiveSheet.Paste

ซึ่งเป็นการเลือกเซลล์ปลายทางก่อนที่จะวาง

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

Code: Select all

Range("R" & rows.count).end(xlup).offset(1,0).Select
    ActiveSheet.Paste

จะเป็นการเลือกวางต่อท้ายข้อมูลเดิม

[suka]

ขอบคุณค่ะอาจารย์ Code ใช้ได้ตรงตามต้องการแล้วค่ะ

[มือใหม่]

รบกวนสอบถามครับ จากสูตรด้านล่าง {"ซื้อ","งานฉีด"} ที่ต้องใส่ { } เพื่ออะไรครับ ?
คือถ้าผมต้องการให้ดึงผลรวมของทั้ง ซื้อ และ งานฉีด โดยไม่ +sum จะต้องทำอย่างไรครับ ?

ลองตามนี้ครับ

เซลล์ K2 คีย์

=SUM(SUMIFS($J$2:$J2,$E$2:$E2,E2,$G$2:$G2,$G2,$H$2:$H2,{"ซื้อ","งานฉีด"}))-SUM(SUMIFS($J$2:$J2,$E$2:$E2,E2,$G$2:$G2,$G2,$H$2:$H2,{"ขาย","งานชุบ","แถม"}))

Enter > Copy ลงด้านล่าง

จากตัวอย่างคำตอบที่เขียนมา คอลัมน์ I ไม่ถือเป็นเงื่อนไข หากใช้เป็นเงื่อนไขคำตอบจะยิ่งผิดพลาด สำหรับคำตอบที่ K5 คำตอบเป็น -9 ไม่ใช่ 15 ตามที่ทำตัวอยา่งคำตอบมาครับ

[snasui]

การใส่ {} เพื่อให้เป็นหลายเงื่อนไข

ควรแนบไฟล์ตัวอย่างของตัวเองพร้อมคำตอบที่ต้องการมาด้วยจะได้สะดวกในการตอบครับ

[มือใหม่]

คือถ้าต้องการหาผลรวมแบบหลายเงื่อนไขนะครับ
D21 ต้องการรู้ว่าแผนกบัญชีที่ Head office ใช้ pc เท่าไร อันนี้ผมใช้สูตร
=SUMIFS(E4:E17,B4:B17,B21,C4:C17,C21,D4:D17,"PC")

D22 ต้องการรู้ว่าแผนกการตลาดที่ Head office ใช้ pc เท่าไร อันนี้ผมใช้สูตร
=SUMIFS(E4:E17,B4:B17,B21,C4:C17,C22,D4:D17,"PC")

แต่ถ้าต้องการของทั้งแผนกช่าง และ ฝ่ายขาย รวมกันในสูตรเดียวกันจะต้องทำอย่างไรครับถ้าไม่ใช้
=SUMIFS(E4:E17,B4:B17,B21,C4:C17,"ช่าง",D4:D17,"PC")+SUMIFS(E4:E17,B4:B17,B21,C4:C17,"ขาย",D4:D17,"PC")
เพราะทุกเงื่อนไขเหมือนกัน แต่เพิ่มแผนกมาอีกหนึ่งแผนกนะครับ เลยเห็น { } ซึ่งผมลอง {"ช่าง""ขาย"}
แล้วคิดว่าจะรวมกันแบบสูตรข้างต้น แต่ไม่ได้นะครับ

การใส่ {} เพื่อให้เป็นหลายเงื่อนไข

ควรแนบไฟล์ตัวอย่างของตัวเองพร้อมคำตอบที่ต้องการมาด้วยจะได้สะดวกในการตอบครับ

[snasui]

เซลล์ D23 ปรับสูตรเป็นตามด้านล่างครับ

=SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,"PC"))

[มือใหม่]

ใช้ได้แล้วครับ ขอบคุณ ครับผม

เซลล์ D23 ปรับสูตรเป็นตามด้านล่างครับ

=SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,"PC"))

[มือใหม่]

จากสูตร =SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,"PC"))
ถ้าต้องการ ทั้ง PC และ Note ของทั้งช่าง และ ขาย ต้องทำอย่างไรครับ

ผมลอง =SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,{"PC","note"}))
ได้คำตอบไม่ถูกต้องนะครับ

ใช้ได้แล้วครับ ขอบคุณ ครับผม

เซลล์ D23 ปรับสูตรเป็นตามด้านล่างครับ

=SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,"PC"))

[snasui]

แนบไฟล์ที่บอกว่าไม่ได้มาด้วย แล้วแจ้งมาว่าที่ถูกต้องคือค่าใดมาด้วยครับ

[มือใหม่]

ที่ E23 ผมใช้สูตร =SUM(SUMIFS(E4:E17,B4:B17,B21,C4:C17,{"ช่าง","ขาย"},D4:D17,{"PC","Note"}))
ผลที่ได้ 7 แทนที่จะได้ 11 นะครับ

แนบไฟล์ที่บอกว่าไม่ได้มาด้วย แล้วแจ้งมาว่าที่ถูกต้องคือค่าใดมาด้วยครับ

[snasui]

E23 ใช้สูตรนี้แทนครับ

=SUMPRODUCT(--(B4:B17=B21),--ISNUMBER(MATCH(C4:C17,{"ช่าง";"ขาย"},0)),--ISNUMBER(MATCH(D4:D17,{"PC";"Note"},0)),E4:E17)