Размер видео: 1280 X 720853 X 480640 X 360
Показать панель управления
Автовоспроизведение
Автоповтор
น้องหลายคนอยากได้ปืนรุ่นเดียวกับพี่ พี่ซื้อจากร้านนี้นะครับของแท้ ถึกทน bit.ly/3lgN6NH
ใช้excel ปีไหนครับ
2016 ครับ
หลังจากทำมาโครทุกอย่างแล้ว สแกนขายของแล้ว แล้วทำการเครียยอดขายออกแล้ว ทำการสแกนขายใหม่ยอดขายไม่ขึ่นตรงที่ขายครับ
ตอนทำ Record macro น่าจะลบสูตรไปด้วยครับ ลองทำใหม่ตามคลิปนี้นะครับ ตลิปนี้จะสอนช้าและละเอียดมากกว่าruclips.net/video/Ogw58R0FEqE/видео.html
ขอบคุณมากครับผม
พี่คะสอบการทำ มาโคหน่อยคะ
แบบง่ายครับ ruclips.net/video/Ogw58R0FEqE/видео.htmlsi=dccg_kq3VTAs2EFV
ติดปัญหาหน้าบิลค่ะ เวลากด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").SelectEnd Sub
พี่เดาว่าน่าจะเป็นที่ท่อนล่างสุดครับ ตรงล้างข้อมูลการสแกน น้องคลุมไม่ถึงบรรทัดล่างสุดในตารางSheets("Sale").Select Range("B5:B18").Select ของน้องน่าจะเป็น **** __B5:B8__ **** Selection.ClearContents Range("B5").Select
@@1firstone ขอบคุณมากค่ะ จะลองตรวจดูนะคะ
ขอบคุณค่ะ
ยินดีครับ
ขอเบอรมือถือของอาจารย์ด้วยครับ อยากสมัครเรียนครับ
เป็นเกียรติครับ ต้องขอประทานโทษเป็นอย่างสูงนะ พี่ยังไม่เปิดรับลูกศิษย์ครับ งานประจำมันรัดคออยู่ไม่มีเวลาดูแลน้องๆครับ ถ้าจะทำพี่ไม่อยากสอนทิ้งสอนขว้างเด้อ เอาไว้โดนไล่ออกแล้วค่อยว่ากันนะ 5555ในเพจ "คนรักเอ็กเซล" มีอาจารย์ที่เก่งกว่าพี่รับสอนอยู่หลายท่านครับลองดูนะ ค่าตัวไม่แรงด้วย
พี่ครับ ลูกค้าผมเค้าทำ Excel ของเค้าอยู่แล้ว แต่อยากให้ยิงบาโค๊คขายแล้วออกบิลครับ รบกวนช่วยตออบกลับหน่อยนะครับ
ลองดูครับ ruclips.net/video/Ogw58R0FEqE/видео.htmlsi=Z6p5I3Y_eDE8tEd0
ขอเฟสได้ใหมครับอาจารย์มีอะไรอยากถาม
เฟสพี่มีไว้ทิ้ง Link เฉยๆ ยังไม่มีเวลามาอัพเดทเลย แต่ก็ฝากเรื่องไว้ได้ครับweb.facebook.com/profile.php?id=100067604402538
ฉบับเต็ม On Air แล้วนะครับ ruclips.net/video/Ogw58R0FEqE/видео.html
มันขึ้นว่าrun-time error ‘9’:Subscript out of rangeต้องทำไงครับ
ดูช่วงแรกของฉบับเต็มครับ
พีครับช้าๆนิดครับ
555 ช้ามากพวกเซียนก็เบื่อน่ะครับ ต้องกลางๆไว้ก่อนถ้าตามไม่ทันลองใช้ฟังก์ชั่นลด Speed นะดูครับ ผมก็ใช้เวลาตามเทพคนอื่นไม่ทัน
ตอนที่บันทึกmacro ตอนยิ่งใหม่อยากให้มันrun บันทัดต่อมาเลยไม่ต้องขึ้นบรรทัด A1 ใหม่ทำอย่างไรคะ อยากให้ยิงโค้ดได้เป็นอาทิต แต่กดSale ดูได้เรื่อยๆค่า
ตอนบันทึก MACRO ให้ข้ามขั้นตอนที่ลบข้อมูลในหน้า SALE ไป
ลองทำแล้วคะ แต่macro ทำแล้วไม่สามารถเชื่อมตัดให้ได้คะ รบกวนแนะนำหน่อยคะ
น่าจะหมายถึงมาโครไม่รันรึเปล่า ลองทำตามคลิปสั้นๆนี้ดูนะครับruclips.net/video/TLM4D1tLfwU/видео.html
สวัสดีค่ะ ลองทำแล้วค่ะ ตามคลิปแต่ขึ้น Run-time9 subscript out of range ต้องแก้ไขยังไงค่ะรบกวนด้วยนะค่ะ
ลองดูตามคลิปนี้นะครับruclips.net/video/bQJ8UPbjuxk/видео.html
ฉบับเต็ม On Air แล้วนะครับruclips.net/video/Ogw58R0FEqE/видео.htmlค่อยๆทำตาม ทำได้แน่นอน
เป็นเหมือนกันเลยค่ะ ปุ่มขึ้นruntime9
Run9 เป็นเรื่องของ Front ครับ มักจะเกิดตอนที่เราเขียนมาโคร แฃ้วสร้างชีทเป็นชื่อภาษาไทย บางทีมันก็อ่านไม่ออก เวลาเข้าไปเช็คใน VBA แล้วจะเห็นเป็นภาษาต่างดาวครับวิธีป้องกันง่ายๆคือ ใช้ชื่อชีทเป็นภาษาอังกฤษหรือตัวเลขเข้าไว้
พี่คะ จะรบกวนไปไหม ถ้าหนูอยากได้ไฟล์ที่เสร็จแล้วพร้อมใช้งานค่ะ หนูพยายามทำตามมาหลายอาทิตย์แล้วค่ะ แต่ยังทำไม่ได้เลย
ลองดูเวอร์ชั่นนี้ครับruclips.net/video/Ogw58R0FEqE/видео.html
อยากให้ทำแนว เบิกเครื่องมือ คืนเครื่องมือ โดยยิง Barcode เวลาเบิก เวลาคืนยิงBarcode คืน แจ้งรายการครบไม่ครบครับ
Good idea เดี๋ยวจัดให้ครับ
ruclips.net/video/UhE4BR8clB8/видео.htmlsi=A900Di36pPmNgjin
สนใจมากครับ
คลิปนี้เป็นการสอนทำสต็อคสินค้าระดับง่าย ถ้าชอบแนวนี้ลองเข้าไปดูในเพลิสท์ สอนทำสต็อคสินค้า ในช่องของพี่ได้เลยครับ พี่วางคลิปไล่ STEP าจากปูพื้นฐานไปจนถึง Advance เลย
บันทึกปุ่มเรียบร้อยทดลองใช้เรียบร้อย แต่พอปิดหน้า excelแล้วเปิดใหม่ มันปิดการใช้งาน ทำอย่างไรดีคะ
ลองทำตามช่วงแรกของคลิปนี้ให้ครบแล้วลองรันใหม่ดูนะครับruclips.net/video/Ogw58R0FEqE/видео.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").SelectEnd Sub
@@1firstone ขอบคุณมากๆนะครับ^^ ❤
มีการตัด stock เพื่อ record ไหมคะ รอติดตามแล้วค่า เป็นประโยชน์มากเลย
ที่บันทึกการขายในแต่ละวันค่ะ
จริงๆ สร้าง Template ไว้ แล้ว Lookup ยอดขายรายวันไปวางก็ได้นะครับ แต่ถ้าจะเอาอัตโนมัติเลยก็ทำได้ครับแต่จะซับซ้อนเกินจำเป็นไปนิด ลอง Apply ใช้ดูก่อนนะครับ ถ้าไม่ได้จริงๆมา Comment ไว้ เดี๋ยวจะทำคลิปสั้นๆต่อให้ครับ ( ขึ้น Comment ใหม่เด้อ ต่อท้ายแบบนี้มันไม่ Alert พี่อาจมองไม่เห็น )
ฉบับเต็ม On Air แล้วนะครับweb.facebook.com/profile.php?id=100067604402538ถ้าตังใจ ทำตามได้แน่นอน
อาจารย์ครับ รบกวนทำคลิป การจัดตารางเวร ดูบ้างนะครับ ^_^
ได้เลย ยินดีครับ
@@1firstone ขอบคุณครับ เดิมทำกันแบบ manual พอมีการขอสลับเวรแล้ววุ่นวายเลยครับ ^_^
ต่อคิวให้แล้วครับ จะทำให้เข้าใจง่ายที่สุดเลย
ชอบมากเลยค่ะ ลองทำตามแล้ว barcode สินค้า 13 หลัก เป็นตัวเลข แต่พอยิงใน excel กลายเป็นตัวหนังสือผสมตัวเลข แบบนี้เกิดจากอะไร แก้ไขยังไงคะ ขอบคุณค่ะ
ตอนยิงบาร์โค้ดให้เปลี่ยนฟอนต์เป็นภาษาอังกฤษและระวังCaplock ด้วยนะครับ
เป็นภาษาอังกฤษค่ะ ไม่ติด caplock แต่ตัวเลข13 หลัก จะแสดงผลเป็น ตัวหนังสือภาษาอังกฤษผสมตัวเลขค่ะ
@@1firstone ส่งไปทางเมลแล้วนะคะ //ขอบคุณค่ะ
เรา สามารถทำ Barcode สำหรับ ยกเลิก order ได้ไหมครับ // แทนการใช้เมาล์คลิก
ถามว่าทำได้ไหมก็พอมีวิธีครับ คือการสร้าง Code เฉพาะขึ้น เช่น "100001" แล้วให้สูตรด้านบนมาอ่านค่า Cell นี้ด้วยครับ ว่าถ้าเจอ 100001 ให้จำนวน = 0 เช่น [c2] =if(a3=100001,0,if(a2="","",1))ดังนั้นถ้าเราต้องการยกเลิกรายการด้านบนก็มายิงบาร์ที่เราสร้างไว้ จำนวนจาก 1 จะเปลี่ยนเป็น 0 ทำให้ไม่คำนวนราคาในช่องจำนวนเงิน พอจะนึกภาพออกไหมครับวิธีการสร้าง Barcode ดูตามคลิปนี้นะครับ ruclips.net/video/VungD8IMgqo/видео.html** แต่ผมไม่ค่อยแนะนำนะครับ ลูกค้าอาจจะงงได้ เพราะรายการยังคงอยู่ แค่ไม่ได้คิดเงินเฉยๆ
ผมสร้างปุ่ม button ใน VB เพื่อเคลียรค่ารายการ ในช่อง barcode // โดยใช้ code // Sub resetcell() Range("A2:A15").Select Selection.ClearContents Range("A2:A15").SelectEnd Sub // หากผมจะไม่อยากกดคลิกที่ ปุ่ม button แต่จะใช้ barcode ที่สร้างขึ้น เพื่อสแกน แล้วเคลียร รายการในช่อง Barcode // ต้องทำประมาที่อาจารย์ แนะนำใช่ไหมครับ
แล้วยอดเงินแต่ล่ะยอดเอามาสรุปรวมกันทำยังไงครับ
ดูคลิปเต็มได้เลยครับruclips.net/video/Ogw58R0FEqE/видео.html
กดบันทึกแล้วข้อมูลไม่ไปเกิดจากอะไรคะ
ลองค่อยๆทำตามคลิปนี้นะครับ ตั้งแต่นาทีที่ 3ruclips.net/video/Ogw58R0FEqE/видео.html
ปืนยิงผมมีที่ยิงอยู่แล้งใช้ได้เลยมั้ยคนับ
ลองยิ่งใส่เอ็กเซลเปล่าๆดูก่อนนะ ถ้ายิงได้ก็ใช้ได้ครับ
![ทำบิลโดยใช้เครื่องยิงบาร์โค๊ด(สะดวกซื้อ) [Easy_excel_EP.33]](http://i.ytimg.com/vi/bzFTj9UcFok/mqdefault.jpg)
![ทำบิลโดยใช้เครื่องยิงบาร์โค๊ด(สะดวกซื้อ) [Easy_excel_EP.33]](/img/tr.png)
![ทำบาร์โค้ดใช้เอง [Easy Excel EP.62]](http://i.ytimg.com/vi/SqxhWBJhBAU/mqdefault.jpg)
น้องหลายคนอยากได้ปืนรุ่นเดียวกับพี่ พี่ซื้อจากร้านนี้นะครับของแท้ ถึกทน bit.ly/3lgN6NH
ใช้excel ปีไหนครับ
2016 ครับ
หลังจากทำมาโครทุกอย่างแล้ว สแกนขายของแล้ว แล้วทำการเครียยอดขายออกแล้ว ทำการสแกนขายใหม่ยอดขายไม่ขึ่นตรงที่ขายครับ
ตอนทำ Record macro น่าจะลบสูตรไปด้วยครับ ลองทำใหม่ตามคลิปนี้นะครับ ตลิปนี้จะสอนช้าและละเอียดมากกว่า
ruclips.net/video/Ogw58R0FEqE/видео.html
ขอบคุณมากครับผม
พี่คะสอบการทำ มาโคหน่อยคะ
แบบง่ายครับ ruclips.net/video/Ogw58R0FEqE/видео.htmlsi=dccg_kq3VTAs2EFV
ติดปัญหาหน้าบิลค่ะ เวลากด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 ขอบคุณมากค่ะ จะลองตรวจดูนะคะ
ขอบคุณค่ะ
ยินดีครับ
ขอเบอรมือถือของอาจารย์ด้วยครับ อยากสมัครเรียนครับ
เป็นเกียรติครับ
ต้องขอประทานโทษเป็นอย่างสูงนะ พี่ยังไม่เปิดรับลูกศิษย์ครับ งานประจำมันรัดคออยู่ไม่มีเวลาดูแลน้องๆครับ ถ้าจะทำพี่ไม่อยากสอนทิ้งสอนขว้างเด้อ เอาไว้โดนไล่ออกแล้วค่อยว่ากันนะ 5555
ในเพจ "คนรักเอ็กเซล" มีอาจารย์ที่เก่งกว่าพี่รับสอนอยู่หลายท่านครับลองดูนะ ค่าตัวไม่แรงด้วย
พี่ครับ ลูกค้าผมเค้าทำ Excel ของเค้าอยู่แล้ว แต่อยากให้ยิงบาโค๊คขายแล้วออกบิลครับ รบกวนช่วยตออบกลับหน่อยนะครับ
ลองดูครับ ruclips.net/video/Ogw58R0FEqE/видео.htmlsi=Z6p5I3Y_eDE8tEd0
ขอเฟสได้ใหมครับอาจารย์มีอะไรอยากถาม
เฟสพี่มีไว้ทิ้ง Link เฉยๆ ยังไม่มีเวลามาอัพเดทเลย แต่ก็ฝากเรื่องไว้ได้ครับ
web.facebook.com/profile.php?id=100067604402538
ฉบับเต็ม On Air แล้วนะครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
มันขึ้นว่าrun-time error ‘9’:
Subscript out of rangeต้องทำไงครับ
ดูช่วงแรกของฉบับเต็มครับ
พีครับช้าๆนิดครับ
555 ช้ามากพวกเซียนก็เบื่อน่ะครับ ต้องกลางๆไว้ก่อน
ถ้าตามไม่ทันลองใช้ฟังก์ชั่นลด Speed นะดูครับ ผมก็ใช้เวลาตามเทพคนอื่นไม่ทัน
ตอนที่บันทึกmacro ตอนยิ่งใหม่อยากให้มันrun บันทัดต่อมาเลยไม่ต้องขึ้นบรรทัด A1 ใหม่ทำอย่างไรคะ อยากให้ยิงโค้ดได้เป็นอาทิต แต่กดSale ดูได้เรื่อยๆค่า
ตอนบันทึก MACRO ให้ข้ามขั้นตอนที่ลบข้อมูลในหน้า SALE ไป
ลองทำแล้วคะ แต่macro ทำแล้วไม่สามารถเชื่อมตัดให้ได้คะ รบกวนแนะนำหน่อยคะ
น่าจะหมายถึงมาโครไม่รันรึเปล่า ลองทำตามคลิปสั้นๆนี้ดูนะครับ
ruclips.net/video/TLM4D1tLfwU/видео.html
สวัสดีค่ะ ลองทำแล้วค่ะ ตามคลิปแต่ขึ้น Run-time9 subscript out of range ต้องแก้ไขยังไงค่ะรบกวนด้วยนะค่ะ
ลองดูตามคลิปนี้นะครับ
ruclips.net/video/bQJ8UPbjuxk/видео.html
ฉบับเต็ม On Air แล้วนะครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
ค่อยๆทำตาม ทำได้แน่นอน
เป็นเหมือนกันเลยค่ะ ปุ่มขึ้นruntime9
Run9 เป็นเรื่องของ Front ครับ มักจะเกิดตอนที่เราเขียนมาโคร แฃ้วสร้างชีทเป็นชื่อภาษาไทย บางทีมันก็อ่านไม่ออก เวลาเข้าไปเช็คใน VBA แล้วจะเห็นเป็นภาษาต่างดาวครับ
วิธีป้องกันง่ายๆคือ ใช้ชื่อชีทเป็นภาษาอังกฤษหรือตัวเลขเข้าไว้
พี่คะ จะรบกวนไปไหม ถ้าหนูอยากได้ไฟล์ที่เสร็จแล้วพร้อมใช้งานค่ะ หนูพยายามทำตามมาหลายอาทิตย์แล้วค่ะ แต่ยังทำไม่ได้เลย
ลองดูเวอร์ชั่นนี้ครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
อยากให้ทำแนว เบิกเครื่องมือ คืนเครื่องมือ โดยยิง Barcode เวลาเบิก เวลาคืนยิงBarcode คืน แจ้งรายการครบไม่ครบครับ
Good idea เดี๋ยวจัดให้ครับ
ruclips.net/video/UhE4BR8clB8/видео.htmlsi=A900Di36pPmNgjin
สนใจมากครับ
คลิปนี้เป็นการสอนทำสต็อคสินค้าระดับง่าย ถ้าชอบแนวนี้ลองเข้าไปดูในเพลิสท์ สอนทำสต็อคสินค้า ในช่องของพี่ได้เลยครับ พี่วางคลิปไล่ STEP าจากปูพื้นฐานไปจนถึง Advance เลย
บันทึกปุ่มเรียบร้อยทดลองใช้เรียบร้อย แต่พอปิดหน้า excelแล้วเปิดใหม่ มันปิดการใช้งาน ทำอย่างไรดีคะ
ลองทำตามช่วงแรกของคลิปนี้ให้ครบแล้วลองรันใหม่ดูนะครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
ขอบคุณมากๆครับ
ยินดีมากๆครับ
ฉบับเต็ม On Air แล้วนะครับ
ruclips.net/video/Ogw58R0FEqE/видео.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 ขอบคุณมากๆนะครับ^^ ❤
มีการตัด stock เพื่อ record ไหมคะ รอติดตามแล้วค่า เป็นประโยชน์มากเลย
ที่บันทึกการขายในแต่ละวันค่ะ
จริงๆ สร้าง Template ไว้ แล้ว Lookup ยอดขายรายวันไปวางก็ได้นะครับ แต่ถ้าจะเอาอัตโนมัติเลยก็ทำได้ครับแต่จะซับซ้อนเกินจำเป็นไปนิด ลอง Apply ใช้ดูก่อนนะครับ ถ้าไม่ได้จริงๆมา Comment ไว้ เดี๋ยวจะทำคลิปสั้นๆต่อให้ครับ ( ขึ้น Comment ใหม่เด้อ ต่อท้ายแบบนี้มันไม่ Alert พี่อาจมองไม่เห็น )
ฉบับเต็ม On Air แล้วนะครับ
web.facebook.com/profile.php?id=100067604402538
ถ้าตังใจ ทำตามได้แน่นอน
อาจารย์ครับ รบกวนทำคลิป การจัดตารางเวร ดูบ้างนะครับ ^_^
ได้เลย ยินดีครับ
@@1firstone ขอบคุณครับ เดิมทำกันแบบ manual พอมีการขอสลับเวรแล้ววุ่นวายเลยครับ ^_^
ต่อคิวให้แล้วครับ จะทำให้เข้าใจง่ายที่สุดเลย
ชอบมากเลยค่ะ ลองทำตามแล้ว barcode สินค้า 13 หลัก เป็นตัวเลข แต่พอยิงใน excel กลายเป็นตัวหนังสือผสมตัวเลข แบบนี้เกิดจากอะไร แก้ไขยังไงคะ ขอบคุณค่ะ
ตอนยิงบาร์โค้ดให้เปลี่ยนฟอนต์เป็นภาษาอังกฤษและระวังCaplock ด้วยนะครับ
เป็นภาษาอังกฤษค่ะ ไม่ติด caplock
แต่ตัวเลข13 หลัก จะแสดงผลเป็น ตัวหนังสือภาษาอังกฤษผสมตัวเลขค่ะ
@@1firstone ส่งไปทางเมลแล้วนะคะ //ขอบคุณค่ะ
ฉบับเต็ม On Air แล้วนะครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
ค่อยๆทำตาม ทำได้แน่นอน
เรา สามารถทำ Barcode สำหรับ ยกเลิก order ได้ไหมครับ // แทนการใช้เมาล์คลิก
ถามว่าทำได้ไหมก็พอมีวิธีครับ คือการสร้าง Code เฉพาะขึ้น เช่น "100001" แล้วให้สูตรด้านบนมาอ่านค่า Cell นี้ด้วยครับ ว่าถ้าเจอ 100001 ให้จำนวน = 0
เช่น [c2] =if(a3=100001,0,if(a2="","",1))
ดังนั้นถ้าเราต้องการยกเลิกรายการด้านบนก็มายิงบาร์ที่เราสร้างไว้ จำนวนจาก 1 จะเปลี่ยนเป็น 0 ทำให้ไม่คำนวนราคาในช่องจำนวนเงิน พอจะนึกภาพออกไหมครับ
วิธีการสร้าง Barcode ดูตามคลิปนี้นะครับ
ruclips.net/video/VungD8IMgqo/видео.html
** แต่ผมไม่ค่อยแนะนำนะครับ ลูกค้าอาจจะงงได้ เพราะรายการยังคงอยู่ แค่ไม่ได้คิดเงินเฉยๆ
ผมสร้างปุ่ม button ใน VB เพื่อเคลียรค่ารายการ ในช่อง barcode // โดยใช้ code // Sub resetcell()
Range("A2:A15").Select
Selection.ClearContents
Range("A2:A15").Select
End Sub // หากผมจะไม่อยากกดคลิกที่ ปุ่ม button แต่จะใช้ barcode ที่สร้างขึ้น เพื่อสแกน แล้วเคลียร รายการในช่อง Barcode // ต้องทำประมาที่อาจารย์ แนะนำใช่ไหมครับ
แล้วยอดเงินแต่ล่ะยอดเอามาสรุปรวมกันทำยังไงครับ
ดูคลิปเต็มได้เลยครับ
ruclips.net/video/Ogw58R0FEqE/видео.html
กดบันทึกแล้วข้อมูลไม่ไปเกิดจากอะไรคะ
ลองค่อยๆทำตามคลิปนี้นะครับ ตั้งแต่นาทีที่ 3
ruclips.net/video/Ogw58R0FEqE/видео.html
ปืนยิงผมมีที่ยิงอยู่แล้งใช้ได้เลยมั้ยคนับ
ลองยิ่งใส่เอ็กเซลเปล่าๆดูก่อนนะ ถ้ายิงได้ก็ใช้ได้ครับ