Snasui Excel Forum

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

ผมได้แนบไฟล์ตัวอย่างแล้วครับ

สวัสดีครับ

ช่อง C10:J203 จะมีสูตร vlookup อยู่ แต่ถ้าสูตร error หรือ หาค่าไม่เจอจะขึ้น #N/A
ผมอยากให้แจ้งเตือนเมื่อใน cell แสดง #N/A แต่ไม่มีอะไรเกิดขึ้นเลยครับ
ไม่ทราบว่า code นี้ผิดตรงส่วนไหนครับ

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range("C10:J203 ...

ขอบคุณมากครับ ตอนแรกติดปัญหาไม่ได้ใช้ mouse คลิกใช้ปุ่ม Enter แทนเลยเปลี่ยนมาใช้ Keydown ครับ

แต่ติดปัญหาตรงที่เมื่อเปิด Form ขึ้นมาจะต้องกดลูกษรลงและขึ้นไปช่องเดิมเพื่อให้ code นี้ทำงาน ถ้าจะตั้งให้ code นี้ทำงานเลยเมื่อคลิกมาที่ form นี้ ต้องเพิ่มคำสั่งอย่างไรครับ

ตอนนี้ได้ครบทุกความต้องการแล ...

ที่เขียนไว้นั้น ครั้งแรกขึ้น error หลังจากนั้นก็ไม่เกิดอะไรขึ้นครับและไม่สามารถเปลี่ยนภาษาได้ตามต้องการ

อยากจะกำหนดเหตุการณ์ดังนี้ครับ
1. เปลี่ยนภาษาไทยเมื่อคอเซอร์กระพริบ ที่ TextBox2 (ชื่อผู้รับสินค้า)
2. เปลี่ยนภาษาอังกฤษเมื่อคอเซอร์กระพริบ ที่ TextBox3 (ชื่อพนักงานจัดสินค้า) เนื่องจากต้องการยิง ...

code ด้านล่าง ตรง TextBox2.text << ใส่แบบนี้หรือไม่ครับ

ต้องการให้ TextBox2 กำหนดเป็นภาษาไทย

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(TextBox2.text, Target) Is Nothing Then Set_Keyb_Thai
If Not Application.Intersect(TextBox3.text, Target) Is ...

ตัวอย่างตามไฟล์แนบครับ

ใน Textbox2 เลือกไปที่ ช่อง A1 เพื่อให้เปลี่ยนเป็นภาษาไทยแล้วแต่ใน Form กรอกข้อมูลไม่ยอมเปลี่ยนภาษา Thai ให้
ใน Textbox3 เลือกไปที่ ช่อง ฺB1 เพื่อให้เปลี่ยนเป็นภาษา Eng แล้วแต่ใน Form กรอกข้อมูลไม่ยอมเปลี่ยนภาษา Eng ให้

ไม่ทราบว่าใส่ตรงไหนผิดครับ

สวัสดีครับ

เราสามารถกำหนดภาษาให้ช่อง Textbox ที่อยู่ใน Form ได้หรือไม่ครับ

เช่น Textbox1 ให้เป็นภาษาไทย พอกด Enter มาที่ Textbox2 ให้เปลี่ยนเป็นภาษาอังกฤษโดยอัตโนมัติครับ

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

สวัสดีครับ

ตอนนี้สามารถทำได้ในแบบที่ต้องการ ขอบคุณมากสำหรับแนวทางครับ แต่ติดปัญหาดังนี้ครับ

ตอนนี้ใช้ code นี้

Sub Goto_Qty()
'
' Goto_Qty แมโคร
'

'
ActiveCell.Offset(0, 4).Range("A1").Select
Selection.ClearContents
FormEX1.Show
ActiveCell.Offset(0, -4).Range("A1").Select
End Sub

Sub ...

สวัสดีครับอาจารย์

ตอนนี้ไฟล์ทุกอย่างใช้ได้อย่างเรียบร้อย

ในชีท "คิวขาย" จะยิง barcode แล้วข้อมูลจากในหน้าสินค้าจะมาแสดงในคิวขายตามที่ได้ใส่ไว้

ถ้าต้องการเพิ่มฟังชั่น(เงื่อนไขที่ 2) โดยในช่อง barcode โดยกำหนดเงื่อนไขดังนี้

เงื่อนไขที่ 1 : ยิง barcode แล้วข้อมูลแสดงสินค้าปกติแบบในไฟล์ที่แสดงอย ...

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

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

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 ...

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

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

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

ตอนนี้ใช้ code นี้ครับ ใช้ดัดแปลงเอาจากในนี้แหละครับ
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 ...

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

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

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

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

แต่เมื่อก่อนไม่เป็นครับ หลังๆนี่เป็นตลอด

ยังไงก็ขอบคุณมากครับ

สวัสดีครับ

ขอสอบถามการแก้ปัญหา เวลาแก้ไขข้อมูลงานเสร็จ กด Ctrl+S แล้วเวลากดปิด จะเด้งขึ้นมาถามว่า จะเซฟ หรือจะ ยกเลิกตามรูปครับ

คือเป็นเฉพาะไฟล์นี้ไฟล์เดียวครับ ถ้าไฟล์อื่นกด Ctrl+S แล้วสามารถปิดได้เลย

มีวิธีแก้มั้ยครับ ขอคำแนะนำหน่อยครับ