ตัดสต็อคสินค้าด้วยเอ็กเซล .. [Easy_excel_EP34]

ฝึกจัดการฐานข้อมูลผ่านการเรียนรู้เรื่องการตัด Stock สินค้าผ่านโปรแกรม Excel ทำให้ชีวิตง่ายขึ้นมาก คลิปนี้อาจจะยากนิดนึง พี่ใช้เวลาทำคลิปนี้คลิปเดียว 12 ชั่วโมง ก็หวังว่าน่าจะมีประโยชน์กับทุกคนนะครับ
Link file สำหรับฝึกหัด -- drive.google.c...
ซื้อหัวอ่านอย่าเห็นแก่ของถูกนะครับ พี่เควี้ยงทิ้งไปหลายอันแล้ว
จนมาเจอรุ่นนี้ 5 ปียังใช้ดีอยู่เลย ปืนที่ใช้ในคลิปพี่ซื้อรุ่นนี้จากร้านนี้ตามลิงค์ด้านล่าง
bit.ly/3DjLQAm
แค่บอกว่า
* ช่วยตั้งอ่านบาร์โค๊ด 39 และ EAN
* ช่วยตั้งให้เปลี่ยนบรรทัดอัตโนมัติ
ทั้งหมดบริการฟรีครับ ร้านค้าใจดีมากๆ
#Easy_Excel #Stock #Inventory #ร้านสะดวกซื้อ #สร้างบาร์โค้ดด้วย_excel #ทําบาร์โค้ด_ด้วย_excel
#เครื่องสแกนบาร์โค้ด #สต๊อกสินค้า_excel #1firstone #excel #exceltricks

[@1firstone]

น้องหลายคนอยากได้ปืนรุ่นเดียวกับพี่ พี่ซื้อจากร้านนี้นะครับของแท้ ถึกทน bit.ly/3lgN6NH

[@blueberryaomonly13]

ขอบคุณค่ะ

[@1firstone]

ยินดีครับ

[@biamala7773]

หลังจากทำมาโครทุกอย่างแล้ว สแกนขายของแล้ว แล้วทำการเครียยอดขายออกแล้ว ทำการสแกนขายใหม่ยอดขายไม่ขึ่นตรงที่ขายครับ

[@1firstone]

ตอนทำ Record macro น่าจะลบสูตรไปด้วยครับ ลองทำใหม่ตามคลิปนี้นะครับ ตลิปนี้จะสอนช้าและละเอียดมากกว่า kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@biamala7773]

ขอบคุณมากครับผม

[@user-rq7su1nr2i]

พีครับช้าๆนิดครับ

[@1firstone]

555 ช้ามากพวกเซียนก็เบื่อน่ะครับ ต้องกลางๆไว้ก่อน ถ้าตามไม่ทันลองใช้ฟังก์ชั่นลด Speed นะดูครับ ผมก็ใช้เวลาตามเทพคนอื่นไม่ทัน

[@telos7420]

อยากให้ทำแนว เบิกเครื่องมือ คืนเครื่องมือ โดยยิง Barcode เวลาเบิก เวลาคืนยิงBarcode คืน แจ้งรายการครบไม่ครบครับ

[@1firstone]

Good idea เดี๋ยวจัดให้ครับ

[@user-pr8xm6zi1g]

kzbin.info/www/bejne/i5moZXWIbcifeJosi=A900Di36pPmNgjin

[@lpto2745]

ติดปัญหาหน้าบิลค่ะ เวลากดSaleช่องที่1-4ข้อมูลหายไป แต่ช่องที่5ถึงช่องสุดท้ายไม่หายไปยังขึ้นอยู่แบบเดิมเลย ไม่รู้ว่าทำตรงไหนผิด ลองทำใหม่หลายครั้งก็ไม่หาย งงหนักมากค่ะ

[@1firstone]

ส่ง VBA เข้ามาตรวจหน่อยครับ หรือเปรียบเทียบกับ VBA ของพี่ก็ได้ครับ Sheets("Sale").Select Range("K5:N19").Select Selection.Copy Sheets("Sumsale").Select Range("B5").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("B6:E1048576").Select Application.CutCopyMode = False ActiveWorkbook.Worksheets("Sumsale").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sumsale").Sort.SortFields.Add2 Key:=Range("B6:B1048576" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sumsale").Sort .SetRange Range("B5:E1048576") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B5").Select Sheets("Inventory").Select Range("K5").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "=SUMIF(Sale!R5C2:R18C2,Inventory!RC[-9],Sale!R5C4:R18C4)+Inventory!RC[-3]" Range("K5").Select Selection.Copy Range("K6:K21").Select ActiveSheet.Paste Range("K5:K21").Select Application.CutCopyMode = False Selection.Copy Range("H5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("K5:K21").Select Application.CutCopyMode = False Selection.ClearContents Range("B5").Select Sheets("Sale").Select Range("B5:B18").Select Selection.ClearContents Range("B5").Select End Sub

