Snasui Excel Forum

:D การทำเช่นนั้นต้องอาศัย VBA ผมเขียนเป็นตัวอย่างให้ลองปรับใช้งานก่อน หากปรับใช้แล้วติดปัญหาส่วนไหนอย่างไรค่อยนำ Code ล่าสุดมาถามกันต่อครับ

Code ด้านล่างต้องวางใน Sheet1 (All) ไม่ใช่วางใน Module ใด ๆ ครับ

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Worksheet ...

:D หลัก ๆ คือ นำสูตรเดิมในคอลัมน์ C ไปหารด้วย 24 อีกทีเพื่อทำให้เป็นระบบเวลาครับ

วิธีการ

ปรับสูตรเดิมที่คอลัมน์ C เป็น
=A2/B2/24
Enter > Copy ลงด้านล่าง
ปรับ Format ให้แสดงผลในรูปแบบที่ต้องการ โดยเลือกผลลัพธ์ทั้งหมด > คลิกขวา > Format Cells... > ที่แถบ Number เลือก Custom > ที่ช่อง Type: คีย ...

ตัวอย่างสูตรที่ C2 ครับ

=IF(COUNTIFS($B$2:$B$200,A2)=1,A2,IF(B2<>B3,SUMIFS($A$2:$A$200,$B$2:$B$200,B2),0))

Enter > Copy ลงด้านล่าง

:D ผมเดาความหมายเพิ่มจากข้อมูลแวดล้อมประกอบด้วยครับ

จากสูตร
=COUNTIFS(B5:B2500,"<-0.30%",B5:B2500,">=-1%")


การนับเดิมมีเงื่อนไขเดียวคือ <-0.3%

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

เงื่อนไขที่จะได้คำตอบตามท ...

ลองปรับสูตรเป็นด้านล่างครับ

=COUNTIFS(D2:D16,"<-0.30%",D2:D16,">=-1%") หรือ

=SUMPRODUCT(--(D2:D16>=-1%),--(D2:D16<-0.3%))

วิธีกำหนดการแสดง Format ให้คลุมข้อมูลวันที่ จากนั้นคลิกขวาเลือก Format Cells... > ที่แถบ Number เลือก Custom > ที่ช่อง Type: คีย์ dd/mm/yyyy > OK

หากยังไม่ได้คำตอบลองแนบไฟล์นั้นมาดูกันครับ

การนับสียังปัจจุบันยังไม่สามารถนับด้วยสูตรได้ ต้องนับด้วย VBA ครับ

หากต้องการใช้งาน VBA ช่วยแนบไฟล์ตัวอย่างพร้อม VBA ที่ได้ลองเขียนมาเองแล้วจะได้ตอบต่อไปจากนั้นครับ

:D การทำงานเช่นนั้นคงต้องพึ่ง VBA เข้ามาช่วยครับ

เป็นการดักจับเพื่อสร้างการตรึงแนวใหม่ ในกรณีผู้ใช้ยกเลิกการตรึงแล้วและมีการคลิกในตำแหน่งเซลล์ใด ๆ โปรแกรมจะมีการตรววจสอบว่ามีการตรึงแนวอยู่แล้วหรือไม่ หากไม่มีจะตรึงแนวให้ใหม่

ลองนำ Code นี้ไปวางใน Sheet1 แล้วทดสอบดูครับ
Private Sub Worksheet ...

ตัวอย่างการปรับสูตรที่เซลล์ D5 ครับ

=IF(J5="","",TEXT(26000+SUMPRODUCT(--(J5>J$5:J$11),--(J$5:J$11<>""))+COUNTIFS(J$5:J5,J5),"00000"))

Enter > Copy ลงด้านล่าง

อ่านแล้วยังไม่ค่อยเข้าใจ ลองทำตัวอย่างให้สอดคล้องกับคำอธิบาย คีย์ค่าลงไปตรง ๆ เพื่อจะได้เห็นภาพชัดเจน จะได้เข้าใจตรงกันครับ

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ C5 คีย์
   =B5&TEXT(COUNTIFS(B$5:B5,B5)," 000")
   Enter > Copy ลงด้านล่าง
2. ที่ D5 คีย์
   =IF(J5="","",TEXT(26000+COUNTIFS(J$5:J5,"<>"),"00000"))
   Enter > Copy ลงด้านล่าง

