Excel Forum

ลองแนบไฟล์ตัวอย่างมาดูครับ

อีกสูตรนะครับ

D2 =IFERROR(INDEX(DCC!$C$2:$N$11,MATCH($A2&$B2,DCC!$A$2:$A$11&DCC!$B$2:$B$11,0),MATCH($C2,DCC!$C$1:$N$1,0)),"")

ลองปรับเป็นแบบนี้ดูครับ
D6 =@INDEX('Stationary ส.ค.'!$I$7:$BP$542,MATCH(D$5,'Stationary ส.ค.'!$B$7:$B$542,0),MATCH($C6,LEFT('Stationary ส.ค.'!$I$5:$BP$5,MIN(FIND({0,1,2,3,4,5,6,7,8,9},$C6&"0123456789"))-1),0)+1)

A5 =INDEX(data!A$2:A$14,AGGREGATE(15,6,(ROW(data!$F$1:$F$14)-ROW(data!$F$1)+1)/(data!$F$2:$F$14=$C$1),ROWS($A$5:$A5)))

E4 =SUM({-1,1}/B4*TEXT(C4-B4*{1,0}-MMULT(--(ROW($I$4:$I$10)>TRANSPOSE(ROW($I$4:$I$10))),($H$4:$H$10=A4)*$I$4:$I$10),"0;\0;0")*MMULT(IFERROR(INDEX($J$4:$J$10,N(IF({1,0},LOOKUP(ROW($J$4:$J$10),ROW($J$4:$J$10)/($H$4:$H$10=A4))-ROW($J$3),LOOKUP(ROW($J$3:$J$9),ROW($J$3:$J$9)/($H$3:$H$9=A4))-RO...

snasui wrote: ↑Wed Aug 26, 2020 8:01 am การตัด Stock ด้วยวิธีต่าง ๆ คงต้องพึ่ง VBA ลองดูตัวอย่างของ Code ของ jindon ที่นี่ครับ https://www.mrexcel.com/board/threads/i ... st.167756/

ขอบคุณอาจารย์ครับ

:D ดูแล้วยังไม่ค่อยเข้าใจครับ ต้องการคำตอบที่เซลล์ใด แสดงเป็นค่าเท่าใดบ้าง ช่วยอธิบายมาอีกรอบครับ เรียนอาจารย์ครับ ผลลัพท์ที่ต้องการ คือ Column D ครับ ข้อมูล ฝั่งขวาคือ Tranfer In ที่เข้ามาซึ่งแต่ละ Lot ต้นทุนจะต่างกันครับ หลังจากนั้นจะเกิด Sales คือข้อมูลฝั่งซ้าย ซึ่งเป็นข้อมูลแต่ละบิล ประเด็นคือต...

ลองวิธีนี้ครับ คลิก G6 ~~> เข้าเมนู Data ~~> Data Validation ~~> เปลี่ยนช่อง Source เป็นสูตรนี้ =OFFSET(StudentName!$G$1,MATCH($F6,StudentName!$H$2:$H$71,0),0,COUNTIF(StudentName!$H$2:$H$71,$F6)) ลองใช้งานแล้วคะ ยังพบปัญหาเดิม คือถ้าข้อมูลที่เพิ่มอยู๋ row สุดท้าย จะดึงข้อมูลไม่ถูกต้องคะ เช่น เงื่อน...

ลองแบบนี้ดูครับ =IF(AND(A2<>0,B2<>0),IF(AND(A2<10,B2<15),"แสดงผลลัพธ์1",IF(AND(A2<10,B2>15),"แสดงผลลัพธ์2",IF(AND(A2>10,B2<15),"แสดงผลลัพธ์3"))),IF(AND(A2>10,B2=""),"แสดงผลลัพธ์4",IF(AND(A2="",B2<15),"แสดงผลลัพธ์5",IF(AND(A2<10,B2...

เรียนอาจารย์ และ เพื่อนสมาชิกทุกท่านครับ


เนื่องจากต้องการ ดึง Cost ของสินค้ามาแสดง แบบ FIFO
โดยเมื่อเราขายสินค้าหมดล็อตแล้ว ให้เปลี่ยนเป็น Cost ของล็อตต่อไป
และหากใน รายการนั้นมีสสินค้าของทั้งล็อตเก่าและใหม่ให้ทำการทำ Cost เก่าและใหม่ มา Avg ครับ
รายละเอียดตามรูปที่แนบและ ไฟล์ที่แนบครับ

ลองแบบนี้ครับ
= Table.AddColumn(#"Changed Type", "DateTime", each Table.AddColumn(#"Changed Type", "Merged", each [Date] & [Time], type datetime))

:D ตัวอย่าง Code ครับ 'Other code For Each File In Folder.Files 'MsgBox File If InStr(File, "\CRR") Then FileCopy File, "C:\Users\Pitheerap\Desktop\Upload SQL\Folder1\" & VBA.Split(File, "\")(UBound(VBA.Split(File, "\"))) End If Next 'Other code ขอบพระคุณ...

เรียนพี่ๆ และ อาจารย์ครับ จากโค้ดนี้ผมต้องการปรับปรุงให้สามารถกำหนด ชื่อไฟล์ขึ้นต้นตามที่เราต้องการครับ เช่น ผมต้องการ Copy File เฉพาะที่ขึ้นต้นว่า CRR โค้ดก็จะ Copy ไฟล์ที่ขึ้นต้นด้วยคำนี้เท่านั้นครับ ขอรบกวนชี้แนะด้วยครับ Sub CopyAllFileInfolder() Dim FileSystem As Object Dim HostFolder As String ...

ขอบคุณมากครับอาจารย์ Success แล้วครับ

เรียนทุกท่านครับ เผอิญนำโค้ดที่อาจารย์เคยเขียนให้มาต่อยอดในการรวบรวมไฟล์ CSV แต่เขียนแล้วติดตรงกำหนดตัวแปร d.key กับตัว s ครับ โค้ดประมาณนี้ครับ Sub AllCountA() Dim strPath As Variant, i As Integer Dim o As Integer, tb As Workbook, n As Workbook, ns As String Dim str As Long, endrow As Long, cendrow...

:D ตัวอย่างการปรับ Code ครับ Dim rs As Range, c As Range, o As Range Dim i As Integer, e As Integer Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "Sheet1" Then Set c = sh.Cells.Find(What:="ÅӴѺ", LookIn:=xlValues).Offset(1, 0) Set o = sh.Cells.Find(What:="ÃËÑ...

:D ตัวอย่างการปรับ Code ครับ Dim rs As Range, c As Range, o As Range Dim i As Integer, e As Integer Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "Sheet1" Then Set c = sh.Cells.Find(What:="ÅӴѺ", LookIn:=xlValues).Offset(1, 0) Set o = sh.Cells.Find(What:="ÃËÑ...

:D ตัวอย่าง Code ครับ Dim rs As Range, c As Range Dim i As Integer Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "Sheet1" Then Set c = sh.Cells.Find(What:="ÅӴѺ", LookIn:=xlValues).Offset(1, 0) If Not c Is Nothing Then Set rs = sh.Range(c, sh.Cells(sh.Rows.Count, ...

รบกวนสอบถามครับ ผมต้องการรวบรวมข้อมูลจากหลายชีท โดยแต่ล่ะชีทมีจุดเริ่มที่คำว่า "ลำดับ" โดยต้องการให้นำข้อมูลมารวมกันที่ Sheet1 พร้อม รหัสสาขา ครับ Sub findFR() Dim a As Range, o As Range, r As Range Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Select a = Range.Find(What:="ลำดั...

สวยงามครับ ขอบคุณมากๆ