Snasui Excel Forum

Posted: **Tue May 17, 2016 5:38 pm**

กำลังสร้างปุ่ม "สรุปข้อมูล" ซึ่งอยู่ในชีท ลงคิวขาย เมื่อกดปุ่มนี้จะส่งข้อมูลที่ต้องการในชีทลงคิวขายไปยังชีทสรุปการขาย
จาก vba บรรทัดนี้
Sheets("ลงคิวขาย").Select
หมายความว่าเราเลือก sheet ชื่อ "ลงคิวขาย" ถูกต้องไหมครับ

ถ้าเราไม่ระบุชื่อ sheet แต่เปลี่ยนเงื่อนไขเป็นชีทปัจจุบันได้หรือไม่ เนื่องจากสร้างปุ่มไว้สำหรับเพิ่ม sheet อัตโนมัติ
ถ้ากดปุ่มนี้ จะเพิ่มเป็น
ลงคิวขาย (2)
ลงคิวขาย (3)
ลงคิวขาย (4)
เพิ่มไปเรื่อยๆ ชื่อชีทก็จะเปลี่ยนไปเรื่อยๆ
แบบนี้จะต้องใส่ code แบบไหนที่ไม่ต้องเปลี่ยนชื่อเป็น ลงคิวขาย (2), ลงคิวขาย (3) ครับ

Posted: **Tue May 17, 2016 5:51 pm**

akranan wrote:จาก vba บรรทัดนี้
Sheets("ลงคิวขาย").Select
หมายความว่าเราเลือก sheet ชื่อ "ลงคิวขาย" ถูกต้องไหมครับ

ถ้าเราไม่ระบุชื่อ sheet แต่เปลี่ยนเงื่อนไขเป็นชีทปัจจุบันได้หรือไม่

กรณีต้องการเลือกชีตปัจจุบันเปลี่ยน Code เป็น ActiveSheet.Select ครับ

Posted: **Tue May 17, 2016 6:02 pm**

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

Posted: **Wed May 18, 2016 2:02 am**

ตอนนี้ใช้ code นี้ครับ ใช้ดัดแปลงเอาจากในนี้แหละครับ

Code: Select all

