Excel Forum

จากไฟล์ที่แนบมา หากต้องการป้องกันไม่ให้นำเข้าไป .CSV ซึ่งมีโครงสร้างไฟล์ต่างกันจะต้องปรับโค๊ดอย่างไรครับ (คิดไว้ว่าจะให้ตรวจสอบชื่อไฟล์ว่าตรงกับ เซลล์ A19 หรือไม่ ถ้าตรงก็ให้นำเข้า ถ้าไม่ตรงก็ให้แจ้งเตือน) Sub Imp_Score() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim wsMaster As Work...

ขอบคุณครับ

จากโค๊ดนี้ ต้องปรับแก้อย่างไร ให้ผู้ใช้ใส่รหัสปลดล็อคก่อน จึงจะปลดล็อกการป้องกัน Workbook ได้

กระจ่างครับ
ขอบคุณมากครับ

ขอบคุณครับ
กรณีปัญหาเนื่องจากอะไรครับ ถ้าเป็น .xlsx ไม่มีปัญหา
รบกวนช่วยอธิบายสองบรรทัดนี้ว่าทำงานอย่างไร

ขอบคุณครับ

จากไฟล์ที่แนบได้ส่งออกไฟล์เป็น .CSV แต่มีปัญหาคือข้อมูลในคลอลัมน์ C ที่เก็บเลขบัตรประชาชน 13 หลัก เมื่อทำการส่งออกไปแล้ว ไม่ตรงกับข้อมูลเดิม คือ ข้อมูลในหลักที่ 6 จะเปลี่ยนไป ไม่ทราบว่าเกิดจากสาเหตุใดและจะแก้ปัญหานี้อย่างไร ข้อมูลเดียวกันนี้ถ้าส่งออกเป็น excel จะไม่มีปัญหาใดๆ Sub ExpStuToCSV() Dim w...

จากไฟล์ที่แนบ ต้องการ สั่งพิมพ์เป็น PDF จากหลายชีทให้เรียงต่อกันในไฟล์เดียว ด้วยโค๊ด Sub PrintToPDF() Dim sFolderPath As String Dim Path As String Dim FName As String On Error Resume Next With ActiveSheet.PageSetup .Zoom = 100 End With Application.ScreenUpdating = False sFolderPath = "C:\"...

ขอบคุณครับ

ผมดูเงื่อนไขที่ 7 ผิดไปครับ
เงื่อนไขที่ถูกต้องเป็น
ได้ 2 หรือ 3 จำนวน 1-4 ตัว และที่เหลือ ไม่ต่ำ 1 (จาก 8 ข้อ ถ้าได้ 1 จำนวน 4 ข้อขึ้นไป ผลประเมินจะได้แค่ ผ่าน)

ขอบคุณครับมีข้อสงสัยจากสูตรตรงจุดนี้ครับ
IF(AND(AA8>=9,AA8<=12),"ผ่าน",IF(AND(AA8>=9,AA8<=12),"ดี"
เงื่อนไขเหมือนกันทุกอย่าง หากเงื่อนไขตรงตามนี้จะแสดงผลเป็น ผ่าน หรือ ดี ครับ

จากไฟล์ที่แนบ
1. ต้องการเขียนสูตรลงใน เซล Q8 โดยเช็คเงื่อนไงจาก U8 ถึง X8
2. ตัวอย่างที่ถูกต้องคือที่เซล R8 ครับ

จากไฟล์ที่แนบมา มีคุณลักษณะอันพึงประสงค์ 8 ข้อ แต่ละข้อจะมีเกณฑ์ดังนี้ 0 =ไม่ผ่าน 1 = ผ่าน = 2 ดี 3 = ดีเยี่ยม เมื่อมีการประเมินครบทั้ง 8 ข้อแล้วจึงทำการแปลผลในภาพรวมโดยมีเงื่อนไขดังนี้ ดีเด่น ต้องได้ 3 จำนวน 5 ตัวขึ้นไป และ ที่เหลือไม่ต่ำว่า 2 ดี ต้องได้ 3 จำนวน 5-7 ตัว ที่เหลือมี 1 หรือ 2 แต่ต้องไ...

ผมทำแบบรายงานขอซื้อพัสดุ ในเครื่องที่มีระบบปฏิบัติการ windows 10 และ excel 2019 โดยกำหนดพื้นที่การพิมพ์ไว้ในพิมพ์ใน 1 หน้าพอดี แต่เมื่อนำไฟล์นี้ไปเปิดกับเครื่องที่มีระบบปฏิบัติการ windows 11 และ excel 2019 ปรากฎว่าพื้นที่การพิมพ์เปลี่ยนไป ไม่อยู่ในหน้าเดียวตามที่กำหนดไว้ พอนำไปเปิดในเครื่อง Windows ...

ขอบคุณครับ

จากไฟล์ที่แนบมา
หากต้องการดึงข้อมูลนักเรียนจากชีท AllData มาแสดงที่ชีท ClassRoom
แยกเป็นชั้น เป็นห้อง ที่เปลี่ยนไปในเซลล์ L1 และ N1 ต้องปรับสูตรอย่างไรครับ
ตอนนี้ทำได้เฉพาะดึงเป็นชั้นมา แต่ยังติดตรงแยกห้อง

ใช้งานได้แล้วครับ ขอบคุณครับ สอบถามเพิ่มเติมครับว่า รกณีกรณีของไฟล์นี้ เราจัดรูปแบบปลายทางไว้อย่างหนึ่งพอดึงข้อมูลไปวางแล้ว รูปแบบที่จัดไว้เปลี่ยนไป เกิดจากสาเหตุใด และจะมีวิธีแก้ไขอย่างไรครับ (ชีท Database คลอลัมน์ Q จะเปลี่ยนเป็ํนรูปวันที่ จัดรูปแบบใหม่ให้เป็นข้อความแล้ว พอดึงข้อมูลอีกครั้งก็เปลี่...

ขอบพระคุณครับ
ทดสอบตามโค๊ดที่แนะนำ
ไม่ทราบว่าทำไมถึงมาหมด

ขอบคุณมากครับ ได้ลองทำตามคำแนะนำแล้ว จากไฟล์ที่แนบมา 1. ต้องการส่งข้อมูลจาก sheet1 ไปไว้ที่ Sheet2 ที่คลอลัมน์ Q ต้องปรับแก้อย่างไรครับ 2. ที่ sheet3 ถ้าคลอลัมน์ที่ค้นหาเปลี่ยนเป็น คลอลัมน์ D และคลอลัมน์ที่จะวางค่า เป็นคลอลัมน์ Q อย่างไร Sub Duplicate() Dim lngLastRow As Long, lngLoopRow As Long Dim...

ผมลืมปลดล็อคครับ
ใช้ไฟล์นี้ครับผม