:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#59

by bank9597 » Fri May 25, 2012 2:04 pm

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

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

#58

by มัคกี้เม้า » Fri May 25, 2012 1:55 pm

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

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

#57

by bank9597 » Fri May 25, 2012 1:24 pm

:D ลองศึกษาตามไฟล์แนบครับ ว่าตรงที่ต้องการไหม
Attachments
รวบรวม.xls
(112 KiB) Downloaded 71 times

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

#56

by มัคกี้เม้า » Fri May 25, 2012 10:53 am

ให้แสดงข้อมูลแบบดึงรายการที่เลือกไปทั้งหมด และให้แสดงผลรวม จะให้แสดงบนชีท Summary คะ
Attachments
รวบรวม.xls
(112.5 KiB) Downloaded 17 times

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

#55

by bank9597 » Thu May 24, 2012 5:55 pm

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

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

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

#54

by มัคกี้เม้า » Thu May 24, 2012 4:32 pm

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

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

#53

by มัคกี้เม้า » Wed May 23, 2012 6:21 pm

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

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

#52

by bank9597 » Tue May 22, 2012 4:43 pm

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

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

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

#51

by joo » Tue May 22, 2012 4:34 pm

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

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

#50

by มัคกี้เม้า » Tue May 22, 2012 1:59 pm

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

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

#49

by joo » Mon May 21, 2012 4:03 pm

โค๊ดที่อาจารย์ให้มาสามารถทำงานได้ดีอยู่นะครับ ลองไล่ดูโค๊ดใหม่ว่าทำผิดพลาดตรงไหน นี้คือตัวอย่างที่ทดลองแล้วใช้ได้ลองนำไปปรับใช้ดูครับ :D
Attachments
Stock2.xls
(88.5 KiB) Downloaded 40 times

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

#48

by มัคกี้เม้า » Mon May 21, 2012 3:09 pm

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

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

#47

by มัคกี้เม้า » Mon May 21, 2012 2:10 pm

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

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

#46

by snasui » Mon May 21, 2012 12:30 pm

:D สำหรับข้อ 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

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

#45

by มัคกี้เม้า » Mon May 21, 2012 10:20 am

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

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

#44

by มัคกี้เม้า » Mon May 21, 2012 10:16 am

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

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

#43

by snasui » Mon May 21, 2012 10:07 am

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

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

#42

by มัคกี้เม้า » Mon May 21, 2012 9:51 am

ตอนนี้ทำได้แล้วคะข้อที่6 ดีใจมากกกกเหลือข้อที่7 ทำยังไงก็ไม่ได้สักทีคะ
Attachments
Stock (1).xls
(98.5 KiB) Downloaded 18 times

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

#41

by มัคกี้เม้า » Fri May 18, 2012 7:02 pm

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

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

#40

by snasui » Fri May 18, 2012 3:52 pm

:shock: Code นี้ต้องการทำอะไร เข้าใจความหมายหรือไม่ครับ :?:

Code: Select all

If Sheets("Input").Range("H8") <> "" And Sheets("Input").Range("G10") <> "" Then
Sheets("Database").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues.ClearContents
อย่าเพียงแต่ Copy Code มาแปะโดยที่ไม่เข้าใจว่ามันคืออะไร ผมได้แนะนำไปแล้วว่ากรณีที่ไม่เข้าใจ VBA เลยก็ควรจะอ่านและทำตามหนังสือมาเป็นลำดับไป ฟอรัมนี้ไม่รับทำงาน ไม่รับทำการบ้านให้ท่านใด ให้ถามเฉพาะที่ติดปัญหาเท่านั้นครับ

Top