Sub CommandButton_Summary()

    ActiveSheet.Select
    Range("B7:G7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("สรุปการขาย").Select
    Range("A2").Select
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    ActiveSheet.Select
    Application.CutCopyMode = False
    MsgBox ("เรียบร้อย")
End Sub

ผลคือเป็นไปตามที่ต้องการ แต่ปัญหาอยู่ที่หลังจากรัน code นี้ มีดังนี้ครับ
1. หลังจากกดปุ่ม "เรียบร้อย" จะให้กลับไปสู่ชีทเดิม(ชีทที่ copy ข้อมูลมา)และไม่สามารถระบุชื่อชีทเดิมได้เนื่องจากชื่อชีทต้องเปลี่ยนไปเรื่อยๆ ต้องใส่อย่างไรครับ
2. สมุติว่าเปิดไฟล์นี้มาให้ไปที่เซลล์ A3 เพื่อกรอกข้อมูล ถ้าเรียบร้อยแล้ว กด Enter หรือ สแกนบาร์โค๊ดแล้ว ให้ไปยังเซล B5 จะต้องเพิ่มเติมจาก code ที่ใช้อยู่อย่างไรครับ

Code: Select all

Sub Sale_1()
    Sheets("คิวขาย").Select
    Sheets("คิวขาย").Copy After:=Sheets(4)
    Range("A3").Activate

ขอบคุณล่วงหน้าครับอาจารย์

Posted: **Wed May 18, 2016 7:13 pm**

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

Posted: **Thu May 19, 2016 12:40 am**

ต้องขออภัยครับ ตอบช้าไปนิดพอดีติดงาน

ตามไฟล์แนบครับ

สิ่งที่อยากให้โปรแกรมทำงานตามนี้ครับ
1. คลิกปุ่ม "จ่ายสินค้า"
2. ใส่ชื่อผู้ทำรายการที่ B3
3. กำหนดให้ไปที่ C7 เพื่อยิงบาร์โค้ดสินค้า <<<<<ติดปัญหา
4. ใส่บาร์โค้ดสินค้า อ้างอิงจาก ชีท ข้อมูลสินค้า
5. กดปุ่มบันทึก มุมขวาบน เพื่อรวมยอดขายในบิลนี้ ไปที่ชีทสรุปการขาย
6. กดปุ่มเรียบร้อย แล้วให้กลับมาสู่ชีทเดิม ในข้อ 5 <<<<<ติดปัญหา
7. กดปุ่มเสร็จสิ้น > ok > เพื่อกลับสู่ชีทเมนูหลัก
8. ทำซ้ำข้อ 1 เพื่อจ่ายสินค้าบิลต่อไป ภายในวัน ไปเรื่อยๆ

สิ่งที่ติดปัญหาไม่รู้จะเขียนยังไงคือข้อ 3, 6 และส่วนของอนาคตครับ (กำลังศึกษาเรื่อยๆ)

อนาคต ต้องการซ่อนชีท ข้อมุลสินค้า, คิวขาย(ชีทต้นแบบ) และล็อคเซลอื่นๆไม่ให้แก้ไข นอกจากเซลที่ให้กรอกข้อมูลเท่านั้น
และมีอีก 1 ไฟล์เพื่อรวบรวมข้อมูลขายในแต่ละวัน(สรุป 1 เดือน) จากชีทสรุปการขาย

ปล.บางวันมี 10 บิล บางวันมี 200 บิลครับ
ขอบคุณครับ

Posted: **Thu May 19, 2016 6:46 pm**

ตัวอย่างการให้กลับไปยังชีตเดิม ใช้ตัวแปรเข้ามาช่วยตามด้านล่าง ลองปรับปรุงดู ติดตรงไหนค่อยถามกันต่อครับ

Code: Select all

Sub CommandButton_Summary()
    Dim oldSh As Worksheet
    Set oldSh = ActiveSheet
    '...Other code...
    MsgBox ("เรียบร้อย")
    oldSh.Select
End Sub

Posted: **Fri May 20, 2016 3:03 am**

Code: Select all

Sub CommandButton_Summary()

    ActiveSheet.Select
    Range("B7:H7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("สรุปการขาย").Select
    Range("A2").Select
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    ActiveSheet.Select
    Application.CutCopyMode = False
    Dim oldSh As Worksheet
    Set oldSh = ActiveSheet
    '...Other code...
    MsgBox ("เรียบร้อย")
    oldSh.Select
End Sub

ผมใส่แบบนี้แล้วไม่ไปไหนเลยครับ

Posted: **Fri May 20, 2016 6:15 am**

Code นั้นผมเขียนให้เป็นตัวอย่าง ส่วนที่เป็น '...Other code... หมายถึง Code เดิมที่เขียนเอาไว้แล้วครับ นั่นแสดงว่าส่วนของ Dim และ Set จะต้องอยู่บรรทัดบนสุดหลังจาก Sub เช่นนี้ครับ

Posted: **Fri May 20, 2016 3:42 pm**

เข้าใจแล้วครับอาจารย์ ตอนนี้ได้แบบที่ต้องการแล้วครับ ขอบคุณมากๆครับ

Posted: **Mon May 23, 2016 5:45 pm**

รบกวนครับ
ในชีท สรุปการขาย คอลัม E ทำไมคัดลอกแล้วมาว่างเฉพาะค่า
แต่ทำไมถึงไม่เป็นตัวเลขครับ (ต้องกดปุ่มเขียวๆแล้วแปลงเป็นตัวเลขครับ)

Posted: **Mon May 23, 2016 9:45 pm**

เขียน Code จัด Format ของคอลัมน์ E ให้เป็น Number แล้วลองวางแบบค่าใหม่ครับ

Snasui Excel Forum

Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่

Re: Sheets("ลงคิวขาย").Select ใน"" ไม่ระบุชื่อชีทได้หรือไม่