Excel Forum

ถ้า เลือก Y ใน column นี้ครบ 5 อันแล้ว ให้ drop down list ไม่แสดงค่าขึ้นมาให้เลือกคะ

Column B เลือก Drop Down List "Y" ได้สูงสุด 5 Row ถ้าเกินจำนวน ตัวเลือกใน Drop Down List จะหายไป

ได้แล้วค่ะ ขอบคุณค่ะ

วิธีการของคุณ Bo_ry ถ้าดึงข้อมูลข้าม Sheet จะดึงข้อมูลมาไม่ตรงค่ะ

snasui wrote: Mon May 08, 2023 4:51 pm กรุณาแนบไฟล์ล่าสุดที่ติดปัญหาพร้อมแสดงให้เห็นว่าปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไรจะได้เข้าใจตรงกันครับ

จาก Profile ที่ Update มาแสดงว่าใช้ Excel 365 กรุณาทดสอบสูตรที่คุณ Bo_ry ตอบไปด้วยว่าได้ผลหรือไม่ อย่างไร หากได้ผลก็สามารถเลือกใช้วิธีการนั้นได้เลยครับ

แนบไฟล์เพิ่มค่ะ

:D กรุณา Update Version ของ Excel ที่ใช้จริงตามหัวข้อ snasui ยินดีต้อนรับ ด้านบน :roll: หรือทำตามขั้นตอนที่ระบุใน Link นี้ครับ :arrow: https://snasui.com/viewtopic.php?p=103177#p103177

ตัวอย่างสูตรซึ่งกระจายวิธีคิดตามลำดับตามด้านล่างครับ

ที่เซลล์ M1:R1 คีย์หัวคอลัมน์ตามลำดับดังนี้
Information ...

ดึงรายการของ ID ที่อยู่ใน Information นั้นออกมาทั้งหมดแล้ว add จำนวนข้อมูลตามรายการ detail ที่บันทึกเพิ่มค่ะ

ได้คำตอบถูกต้องขอบคุณค่ะ

ระบุค่า Information = A ที่ column K แล้วที่ column L จะแสดงข้อมูล ID ของ A ทั้งหมดที่ Column E ทั้งหมดคะ

ได้คำตอบถูกต้องคะ ขอบคุณคะ

Insert row column ID จากนั้น add ข้อมูล Information และ Type ให้ทุก ID ตามจำนวนข้อของ Information และ Type เช่น มี Information และ Type 5 ข้อ ต้อง Add ทุกข้อให้กับ column ID คะ

ได้คำตอบตรงตามที่ต้องการเลยค่ะ ขอบคุณค่ะ

คำนวณวันที่เริ่มต้นและสิ้นสุด และหักจำนวนที่หายไป โดยให้แสดงจำนวนที่หักเรียบร้อยแล้วในรูปแบบ x ปี x เดือนค่ะ

ได้ตรงตามที่ต้องการเลยค่ะ ขอบคุณมากนะคะ

เรียงลำดับจาก ID และวันที่ โดยให้วันที่ที่น้อยสุดของ ID นั้นที่ column c มีค่าเท่ากับที่ 1 และวันที่ถัดไปเรียงลำดับไปเรื่อยๆ ถ้าเจอ ID ใหม่ก็ให้ Running ใหม่ค่ะ

ทำได้แล้วค่ะ ขอบคุณค่ะ
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.CountIfs(ActiveSheet.Range("A6:A10000"), "<>", _
ActiveSheet.Range("B6:B10000"), "=") Then
Cancel = True
MsgBox "Column B not blank"
Else
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

แนบไฟล์แล้วค่ะ ขอบคุณค่ะ

ถ้า Column A มีข้อมูล ที่ Column B จะต้องระบุค่า Yer หรือ No ถ้าไม่ระบุค่าที่ Column B จะมี Pop up แจ้งเตือนตอนที่จะทำการปิด excel คะ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Sheet1").Range("B1").Value = "" Then
Cancel = True
MsgBox "B1 not blank"
Else
ActiveWorkbook ...

ถ้าเลือก Dropdownlist ใน คอลัมน์ A เป็น OK จะสามารถเลือกรายการ Dropdownlist ที่คอลัมน์ B ได้ แต่ถ้าที่ คอลัมน์ A เป็น NO คอลัมน์ B สามารถพิมพ์ข้อความใส่ไปได้เลยค่ะ

ได้ตรงตามที่ต้องการแล้วค่ะ ขออนุญาตเพิ่มที่คอลัมน์ Q ถ้ากำหนดเวลาน้อยกว่า 4 ชั่วโมงให้แสดงค่าที่น้อยแต่ถ้ามากกว่า 4 ชั่วโมงสามารถเลือกพักได้ค่ะ ขอบคุณค่ะ