Excel Forum

: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 จากเมนูด้านซ้าย ...

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

เซลล์ C3 คีย์

=TEXT(DATE($B$2-543,MATCH($B3,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),C$2),"ววว")

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

ตัวอย่างสุตรที่ O4 ครับ

=VLOOKUP(C4,bom!$B$3:$K$1000,5,0)*G4/100

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

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

1. ที่ Z2 คีย์
   =VLOOKUP($Z$1,$B$3:$V$50000,18,0)
   Enter
2. ที่ AA3 คีย์
   =IF(AD3="","",IF($Z$2<AD$1,$Z$2,IF($Z$2-(SUM(AA$2:AA2)-AA$2)>=AD$1,AD$1,$Z$2-(SUM(AA$2:AA2)-AA$2))))
   Enter > Copy ไปด้านขวาถึง AC3 แล้ว Copy ลงด้านล่าง

ผมไม่เข้าใจ ว่าทำไหม ",3," เลข สาม ทำไหมถึงไม่ใช่ สี่ ครับ
:D ที่เป็น 3 เพื่อเป็นการเผื่อไว้ว่าวันที่จะเป็นแค่เลขหลักเดียว หากมั่นใจว่าวันที่เป็น 2 หลักเสมอสามารถใช้ 4 ตามสะดวกครับ


ผมก็เลย ลองกด ctrl+shift+enter ผลออกมาตามต้องการ
ผมเขียนด้วย O365 มันแสดงผลได้โดยไม่ต้องกดแป้น Ctrl+Shift+Enter ...

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

=SUBSTITUTE(A2,".","/")+0

Enter > Copy ลงด้านล่าง จากนั้นจัดรูปแบบให้เป็นวันที่


ผมขอสูตรแก้ไข format date
...
พบว่าจาก / ให้กลายเป็น / สูตรไม่ทำงานให้และขึ้นค่า #VALUE!


ที่เป็นเช่นนั้นเพราะค่าเป็นวันที่อยู่แล้วไม่ใช่ Text แบบที่คั่นด้วย . ครับ เมื่อเป็นว ...

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

=INDEX(ไฟล์ตั้งต้น!$B$2:$E$13,MATCH($A2,ไฟล์ตั้งต้น!$A$2:$A$13,0),COLUMNS($B1:B1))=INDEX(ในระบบ!$B$2:$E$13,MATCH($A2,ในระบบ!$A$2:$A$13,0),COLUMNS($B1:B1))

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

:D ประกาศตัวแปรเพิ่มครับ

เป็น


Dim i As Long, j As Integer
'Other code
If Sheets("Product").Range("D" & i).Value = Sheets("BaiBake").Range("M10") Then
Sheets("Product").Range("G" & i).Copy
Sheets("BaiBake").Range("E" & Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial xlPasteValues

Sheets ...

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

=DATE(D3-543,MATCH(TRIM(MID(D4,3,20)),TEXT(DATE(2025,INDEX(ROW(1:12),0),1),"ดดดด"),0),D5)

หากมีรายการเกิน 30 รายการ
ให้เอาไปแค่ 30 รายการต้องปรับโค๊ดอย่างไรครับ
:D ตัวอย่าง Code ครับ
'Other code
If Sheets("Product").Range("D" & i).Value = Sheets("BaiBake").Range("M10") Then

Sheets("Product").Range("G" & i).Copy
Sheets("BaiBake").Range("E" & Rows.Count).End(xlUp).Offset(1, 0 ...

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

=N(D4)+B5-C5

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

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

=IF(MONTH($B$2)<>MONTH($B$2+ROWS(B$5:B5)-1),"",$B$2+ROWS(B$5:B5)-1)

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

=N(E2)+IF(RIGHT(C3)="บ",D3,-D3)

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