[@1firstone]

พี่เดาว่าน่าจะเป็นที่ท่อนล่างสุดครับ ตรงล้างข้อมูลการสแกน น้องคลุมไม่ถึงบรรทัดล่างสุดในตาราง Sheets("Sale").Select Range("B5:B18").Select ของน้องน่าจะเป็น **** __B5:B8__ **** Selection.ClearContents Range("B5").Select

[@lpto2745]

@@1firstone ขอบคุณมากค่ะ จะลองตรวจดูนะคะ

[@Dd-vv6bv]

ตอนที่บันทึกmacro ตอนยิ่งใหม่อยากให้มันrun บันทัดต่อมาเลยไม่ต้องขึ้นบรรทัด A1 ใหม่ทำอย่างไรคะ อยากให้ยิงโค้ดได้เป็นอาทิต แต่กดSale ดูได้เรื่อยๆค่า

[@1firstone]

ตอนบันทึก MACRO ให้ข้ามขั้นตอนที่ลบข้อมูลในหน้า SALE ไป

[@user-Joe1331]

ขอบคุณมากๆครับ

[@1firstone]

ยินดีมากๆครับ

[@1firstone]

ฉบับเต็ม On Air แล้วนะครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c ค่อยๆทำตาม ทำได้แน่นอน

[@jaratkarnnaruksatham6930]

บันทึกปุ่มเรียบร้อยทดลองใช้เรียบร้อย แต่พอปิดหน้า excelแล้วเปิดใหม่ มันปิดการใช้งาน ทำอย่างไรดีคะ

[@1firstone]

ลองทำตามช่วงแรกของคลิปนี้ให้ครบแล้วลองรันใหม่ดูนะครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@user-bp1id4ef9n]

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

[@1firstone]

ลองดูเวอร์ชั่นนี้ครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@mintmyntmynt]

มีการตัด stock เพื่อ record ไหมคะ รอติดตามแล้วค่า เป็นประโยชน์มากเลย

[@mintmyntmynt]

ที่บันทึกการขายในแต่ละวันค่ะ

[@1firstone]

จริงๆ สร้าง Template ไว้ แล้ว Lookup ยอดขายรายวันไปวางก็ได้นะครับ แต่ถ้าจะเอาอัตโนมัติเลยก็ทำได้ครับแต่จะซับซ้อนเกินจำเป็นไปนิด ลอง Apply ใช้ดูก่อนนะครับ ถ้าไม่ได้จริงๆมา Comment ไว้ เดี๋ยวจะทำคลิปสั้นๆต่อให้ครับ ( ขึ้น Comment ใหม่เด้อ ต่อท้ายแบบนี้มันไม่ Alert พี่อาจมองไม่เห็น )

[@1firstone]

ฉบับเต็ม On Air แล้วนะครับ web.facebook.com/profile.php?id=100067604402538 ถ้าตังใจ ทำตามได้แน่นอน

[@jairakjung9193]

ชอบมากเลยค่ะ ลองทำตามแล้ว barcode สินค้า 13 หลัก เป็นตัวเลข แต่พอยิงใน excel กลายเป็นตัวหนังสือผสมตัวเลข แบบนี้เกิดจากอะไร แก้ไขยังไงคะ ขอบคุณค่ะ

[@1firstone]

ตอนยิงบาร์โค้ด​ให้เปลี่ยนฟอนต์​เป็นภาษาอังกฤษ​และระวังCaplock ด้วยนะครับ

[@jairakjung9193]

เป็นภาษาอังกฤษค่ะ ไม่ติด caplock แต่ตัวเลข13 หลัก จะแสดงผลเป็น ตัวหนังสือภาษาอังกฤษผสมตัวเลขค่ะ

[@jairakjung9193]

@@1firstone ส่งไปทางเมลแล้วนะคะ //ขอบคุณค่ะ

[@1firstone]

ฉบับเต็ม On Air แล้วนะครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c ค่อยๆทำตาม ทำได้แน่นอน

