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