Excel Forum

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

=IF(SUM(C5:I5)>100,"",SUM(C5:I5))

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

ข้อมูลจริงมีถึงบรรทัดที่ 1323 แต่ปรับสูตรให้ครอบคลุมเพียง 700 บรรทัด เพราะเหตุนี้จึงดึงข้อมูลมาไม่ครบครับ

Application.EnableEvents = False
With ActiveSheet
ofs = .Range("d1").Value
:D ปรับ Code ที่ยกมาด้านบนเป็นด้านล่างครับ

Application.EnableEvents = False
With Target.Parent
ofs = .Range("d1").Value

Target คือเซลล์ที่เปลี่ยนค่า ส่วน Target.Parent เป็นการอ้างอิงไปยัง Object ที่มีลำดับชั้นส ...

:D ตัวอย่างการปรับ Code ครับ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ofs As Integer
Application.EnableEvents = False
With ActiveSheet
ofs = .Range("d1").Value
If Target.Address = "$D$3" Then
.Range("D2").Value = _
Sheet2.Range("B1").Offset(ofs, 0).Value
.Range("d1").Value ...

มีเหตุผลใดที่ต้องปรับกรุณาแจ้งมาพร้อมตัวอย่างปัญหาครับ

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

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

ที่ C3 คีย์
=VLOOKUP($B3,ข้อมูลกลางที่ใช้สำหรับทุกบริษัท!$A$2:$B$10000,2,0)
Enter > Copy ลงด้านล่าง
ที่ D3 คีย์
=VLOOKUP($B3,ข้อมูลกลางที่ใช้สำหรับทุกบริษัท!$A$2:$C$10000,3,0)
Enter > Copy ลงด้านล่าง
ที่ G3 คีย์
=IF(COUNTIFS(ฐานข้อมูลชื่อในระบบรายบริษัท!$A ...

แจกฟรีไฟล์ติดตามแผ่นดินไหวแบบ Realtime มีปุ่มให้คลิก Refresh เพื่อดูข้อมูลล่าสุดได้ตามสะดวก

:D ตัวอย่างสูตรตามด้านล่างซึ่งกำหนดเอาไว้แค่บรรทัดที่ 100 ควรปรับให้เป็นไปตามข้อมูลจริงครับ

ที่ F1 คีย์
=IFERROR(AGGREGATE(15,6,ROW(input!$C$23:$C$ 100 )/((input!$E$23:$E$ 100 <>"")*(LEN(input!$H$23:$H$ 100 )>0)),ROWS(D$1:D1)),"")
Enter > Copy ลงด้านล่าง
ที่ A1 คีย์
=IF($F1="","",INDEX ...

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

ที่ AG3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS(B3:AF3,"ป"))
Enter > Copy ลงด้านล่าง
ที่ AH3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS($B3:$AF3, "ล"))
Enter > Copy ลงด้านล่าง
ที่ AI3 คีย์
=IF(COUNTIFS(B3:AF3,"<>")=0,"",COUNTIFS($B3:$AF3,"ข ...

:D เซลล์ I3:I7 ไม่มีสูตรสำหรับแสดงค่าออกมาอัตโนมัติครับ

ส่วน A2:F19 สามารถกำหนด Conditional Formatting ได้ โดยสรุปคือ


คลุม A2:F19
เข้าเมนู Home > Conditional Formatting > New Rule
กำหนดสูตรและ Format ไปทีละสีตามเงื่อนไขไปจนครบทุกเงื่อนไข ตัวอย่างกำหนดให้กับเงื่อนไขแรกดังภาพ


หากลองกำหนดแล ...

:D ยังไม่ค่อยเข้าใจครับ

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


ที่ AG3 คีย์
=IF(COUNTIFS(B3:AF3,"ป")=0,"",COUNTIFS(B3:AF3,"ป"))
Enter > Copy ลงด้านล่าง
ที่ AH3 คีย์
=IF(COUNTIFS($B3:$AF3,"ล")=0,"",COUNTIFS($B3:$AF3 ...

ตัวอย่างสูตรใน AJ3 ครับ

=IF(COUNTIFS(B3:AF3,"✓")=0,"",COUNTIFS(B3:AF3,"✓"))

:D ตัวอย่างการปรับ Code ให้นำค่าใน TextBox1 มาใช้ Search ครับ

Private Sub TexBox1_Change()
Dim ws As Worksheet
Dim searchText As String

Set ws = ActiveSheet
searchText = ws.OLEObjects("TextBox1").Object.Text
If searchText = "" Then
Exit Sub
Else
ws.Range("B5").AutoFilter Field:=2 ...

ในขั้นตอน Save ลองเปลี่ยนจาก FileFormat:=xlCSVUTF8 เป็น FileFormat:=xlCSV ครับ

:D หากหมายถึง Validation ในเซลล์ D4 สามารถเลือกได้อย่างเดียวว่าจะให้เป็นการ Lookup มาจากสูตรหรือทำ Validation ครับ

กรณีต้องการใช้ Validation และเมื่อเปลี่ยนค่าในเซลล์ J1 แล้วต้องการให้ทราบว่าจะต้องเลือก D4 ใหม่ สามารถกำหนด Conditional Formatting ให้กับ D4 ได้ โดย หาก Lookup กันไม่พบก็ให้แสดง Font ...

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

=IFERROR(@INDEX(Active!B:B,AGGREGATE(14,6,ROW(Active!$A$3:$D$38)/(Active!$A$3:$D$38=$H$1),ROWS(B5:B$6))),"")

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

:D ปรับสูตรที่ E5 เป็นด้านล่างครับ

=IF(DATE($AO$3,MATCH($D5,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),E$4)>EOMONTH(DATE($AO$3,MATCH($D5,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),1),0),"",IF(OR(AND(DAY($B$4)>E$4,$D5=TEXT($B$4,"ดดดด")),AND(DAY($B$6)<E$4,$D5=TEXT($B$6,"ดดดด ...

:D ตัวอย่างสูตรครับ

เซลล์ AJ4 คีย์

=SUMPRODUCT(--ISNA(MATCH(E4:AI4,{"ส.","อา."},0)),--(E4:AI4<>""),--ISNA(MATCH(DATE($AO$2,MATCH($D4,TEXT(1&"/"&ROW(INDIRECT("1:12")),"ดดดด"),0),$E$3:$AI$3),Holiday!$B$3:$B$16,0)))

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

เป็นการนับวันหยุดของปีตาม AO2 เท่านั้นครับ

หากไม่ต ...

:D ตัวอย่างสูตรครับ

ข้อ 1 และ 3 ปรับสูตรเดิมในเซลล์ E4 เป็น

=IF(OR(AND(DAY($B$3)>E$3,$D4=TEXT($B$3,"ดดดด")),AND(DAY($B$5)<E$3,$D4=TEXT($B$5,"ดดดด"))),"",TEXT(DATE($AO$2,MATCH($D4,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),E$3),"ววว"))

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

ข้อ 2 เพิ่ม ...

:D ลองกำหนด Regional Setting ตามด้านล่างครับ

เปิด Power BI Desktop
เปิดโปรแกรม Power BI Desktop บนคอมพิวเตอร์
ไปที่ Options
คลิกที่ File ในเมนูด้านบน แล้วเลือก Options and settings จากนั้นเลือก Options
ตั้งค่า Regional Settings
ในหน้าต่าง Options ให้เลือก Regional Settings จากเมนูด้านซ้าย ...