[@jairlinethai]

อาจารย์ครับ รบกวนทำคลิป การจัดตารางเวร ดูบ้างนะครับ ^_^

[@1firstone]

ได้เลย ยินดีครับ

[@jairlinethai]

@@1firstone ขอบคุณครับ เดิมทำกันแบบ manual พอมีการขอสลับเวรแล้ววุ่นวายเลยครับ ^_^

[@1firstone]

ต่อคิวให้แล้วครับ จะทำให้เข้าใจง่ายที่สุดเลย

[@praseartchangprabit7690]

พี่ครับ ลูกค้าผมเค้าทำ Excel ของเค้าอยู่แล้ว แต่อยากให้ยิงบาโค๊คขายแล้วออกบิลครับ รบกวนช่วยตออบกลับหน่อยนะครับ

[@1firstone]

ลองดูครับ kzbin.info/www/bejne/hZjaZmuIZat4p6csi=Z6p5I3Y_eDE8tEd0

[@tamonwanpimonbunyong3109]

สวัสดีค่ะ ลองทำแล้วค่ะ ตามคลิปแต่ขึ้น Run-time9 subscript out of range ต้องแก้ไขยังไงค่ะรบกวนด้วยนะค่ะ

[@1firstone]

ลองดูตามคลิปนี้นะครับ kzbin.info/www/bejne/mIKtaYiGl8-ors0

[@1firstone]

ฉบับเต็ม On Air แล้วนะครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c ค่อยๆทำตาม ทำได้แน่นอน

[@beamsonnok]

เป็นเหมือนกันเลยค่ะ ปุ่มขึ้นruntime9

[@1firstone]

Run9 เป็นเรื่องของ Front ครับ มักจะเกิดตอนที่เราเขียนมาโคร แฃ้วสร้างชีทเป็นชื่อภาษาไทย บางทีมันก็อ่านไม่ออก เวลาเข้าไปเช็คใน VBA แล้วจะเห็นเป็นภาษาต่างดาวครับ วิธีป้องกันง่ายๆคือ ใช้ชื่อชีทเป็นภาษาอังกฤษหรือตัวเลขเข้าไว้

[@dorahappyful]

ลองทำแล้วคะ แต่macro ทำแล้วไม่สามารถเชื่อมตัดให้ได้คะ รบกวนแนะนำหน่อยคะ

[@1firstone]

น่าจะหมายถึงมาโครไม่รันรึเปล่า ลองทำตามคลิปสั้นๆนี้ดูนะครับ kzbin.info/www/bejne/in2wZXdnqbGZrbc

[@nokwang8919]

ปืนยิงผมมีที่ยิงอยู่แล้งใช้ได้เลยมั้ยคนับ

[@1firstone]

ลองยิ่งใส่เอ็กเซลเปล่าๆดูก่อนนะ ถ้ายิงได้ก็ใช้ได้ครับ

[@qewbpkk]

ขอโทษนะครับ ขอดู VBA ของ Macro ที่พี่ทำได้ไหมครับ รบกวนนิดนึงครับ

[@1firstone]

Sheets("สต็อคสินค้า").Select Range("L5").Select ActiveWindow.SmallScroll Down:=-9 ActiveCell.FormulaR1C1 = "=COUNTIF(ขายปลีก!R5C2:R1003C2,สต็อคสินค้า!RC[-11])" Range("L5").Select Selection.Copy Range("J5").Select Selection.End(xlDown).Select Range("L5961").Select Range(Selection, Selection.End(xlUp)).Select Range("L6:L5961").Select Range("L5961").Activate ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlUp).Select Range("M5").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-1]" Range("M5").Select Selection.Copy Range("L5").Select Selection.End(xlDown).Select Range("M5961").Select Range(Selection, Selection.End(xlUp)).Select Range("M6:M5961").Select Range("M5961").Activate ActiveSheet.Paste Application.CutCopyMode = False Range("M5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("H5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L5:M6").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.ClearContents Range("H5").Select Sheets("ขายปลีก").Select Range("D7:F9").Select Selection.ClearContents Range("E25:F27").Select ActiveCell.FormulaR1C1 = "0%" Range("C25").Select Selection.End(xlDown).Select Range("B1003").Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range("B5:B1003").Select Range("B1003").Activate Selection.ClearContents Range("B5").Select End Sub

[@qewbpkk]

@@1firstone ขอบคุณมากๆนะครับ^^ ❤

[@bird9648]

