Snasui Excel Forum

ขอบคุณครับ
พอดีว่าได้ให้ gemini ทำโค๊ดให้ แล้วได้ผล

Sub ClsOverBothWays_Final_WithEventFix()
Dim r As Range, i As Long
Dim checkCols As Range
Dim startRow As Long, endRow As Long

' --- จุดสำคัญ: ต้องปิด Events ตั้งแต่เริ่ม ---
Application.ScreenUpdating = False
Application.EnableEvents ...

ขอบคุณครับ ที่ต้องการคือ ที่เกินไปทางขวามือ ก้ต้องการให้เคลียร์ด้วย โดย เช็คจากแถวที่ 4 หากมีค่าว่าง หรือเป็น 0

จากไฟล์ที่แนบมา

Sub ClsOverScore() ' เคลียร์คะแนนที่เกินจำนวนคนที่มีชื่อ
Dim lastRow As Long
Dim i As Long, r As Range, j As Long
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
With ActiveSheet
Set r = .Range("D5")
Do While r.Offset(i, 0).Value ...

จากไฟล์ที่แนบมา
ต้องการให้ผู้ใช้งานกรอกข้อมูลที่เซล C2 เป็นตัวเลขเท่านั้น และบังคับต้องกรอกให้ครบ 13 ตัว เกินไม่ได้ ไม่ถึงไม่ได้
เมื่อกรอกเสร็จแล้วให้เซลนั้นแสดงผลเป็นรูปแบบ เลขบัตรประชาชน 0 0000 00000 00 0
ที่ Data (ข้อมูล) > Data Validation ผมใช้สูตร =AND(ISNUMBER(C2), LEN(C2)=13)
Format Cell ผมจ ...

ขอบคุณมาครับ
พอดีเมื่อคืนลองใช้ sumifs ดูแล้วได้ผลลัพธ์ตามต้องการแล้วครับ
ที่ H7 คีย์สูตร =SUMIFS(Data!$F$4:$F$2000, Data!$I$4:$I$2000, $C7, Data!$J$4:$J$2000, $H$6, Data!$C$4:$C$2000, "<="&$J$1) แล้ว Copy ลงข้างล่าง
ที่ I7 คีย์สูตร =SUMIFS(Data!$G$4:$G$2000, Data!$I$4:$I$2000, $C7, Data!$J$4:$J ...

ข้อ 1 ในช่อง รายรับ และ รายจ่าย ใช้ Sumproduct หาผลรวม ของรายรับ ผลรวมของรายจ่าย
โดยมีเงื่อนไขสองเงื่อนไขคือ ให้ รวมเฉพาะแต่ละประเภทของงบประมาณ และ ให้รวมไม่เกินวันที่ ที่กำหนดไว้ใน J1 ตัวนี้สูตรผ่านแล้ว

ข้อ 2 ในช่อง คลอลัมน์ H ตั้งแต่ เซล H7 ลงไป ในชีท Total และ คลอลัมน์ I ตั้งแต่เซล I7 ลงไป ในช ...

จากไฟล์ที่แนบมา
ที่ชีท Total ตั้งแต่ช่วงข้อมูล H7:H21 ต้องการให้แสดงผลรวมของ F4:F2000 (จากชีท Data)
โดยมีเงื่อนไขว่า ค่าของ ประเภทงบประมาณ ตรงกัน และ ค่าใน J4:J2000 (จากชีท Data) ตรงกับค่าใน H4 (ชีท Total)
ต้องเขียนสูตรอย่างไรครับ

ขอบคุณครับผม

จากไฟล์ที่แนบมา
ที่คลอลัมน์ C มีข้อมูล เป็น
4/2569
4/2570 ไล่ลงไป
ต้องการใส่สูตรที่คลอลัมน์ D เพื่อเปลี่ยน 4/2569 เป็น 4_2569
ต้องเขียนสูตรอย่างไรครับ

ได้แล้วครับ ขอบคุณมากครับ

จากโค๊ดนี้
เป็นการตรวจสอบชื่อไฟล์ที่จะนำเข้า("รับจ่าย_25-02-69") ว่าตรงกับที่เขียนไว้ใน เซล A8 หรือไม่
ถ้าตรงก็ในนำเข้า ถ้าไม่ตรงก็ยกเลิกการนำเข้า
ต้องการให้เปลี่ยนการตรวจสอบแค่ชื่อไฟล์แค่จากข้างหน้าไป 7 ตัว ("รับจ่าย") ถ้าใช่ก็ให้นำเข้า


If VBA.InStr(fileToOpen, Range("A8").Value) = 0 Then ...

ขอบคุณครับ

จากไฟล์ที่แนบมา
ต้องการเคลียร์ข้อมูลในแถวใดแถวหนึ่งที่ถูกเลือก
โดยเคลียร์ข้อมูลในแถวนั้นเฉพาะคลอลัมน์ที่ไม่ใช่สูตร
(ในไฟล์ที่แนบมาต้องการเคลียร์ข้อมูลในคลอลัมน์ B C D E และ H)
ต้องปรับแก้โค๊ดอย่างไรครับ

Sub DelSelectRow()
If MsgBox("คุณต้องการลบที่เลือก ใช่หรือไม่?", 36, "ยืนยันการการลบข้อมูล ...

ขอบคุณครับ ได้ตามต้องการครับ

จากไฟล์ที่แนบมา
ถ้าเซลในคลอลัมน์มีการคีย์ข้อมูล ให้ตีเส้นตารางเนวตั้งลงไป ถึงแถวสุดท้ายตัดจากที่มีข้อมูล ให้ตีเส้นปิดแถว
ต้องใส่สูตรอย่างไรครับ

จากไฟล์ที่แนบมา มีการตรึงแนวคลอลัมน์ D และแถวที่ 3
ป้องกันการแก้ไขชีท สิ่งที่ต้องการคือ ป้องกันไม่ให้ผู้ใช้งานคนอื่น ยกเลิการตรึงแนว มีวิธีการอย่างไรครับ
ผมลองป้องกันชีทไม่ให้แก้ไขไว้ รหัสป้องกันชีทคือ 1 แต่ก็ยังสามารถยกเลิกการตรึงแนวโดยที่ไม่ต้องยกเลิการป้องกันชีท

ได้ผลตามต้องการ ขอบคุณครับ

จากไฟล์ที่แนบมา
เซล E2 = เซล C2
ต้องการจัดรูปแบบเซล E2 ดังนี้
ถ้า C2 ว่าง หรือเป็น 0 ให้ E2 แสดงผลเป็น -
ถ้า C2 เป็นจำนวนเต็ม ให้ E2 แสดงผลเป็นจำนวนเต็ม (ไม่มีทศนิยม)
ถ้า C2 เป็นทศนิยม ให้ E2 แสดงผลมีทศนิยม
ต้องกำหนดการจัดรูปแบบใน E2 อย่างไรครับ

ขอบคุณครับผม

จากไฟล์ที่แนบมา
ต้องการดึงข้อมูลจากคลอลัมน์ C ไปแสดงในคลอลัมน์ F
โดยมีเงื่อนไขว่า ในเซล H1 ต้องตรงกับ คลอลัมน์ A และ J1 ตรงกับ คลอลัมน์ B
ตอนนี้ผมใช้สูตร

=IFERROR(INDEX(C:C,AGGREGATE(15,6,ROW(A:A)/(A:A=$H$1),AGGREGATE(15,6,ROW(B:B)/(B:B=$J$1),ROWS(F$2:F2)))),"")

แต่มันจะดึงมาไม ...