Excel Forum

ต้องเซ็ตใน control panel ในหัวข้อ Internet
ให้ใส่แหล่งที่เชื่อมต่อของไฟล์ที่อยู่นั้นๆครับ

ปรับ A2=SUM(--(FREQUENCY(IF((Sheet1!$B2:$B21=A$1)*(Sheet1!$D2:$D21="ชั้น1"),MATCH(Sheet1!$C2:$C21&Sheet1!$D2:$D21,Sheet1!$C2:$C21&Sheet1!$D2:$D21,)),ROW(Sheet1!$B2:$B21)-ROW(Sheet1!$B2))>0)) กด Ctrl+Shift+Enter แล้ว Copy Right

ปรับเป็น
I3=SUMPRODUCT(IFERROR((B$2:B$27=H3)*(D$2:D$27="ชั้น1")/COUNTIFS(C$2:C$27,C$2:C$27,D$2:D$27,D$2:D$27),)) Copy down

I3=BYROW(H3:H6,LAMBDA(a,COUNTA(UNIQUE(FILTER(C2:C27&D2:D27,(B2:B27=a)*(D2:D27="ชั้น1"))))))

ปรับตามนี้ดูครับ
Sub Save()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim sourceRange As Variant
Dim targetColumns As Variant
Dim i As Integer
Set wsSource = Sheets("ทำรายการ")
Set wsTarget = Sheets("Save")
sourceRange = Array("B3", "B5", "B4", "C2")
targetColumns = Array("A", "B ...

กรุณาแนบไฟล์ ดังกล่าวมาด้วย ครับจะได้เข้าใจตรงกันครับ

E3=INT(SUM($A3,$B3/100)*$E$1)
F3=ROUND(MOD(SUM($A3,$B3/100)*$E$1,1)*100,0)

ปรับเป็น j3=LET(a,D3:D3592,b,B3:B3592,BYROW(G3:G4,LAMBDA(c,SUM(FILTER(a,(C3:C3592=c)*(COUNTIF(b,b)>1))))))

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

J3=LET(a,D3:D14,b,B3:B14,BYROW(G3:G4,LAMBDA(c,SUM(FILTER(a,(C3:C14=c)*(a>1)*(COUNTIF(b,b)>1))))))

ปรับตามนี้ครับ
Sub ReportDTTM()
Dim wsCombined As Worksheet
Dim wsDTTM As Worksheet
Dim lastRowCombined As Long
Dim lastRowDTTM As Long
Dim i As Long, j As Long
Dim total As Double
Dim combinedValue As String
Dim dttmValue As String

' กำหนดชีท
Set wsCombined = ThisWorkbook.Sheets ...

Normal กับ Going to Expire มันซ้อนกันครับ
ถ้า D10>D11 ให้เป็น Normal แล้ว ที่ว่า D10>=60 จนถึง D11 ซึ่งดูจากสูตรใน D11 ยังไง ค่ามันออกมาจะน้อยกว่า D10 เสมอ
ก็จะเป็นเงื่อนไขที่ซ้อนกัน ครับ

D12=IFS(D10<60,"EXPIRED",D10>D11,"NORMAL",AND(D10>=60,D10<=D11),"GOING TO EXPIRE")

แก้ไขส่วนนี้ครับ

b2=LEFT(A2,FIND("/",A2)-1) Copy down​

ปรับเป็น
Sub Edit_Fomula()

Sheets("Main").Select
ActiveSheet.Unprotect Password:="1"
Range("B2").Select
ActiveCell.Formula = "='Publish'!" & "J42"
Range("C2").Select
ActiveCell.Formula = "='Publish'!" & "J43"
ActiveWorkbook.Save
Application.ScreenUpdating = True
ActiveSheet.Protect ...

ชื่อเดือนที่ ชีท ไม่ตรงกับลิสท์ที่ K2:K13
เดือน June และ July
จริงสูตรที่ F2 ใช้เป็น =SUMPRODUCT(SUMIFS(INDIRECT($K$2:$K$13&"!F2:F1000"),INDIRECT($K$2:$K$13&"!D2:D1000"),$D2)) ได้ครับ

ใช้คอลัมน์ช่วยครับ
ที่ J5:P5=IFERROR(INDEX($B$4:$H$4,AGGREGATE(15,6,(COLUMN($B5:$J5)-COLUMN($B5)+1)/($B5:$H5>0),COLUMNS($J5:J5)))&"=","")&IFERROR(INDEX($B5:$H5,AGGREGATE(15,6,(COLUMN($B5:$J5)-COLUMN($B5)+1)/($B5:$H5>0),COLUMNS($J5:J5))),"") Copy down
ที่ Q5=J5&IF(K5<>"",","&K5,"")&IF(L5<>"",","&L5 ...

B2=SUBSTITUTE(A2,RIGHT(A2,13)*1,"")
C2=LEFT(RIGHT(A2,13)*1,8)/100
D2=RIGHT(A2,3)
ทั้งหมด Copy down

ใช้ Paste Special >> Paste Value​