พี่คะสอบการทำ มาโคหน่อยคะ

[@1firstone]

แบบง่ายครับ kzbin.info/www/bejne/hZjaZmuIZat4p6csi=dccg_kq3VTAs2EFV

[@user-iq6so1kb8n]

ขอเบอรมือถือของอาจารย์ด้วยครับ อยากสมัครเรียนครับ

[@1firstone]

เป็นเกียรติครับ ต้องขอประทานโทษเป็นอย่างสูงนะ พี่ยังไม่เปิดรับลูกศิษย์ครับ งานประจำมันรัดคออยู่ไม่มีเวลาดูแลน้องๆครับ ถ้าจะทำพี่ไม่อยากสอนทิ้งสอนขว้างเด้อ เอาไว้โดนไล่ออกแล้วค่อยว่ากันนะ 5555 ในเพจ "คนรักเอ็กเซล" มีอาจารย์ที่เก่งกว่าพี่รับสอนอยู่หลายท่านครับลองดูนะ ค่าตัวไม่แรงด้วย

[@noomrightscan1539]

เรา สามารถทำ Barcode สำหรับ ยกเลิก order ได้ไหมครับ // แทนการใช้เมาล์คลิก

[@1firstone]

ถามว่าทำได้ไหมก็พอมีวิธีครับ คือการสร้าง Code เฉพาะขึ้น เช่น "100001" แล้วให้สูตรด้านบนมาอ่านค่า Cell นี้ด้วยครับ ว่าถ้าเจอ 100001 ให้จำนวน = 0 เช่น [c2] =if(a3=100001,0,if(a2="","",1)) ดังนั้นถ้าเราต้องการยกเลิกรายการด้านบนก็มายิงบาร์ที่เราสร้างไว้ จำนวนจาก 1 จะเปลี่ยนเป็น 0 ทำให้ไม่คำนวนราคาในช่องจำนวนเงิน พอจะนึกภาพออกไหมครับ วิธีการสร้าง Barcode ดูตามคลิปนี้นะครับ kzbin.info/www/bejne/jKbRmHdufrKap9E ** แต่ผมไม่ค่อยแนะนำนะครับ ลูกค้าอาจจะงงได้ เพราะรายการยังคงอยู่ แค่ไม่ได้คิดเงินเฉยๆ

[@noomrightscan1539]

ผมสร้างปุ่ม button ใน VB เพื่อเคลียรค่ารายการ ในช่อง barcode // โดยใช้ code // Sub resetcell() Range("A2:A15").Select Selection.ClearContents Range("A2:A15").Select End Sub // หากผมจะไม่อยากกดคลิกที่ ปุ่ม button แต่จะใช้ barcode ที่สร้างขึ้น เพื่อสแกน แล้วเคลียร รายการในช่อง Barcode // ต้องทำประมาที่อาจารย์ แนะนำใช่ไหมครับ

[@wandeek5441]

สนใจมากครับ

[@1firstone]

คลิปนี้เป็นการสอนทำสต็อคสินค้าระดับง่าย ถ้าชอบแนวนี้ลองเข้าไปดูในเพลิสท์ สอนทำสต็อคสินค้า ในช่องของพี่ได้เลยครับ พี่วางคลิปไล่ STEP าจากปูพื้นฐานไปจนถึง Advance เลย

[@gbchannel3068]

แล้วยอดเงินแต่ล่ะยอดเอามาสรุปรวมกันทำยังไงครับ

[@1firstone]

ดูคลิปเต็มได้เลยครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@isotpc1294]

กดบันทึกแล้วข้อมูลไม่ไปเกิดจากอะไรคะ

[@1firstone]

ลองค่อยๆทำตามคลิปนี้นะครับ ตั้งแต่นาทีที่ 3 kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@sockcoolman9418]

ขอเฟสได้ใหมครับอาจารย์มีอะไรอยากถาม

[@1firstone]

เฟสพี่มีไว้ทิ้ง Link เฉยๆ ยังไม่มีเวลามาอัพเดทเลย แต่ก็ฝากเรื่องไว้ได้ครับ web.facebook.com/profile.php?id=100067604402538

[@1firstone]

ฉบับเต็ม On Air แล้วนะครับ kzbin.info/www/bejne/hZjaZmuIZat4p6c

[@sockcoolman9418]

มันขึ้นว่าrun-time error ‘9’: Subscript out of rangeต้องทำไงครับ

[@1firstone]

ดูช่วงแรกของฉบับเต็มครับ