การบังคับให้ USER ใส่ข้อมูล

[Panuwat]

เรียนที่อาจารย์ ผมได้แนบไฟล์ปัญหามาให้ท่านอาจารย์ช่วยแก้ไข เพื่อจะนำไปใช้ประโยช์ในหน่วยงานครับ
Sheet 1 ต้องการให้ User ต้องใส่ข้อมูลทั้งหมดของพนักงานคนนั้นๆ (ถ้าใส่ข้อมูลแรกของพนักงานคนนั้นต้องใส่ให้หมด ถ้าลืมใส่ ให้มี Message แจ้งเตือน
Sheet 2 มีข้อมูล "ควรปรับปรุง" "พอใช้" "ดี" "ดีมาก" "ดีเยี่ยม" ถ้า User คีย์ ดีเยี่ยม ให้ขึ้น User form ให้กรอกข้อมูล และกด OK ข้อมูลเหตุผล จะถูกนำไปลงใน Cell ที่ต้องการ


ขอแสดงความนับถือ

[snasui]

คุณ Panuwat ลืมแนบ Code หรือเปล่าครับ ช่วยเขียน Code มาเองก่อนครับ ถ้าจะใช้ Userform ก็ต้องเพิ่มมาให้ด้วย ติดขัดตรงไหนก็ค่อยมาช่วยกันดูต่อครับ

[Panuwat]

เรียนท่านอาจารย์
ตามข้อ 2. ผมได้ทำ Code มาให้ แต่ยังเกิด ERROR อยู่ครับ รบกวนท่านอาจารย์ช่วยดูให้ด้วยครับ
ส่วนข้อ 1. ทำไม่ได้จริงๆ ครับ


ขอแสดงความนับถือ

[snasui]

ในชีทบังคับให้คีย์ทุกอัน มีลำดับขั้นตอนการทำงานอย่างไรครับ การจะให้โปรแกรมเช็คได้จะต้องบอกโปรแกรมด้วยว่าเมื่อผู้ใช้ทำอย่างไรโปรแกรมถึงจะเช็ค เช่นเมื่อคีย์บรรทัดใหม่, เมื่อ Save, เมื่อเลือกชีทอื่น เมื่อปิด เช่นนี้เป็นต้น

ส่วนข้อ 2. ผมเขียนตัวอย่าง Code มาให้ตามด้านล่างครับ

1. ที่ Sheet2

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("n5:q16")) Is Nothing Then
    FillCause
End If
End Sub

2. ที่ Module ปกติ

Code: Select all

Sub FillCause()
Application.EnableEvents = False
If ActiveCell = "ดีเยี่ยม" Then
ActiveCell.Offset(0, IIf(ActiveCell.Column = 14, 6, 5)) _
    = InputBox(prompt:="ระบุเหตุผล :", _
    Title:="เหตุผล")
End If
Application.EnableEvents = True
End Sub

[Panuwat]

เรียนท่านอาจารย์ครับ
ตามชีต Sheet 1 ผมต้องการให้เช็คเมื่อมีการคีย์บรรทัดใหม่ครับ เพราะถ้าเป็นการเช็คกรณีอื่นๆ แล้ว จะต้องมีการเตือนว่า การขาดหายของข้อมูล อยู่ในลำดับที่เท่าไหร่ ครับ
ส่วน Sheet 2 ผมขอความกรุณาอาจารย์ช่วยอธิบายให้ผมหน่อยครับ ว่า ในโค้ดตรงส่วนไหน ที่เมื่อคีย์ข้อความใน Message BOX แล้ว ข้อความใน Message BOX จะส่ง"เหตุผล" ลงไปใน Cell ต้องการ (ที่ระบุว่า ลงใน Cell ไหน ครับ เช่นในตัวอย่าง ดีเยี่ยมใน Cell N5 เหตุผลจะลงใน Cell U5 ครับ)

ขอแสดงความนับถือ

[snasui]

สำหรับการทำข้อความเตือนผมตรวจสอบใน Validation พบว่ามีการเขียนมาบ้างแล้ว ลักษณะการเตือนว่าคีย์ให้ครบก็สามารถเพิ่มเติมเข้าไปจากเดิมโดยใช้ And เพื่อจะทำเป็นหลายเงื่อนไขได้ครับ

สำหรับเงื่อนไขที่จะตรวจสอบว่าบรรทัดบนต้องไม่ว่างสามารถทำดังนี้ครับ

1. คลุม B3:G21
2. เข้าเมนู Data > Validation > ตรง Allow เลือก Custom > ตรง Formula: คีย์
=COUNTA(OFFSET($B3,-1,0,1,5))=6

กรณีต้องการใช้หลายเงื่อนไข ตรง Formula สามารถใช้ And เข้ามาช่วยเป็น

=And(Formula1,COUNTA(OFFSET($B3,-1,0,1,5))=6,Formula3,...)

จากตัวอย่างสูตรด้านบนจะเห็นว่าเงื่อนไขของการตรวจสอบว่าคีย์ครบหรือไม่ครบอยู่ในเงื่อนไขตัวที่สอง

กรณี Code การส่งค่าใน InputBox ไปบันทึกยังตำแหน่งที่ต้องการจาก Code ด้านล่าง

Code: Select all

ActiveCell.Offset(0, IIf(ActiveCell.Column = 14, 6, 5)) _
    = InputBox(prompt:="ระบุเหตุผล :", _
    Title:="เหตุผล")

ActiveCell คือเซลล์ปัจจุบัน
ActiveCell.Column คือคอลัมน์ของเซลล์ปัจจุบัน
ActiveCell.Offset(x,y) คือตำแหน่งเซลล์ใหม่ที่ถัดจากเซลล์ปัจจุบันไปจำนวน x บรรทัด y คอลัมน์
IIf(ActiveCell.Column = 14, 6, 5) หมายความว่า ถ้าเซลล์ปัจจุบันอยู่ในคอลัมน์ที่ 14 ก็ให้แสดงผลลัพธ์เป็น 6 ไม่เช่นนั้นก็ให้แสดงผลลัพธ์เป็น 5

[Panuwat]

ขอบพระคุณท่านอาจารย์มากครับ