:D สามารถกำหนดตามลำดับนี้ครับ


กำหนดด้วย Custom Format

คลิกขวาที่ E2 > Format Cells...
คลิกแถบ Number ที่ช่อง Type: คีย์ #,##0;-#,##0;-
คลิกปุ่ม OK

กำหนดด้วย Conditional Formatting

คลิกเซลล์ E2
เข้าเมนู Home > Conditional Formatting > New rule
เลือก Use a formula to determine which ...

ตัวอย่างสูตรที่ L5 ครับ

=IFERROR(INDEX($C$5:$J$5,AGGREGATE(15,6,(COLUMN($C5:$J5)-COLUMN($C$5)+1)/($C5:$J5<>""),COLUMNS($L5:L5))),"")

Enter > Copy ไปด้านขวาและลงด้านล่าง

:D ตัวอย่างการปรับสูตรที่เซลล์ A2 ครับ

=LET(
d, format!A2:NN190,
r, ROWS(d),
c, COLUMNS(d)-2,
t,
MAKEARRAY(r*c,4,
LAMBDA(i,j,
LET(
ri, INT((i-1)/c)+1,
ci, MOD(i-1,c)+1,
raw, TRIM(INDEX(d,ri,ci+2)),
head, IFERROR(TEXTBEFORE(raw," "),""),
s,
IF(
AND(head<>"", LEN(head)>=5, ISNUMBER ...

ต้อง Copy เอง สูตรนั้นแค่ช่วยให้มันรันลำดับครับ

วิธีการ Copy ให้เร็ว Copy ให้ครบ 10 อันก่อน แล้วค่อย Copy 10 อันนั้นไปวางต่อจาก 10 อันเดิมจะได้เป็น 20 อัน จากนั้นค่อย Copy 20 อันไปวางต่อของเดิมแบบนี้เป็นต้น การ Copy เช่นนี้จะทำให้ลดเวลาได้มากครับ

:D หากต้องการให้เริ่มจาก 401 ให้ปรับสูตรที่ D1 เป็นด้านล่างครับ

=TEXT(INT((ROWS(D$1:D2000)-1)/5)+1,"""No.""0000")

ซึ่งต้องทำก่อนที่จะ Copy ไปใช้งาน

แต่หาก Copy ไปเรียบร้อยแล้วให้ใช้การ Replace แทนตามด้านล่างครับ

วิธีการ

คลุมคอลัมน์ D
เปิดกล่องโต้ตอบ Replace ด้วยการกดแป้น Ctrl+H
ช่องบนคีย ...

ขออภัย ปรับตัวเลขในสูตรที่ D1 จาก 6 เป็น 5 ดังด้านล่างก่อน Copy ไปใช้ต่อครับ

=TEXT(INT((ROWS(D$1:D1)-1)/5)+1,"""No.""0000")

สูตรนั้นจะรันให้เมื่อ Copy ไปด้านล่างครับ

การให้รันเองพร้อมข้อมูลที่เกี่ยวข้องโดยไม่ต้อง Copy ด้วยมือจะต้องเขียน VBA เข้าไปจัดการ (ซึ่งต้องเขียนมาเองก่อน) ไม่ทราบว่าผมเข้าใจถูกต้องหรือไม่ ช่วยอธิบายเพิ่มเติมหากผมยังเข้าใจไม่ถูกต้องครับ

ตัวอย่างสูตรที่ D1 ครับ

=TEXT(INT((ROWS(D$1:D1)-1)/6)+1,"""No.""0000")

Enter > Copy ช่วง A1:D5 ไปวางด้านล่างและด้านขวาเพื่อแสดงผลลัพธ์ตามต้องการ เมื่อได้ข้อมูลในชีตแรกแล้วค่อย Copy ไปวางในชีตอื่น ๆ ที่เหลือหากต้องการครับ

ช่วย Update Profile เพื่อระบุ Version ของ Excel ที่ใช้ตาม Link นี้ด้วยครับ viewtopic.php?p=103177#p103177

แนบไฟล์ตัวอย่างข้อมูล ตัวอย่างคำตอบที่ต้องการมาด้วยเพื่อจะได้เข้าใจตรงกัน สะดวกแต่การตอบของเพื่อนสมาชิกครับ