การบันทึกข้อมุลเพื่อจัดทำ stock

[มัคกี้เม้า]

ขอโทษนะคะที่ทำให้อาจารย์เสียเวลาคะ
ดิฉันจะพยายามคะ

[มัคกี้เม้า]

ตอนนี้ทำได้แล้วคะข้อที่6 ดีใจมากกกกเหลือข้อที่7 ทำยังไงก็ไม่ได้สักทีคะ

[snasui]

ข้อ 6 คือ Mudule ใด Procedure ใดครับ และที่ส่งมานี้ได้เขียน Code สำหรับข้อ 7 มาแล้วหรือไม่ อยู่ที่ Module ใด Procedure ใดครับ

[มัคกี้เม้า]

ข้อที่ 6 Mudule4 ชื่อ RemoveItemName คะ
ข้อที่ 7 Mudule5 ชื่อ Click คะ

[มัคกี้เม้า]

ขอโทษคะจำผิด
ข้อที่ 6 Mudule2 ชื่อ RemoveItemName คะ

[snasui]

สำหรับข้อ 7-8 ลองดู Code ตามด้านล่างครับ

Code: Select all

Sub ReceiveNotReceive()
    Dim rSource As Variant
    Dim rTarget As Range
        With Worksheets("Input")
            rSource = Array(.Range("L5"), .Range("H8")(1, 1), .Range("G10")(1, 1), .Range("J10")(1, 1), _
                .Range("G12")(1, 1), .Range("G14")(1, 1), .Range("G16")(1, 1), .Range("G22")(1, 1))
        End With
    Set rTarget = Worksheets("Result").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    rTarget.Resize(1, 8) = rSource
    If Worksheets("Input").Range("G22")(1, 1) = "Not Receive" Then
        rTarget.Resize(1, 8).Font.Color = vbMagenta
    Else
        rTarget.Resize(1, 8).Font.Color = vbBlack
    End If
End Sub

[มัคกี้เม้า]

อาจารย์ช่วยแนบไฟล์มาให้ด้วยได้ไหมคะ...ขอบคุณคะ

[มัคกี้เม้า]

ตรงช่องคำว่า Click คือมันมีปัญหาที่ว่า มันขึ้นคำว่า Cannot Run the Macro Stock(1).xls Click.The Macro May not be......จะต้องไปคลิกที่คำว่า Run ที่หน้า Microsoft Visual Basic คะ

[joo]

โค๊ดที่อาจารย์ให้มาสามารถทำงานได้ดีอยู่นะครับ ลองไล่ดูโค๊ดใหม่ว่าทำผิดพลาดตรงไหน นี้คือตัวอย่างที่ทดลองแล้วใช้ได้ลองนำไปปรับใช้ดูครับ

[มัคกี้เม้า]

ตรงช่องคำว่า Click คือมันมีปัญหาที่ว่า มันขึ้นคำว่า Cannot Run the Macro Stock(1).xls Click.The Macro May not be......จะต้องไปคลิกที่คำว่า Run ที่หน้า Microsoft Visual Basic คะ
v
v
ช่วยหน่อยนะคะ

[joo]

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

[bank9597]

ลอง Assigmn Macro เข้าไปในปุ่มครับ

คลิีกขวาที่ปุ่ม แล้วเลือก Assigmn Macro เข้าไป
เลือก macro ที่เราต้องการ

[มัคกี้เม้า]

ขอบคุณมากๆนะคะที่ช่วยแนะนำตอนนี้ใช้ได้สมบูรณ์แล้วคะ
จากใจจริงๆคะ

[มัคกี้เม้า]

ชีท Database นั้น ได้สร้างฟอร์มขึ้นมาเพิ่มอีก
คือตอนนี้อยากที่จะได้ผลรวมแสดงที่หน้า Summary คะ ปัญหาคือ Module3 ไม่รวมให้คะว่าเดือนนี้แผนก Measurement มีอะไรบ้างที่สั่งซื้อไปคะ

[bank9597]

ให้แสดงข้อมูลแบบไหน ควรแจ้งมาด้วยครับ เช่น ดึงรายการที่เลือกไปทั้งหมด

หรือให้แสดงผลรวมของสินค้านั้นๆ และหากให้แสดงผลรวม จะให้แสดงบนเซลล์ หรือ พอกดแล้วแสดงเป็นข้อความแจ้งผลรวมครับ

[มัคกี้เม้า]

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

[bank9597]

ลองศึกษาตามไฟล์แนบครับ ว่าตรงที่ต้องการไหม

[มัคกี้เม้า]

เย้ๆๆๆได้แล้วคะขอบคุณมากๆๆนะคะ

[bank9597]

มันยังไม่ค่อยสมบูรณ์เลยน่ะครับ ให้ดีต้องปรับอีกครับ