ตัดสต็อคสินค้าด้วยเอ็กเซล .. [Easy_excel_EP34]
ฝัง
- เผยแพร่เมื่อ 4 ต.ค. 2024
- ฝึกจัดการฐานข้อมูลผ่านการเรียนรู้เรื่องการตัด Stock สินค้าผ่านโปรแกรม Excel ทำให้ชีวิตง่ายขึ้นมาก คลิปนี้อาจจะยากนิดนึง พี่ใช้เวลาทำคลิปนี้คลิปเดียว 12 ชั่วโมง ก็หวังว่าน่าจะมีประโยชน์กับทุกคนนะครับ
Link file สำหรับฝึกหัด -- drive.google.c...
ซื้อหัวอ่านอย่าเห็นแก่ของถูกนะครับ พี่เควี้ยงทิ้งไปหลายอันแล้ว
จนมาเจอรุ่นนี้ 5 ปียังใช้ดีอยู่เลย ปืนที่ใช้ในคลิปพี่ซื้อรุ่นนี้จากร้านนี้ตามลิงค์ด้านล่าง
bit.ly/3DjLQAm
แค่บอกว่า
ช่วยตั้งอ่านบาร์โค๊ด 39 และ EAN
ช่วยตั้งให้เปลี่ยนบรรทัดอัตโนมัติ
ทั้งหมดบริการฟรีครับ ร้านค้าใจดีมากๆ
#Easy_Excel #Stock #Inventory #ร้านสะดวกซื้อ #สร้างบาร์โค้ดด้วย_excel #ทําบาร์โค้ด_ด้วย_excel
#เครื่องสแกนบาร์โค้ด #สต๊อกสินค้า_excel #1firstone #excel #exceltricks
น้องหลายคนอยากได้ปืนรุ่นเดียวกับพี่ พี่ซื้อจากร้านนี้นะครับของแท้ ถึกทน bit.ly/3lgN6NH
ติดปัญหาหน้าบิลค่ะ เวลากดSaleช่องที่1-4ข้อมูลหายไป แต่ช่องที่5ถึงช่องสุดท้ายไม่หายไปยังขึ้นอยู่แบบเดิมเลย ไม่รู้ว่าทำตรงไหนผิด ลองทำใหม่หลายครั้งก็ไม่หาย งงหนักมากค่ะ
ส่ง 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
พี่เดาว่าน่าจะเป็นที่ท่อนล่างสุดครับ ตรงล้างข้อมูลการสแกน น้องคลุมไม่ถึงบรรทัดล่างสุดในตาราง
Sheets("Sale").Select
Range("B5:B18").Select ของน้องน่าจะเป็น **** __B5:B8__ ****
Selection.ClearContents
Range("B5").Select
@@1firstone ขอบคุณมากค่ะ จะลองตรวจดูนะคะ
ขอบคุณค่ะ
ยินดีครับ
ขอบคุณมากๆครับ
ยินดีมากๆครับ
ฉบับเต็ม On Air แล้วนะครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ค่อยๆทำตาม ทำได้แน่นอน
หลังจากทำมาโครทุกอย่างแล้ว สแกนขายของแล้ว แล้วทำการเครียยอดขายออกแล้ว ทำการสแกนขายใหม่ยอดขายไม่ขึ่นตรงที่ขายครับ
ตอนทำ Record macro น่าจะลบสูตรไปด้วยครับ ลองทำใหม่ตามคลิปนี้นะครับ ตลิปนี้จะสอนช้าและละเอียดมากกว่า
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ขอบคุณมากครับผม
พีครับช้าๆนิดครับ
555 ช้ามากพวกเซียนก็เบื่อน่ะครับ ต้องกลางๆไว้ก่อน
ถ้าตามไม่ทันลองใช้ฟังก์ชั่นลด Speed นะดูครับ ผมก็ใช้เวลาตามเทพคนอื่นไม่ทัน
อยากให้ทำแนว เบิกเครื่องมือ คืนเครื่องมือ โดยยิง Barcode เวลาเบิก เวลาคืนยิงBarcode คืน แจ้งรายการครบไม่ครบครับ
Good idea เดี๋ยวจัดให้ครับ
th-cam.com/video/UhE4BR8clB8/w-d-xo.htmlsi=A900Di36pPmNgjin
พี่คะสอบการทำ มาโคหน่อยคะ
แบบง่ายครับ th-cam.com/video/Ogw58R0FEqE/w-d-xo.htmlsi=dccg_kq3VTAs2EFV
ปืนยิงผมมีที่ยิงอยู่แล้งใช้ได้เลยมั้ยคนับ
ลองยิ่งใส่เอ็กเซลเปล่าๆดูก่อนนะ ถ้ายิงได้ก็ใช้ได้ครับ
อาจารย์ครับ รบกวนทำคลิป การจัดตารางเวร ดูบ้างนะครับ ^_^
ได้เลย ยินดีครับ
@@1firstone ขอบคุณครับ เดิมทำกันแบบ manual พอมีการขอสลับเวรแล้ววุ่นวายเลยครับ ^_^
ต่อคิวให้แล้วครับ จะทำให้เข้าใจง่ายที่สุดเลย
พี่ครับ ลูกค้าผมเค้าทำ Excel ของเค้าอยู่แล้ว แต่อยากให้ยิงบาโค๊คขายแล้วออกบิลครับ รบกวนช่วยตออบกลับหน่อยนะครับ
ลองดูครับ th-cam.com/video/Ogw58R0FEqE/w-d-xo.htmlsi=Z6p5I3Y_eDE8tEd0
สวัสดีค่ะ ลองทำแล้วค่ะ ตามคลิปแต่ขึ้น Run-time9 subscript out of range ต้องแก้ไขยังไงค่ะรบกวนด้วยนะค่ะ
ลองดูตามคลิปนี้นะครับ
th-cam.com/video/bQJ8UPbjuxk/w-d-xo.html
ฉบับเต็ม On Air แล้วนะครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ค่อยๆทำตาม ทำได้แน่นอน
เป็นเหมือนกันเลยค่ะ ปุ่มขึ้นruntime9
Run9 เป็นเรื่องของ Front ครับ มักจะเกิดตอนที่เราเขียนมาโคร แฃ้วสร้างชีทเป็นชื่อภาษาไทย บางทีมันก็อ่านไม่ออก เวลาเข้าไปเช็คใน VBA แล้วจะเห็นเป็นภาษาต่างดาวครับ
วิธีป้องกันง่ายๆคือ ใช้ชื่อชีทเป็นภาษาอังกฤษหรือตัวเลขเข้าไว้
ลองทำแล้วคะ แต่macro ทำแล้วไม่สามารถเชื่อมตัดให้ได้คะ รบกวนแนะนำหน่อยคะ
น่าจะหมายถึงมาโครไม่รันรึเปล่า ลองทำตามคลิปสั้นๆนี้ดูนะครับ
th-cam.com/video/TLM4D1tLfwU/w-d-xo.html
มีการตัด stock เพื่อ record ไหมคะ รอติดตามแล้วค่า เป็นประโยชน์มากเลย
ที่บันทึกการขายในแต่ละวันค่ะ
จริงๆ สร้าง Template ไว้ แล้ว Lookup ยอดขายรายวันไปวางก็ได้นะครับ แต่ถ้าจะเอาอัตโนมัติเลยก็ทำได้ครับแต่จะซับซ้อนเกินจำเป็นไปนิด ลอง Apply ใช้ดูก่อนนะครับ ถ้าไม่ได้จริงๆมา Comment ไว้ เดี๋ยวจะทำคลิปสั้นๆต่อให้ครับ ( ขึ้น Comment ใหม่เด้อ ต่อท้ายแบบนี้มันไม่ Alert พี่อาจมองไม่เห็น )
ฉบับเต็ม On Air แล้วนะครับ
web.facebook.com/profile.php?id=100067604402538
ถ้าตังใจ ทำตามได้แน่นอน
ตอนที่บันทึกmacro ตอนยิ่งใหม่อยากให้มันrun บันทัดต่อมาเลยไม่ต้องขึ้นบรรทัด A1 ใหม่ทำอย่างไรคะ อยากให้ยิงโค้ดได้เป็นอาทิต แต่กดSale ดูได้เรื่อยๆค่า
ตอนบันทึก MACRO ให้ข้ามขั้นตอนที่ลบข้อมูลในหน้า SALE ไป
ขอเบอรมือถือของอาจารย์ด้วยครับ อยากสมัครเรียนครับ
เป็นเกียรติครับ
ต้องขอประทานโทษเป็นอย่างสูงนะ พี่ยังไม่เปิดรับลูกศิษย์ครับ งานประจำมันรัดคออยู่ไม่มีเวลาดูแลน้องๆครับ ถ้าจะทำพี่ไม่อยากสอนทิ้งสอนขว้างเด้อ เอาไว้โดนไล่ออกแล้วค่อยว่ากันนะ 5555
ในเพจ "คนรักเอ็กเซล" มีอาจารย์ที่เก่งกว่าพี่รับสอนอยู่หลายท่านครับลองดูนะ ค่าตัวไม่แรงด้วย
พี่คะ จะรบกวนไปไหม ถ้าหนูอยากได้ไฟล์ที่เสร็จแล้วพร้อมใช้งานค่ะ หนูพยายามทำตามมาหลายอาทิตย์แล้วค่ะ แต่ยังทำไม่ได้เลย
ลองดูเวอร์ชั่นนี้ครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
บันทึกปุ่มเรียบร้อยทดลองใช้เรียบร้อย แต่พอปิดหน้า excelแล้วเปิดใหม่ มันปิดการใช้งาน ทำอย่างไรดีคะ
ลองทำตามช่วงแรกของคลิปนี้ให้ครบแล้วลองรันใหม่ดูนะครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ชอบมากเลยค่ะ ลองทำตามแล้ว barcode สินค้า 13 หลัก เป็นตัวเลข แต่พอยิงใน excel กลายเป็นตัวหนังสือผสมตัวเลข แบบนี้เกิดจากอะไร แก้ไขยังไงคะ ขอบคุณค่ะ
ตอนยิงบาร์โค้ดให้เปลี่ยนฟอนต์เป็นภาษาอังกฤษและระวังCaplock ด้วยนะครับ
เป็นภาษาอังกฤษค่ะ ไม่ติด caplock
แต่ตัวเลข13 หลัก จะแสดงผลเป็น ตัวหนังสือภาษาอังกฤษผสมตัวเลขค่ะ
@@1firstone ส่งไปทางเมลแล้วนะคะ //ขอบคุณค่ะ
ฉบับเต็ม On Air แล้วนะครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ค่อยๆทำตาม ทำได้แน่นอน
ขอโทษนะครับ ขอดู VBA ของ Macro ที่พี่ทำได้ไหมครับ รบกวนนิดนึงครับ
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
@@1firstone ขอบคุณมากๆนะครับ^^ ❤
เรา สามารถทำ Barcode สำหรับ ยกเลิก order ได้ไหมครับ // แทนการใช้เมาล์คลิก
ถามว่าทำได้ไหมก็พอมีวิธีครับ คือการสร้าง Code เฉพาะขึ้น เช่น "100001" แล้วให้สูตรด้านบนมาอ่านค่า Cell นี้ด้วยครับ ว่าถ้าเจอ 100001 ให้จำนวน = 0
เช่น [c2] =if(a3=100001,0,if(a2="","",1))
ดังนั้นถ้าเราต้องการยกเลิกรายการด้านบนก็มายิงบาร์ที่เราสร้างไว้ จำนวนจาก 1 จะเปลี่ยนเป็น 0 ทำให้ไม่คำนวนราคาในช่องจำนวนเงิน พอจะนึกภาพออกไหมครับ
วิธีการสร้าง Barcode ดูตามคลิปนี้นะครับ
th-cam.com/video/VungD8IMgqo/w-d-xo.html
** แต่ผมไม่ค่อยแนะนำนะครับ ลูกค้าอาจจะงงได้ เพราะรายการยังคงอยู่ แค่ไม่ได้คิดเงินเฉยๆ
ผมสร้างปุ่ม button ใน VB เพื่อเคลียรค่ารายการ ในช่อง barcode // โดยใช้ code // Sub resetcell()
Range("A2:A15").Select
Selection.ClearContents
Range("A2:A15").Select
End Sub // หากผมจะไม่อยากกดคลิกที่ ปุ่ม button แต่จะใช้ barcode ที่สร้างขึ้น เพื่อสแกน แล้วเคลียร รายการในช่อง Barcode // ต้องทำประมาที่อาจารย์ แนะนำใช่ไหมครับ
สนใจมากครับ
คลิปนี้เป็นการสอนทำสต็อคสินค้าระดับง่าย ถ้าชอบแนวนี้ลองเข้าไปดูในเพลิสท์ สอนทำสต็อคสินค้า ในช่องของพี่ได้เลยครับ พี่วางคลิปไล่ STEP าจากปูพื้นฐานไปจนถึง Advance เลย
กดบันทึกแล้วข้อมูลไม่ไปเกิดจากอะไรคะ
ลองค่อยๆทำตามคลิปนี้นะครับ ตั้งแต่นาทีที่ 3
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
แล้วยอดเงินแต่ล่ะยอดเอามาสรุปรวมกันทำยังไงครับ
ดูคลิปเต็มได้เลยครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
ขอเฟสได้ใหมครับอาจารย์มีอะไรอยากถาม
เฟสพี่มีไว้ทิ้ง Link เฉยๆ ยังไม่มีเวลามาอัพเดทเลย แต่ก็ฝากเรื่องไว้ได้ครับ
web.facebook.com/profile.php?id=100067604402538
ฉบับเต็ม On Air แล้วนะครับ
th-cam.com/video/Ogw58R0FEqE/w-d-xo.html
มันขึ้นว่าrun-time error ‘9’:
Subscript out of rangeต้องทำไงครับ
ดูช่วงแรกของฉบับเต็มครับ