Excel Forum

ต้องการรันตัวเลขที่คอลัมน์ C โดยยึดยอดขายจาก คอลัมน์ A โดยคอลัมน์ C เรียงจากยอดขายที่มีค่าเป็นบวกเรียงจากมากสุดไปน้อยสุด
ส่วนคอลัมน์ D เรียงจากยอดขายที่มีค่าเป็นลบเรียงจากลบมากสุดไปน้อยสุด ใช้สูตรไหนได้บ้างครับ

:D ตัวอย่าง Code ครับ Sub Macro1() ' ' Macro1 Macro ' If Range("B1").Value = 0 Then ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = False Else ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = True End If If Range("B2").Val...

:D สามารถทำได้ด้วย VBA ลองเขียนมาเองดูก่อน ติดตรงไหนค่อยถามกันต่อครับ Sub Macro1() ' ' Macro1 Macro ' ' Range("B1").Select ActiveCell.FormulaR1C1 = "0" Range("B2").Select ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Select Selection.Delete ActiveC...

เราสามารถสั่งให้ เส้น Line แสดงหรือไม่แสดง ตามเงื่อนไขได้ไหมครับ เช่น B1 = 1 จะแสดงเส้น Line B1 = 0 จะไม่แสดงเส้น Line

puriwutpokin wrote: ↑Tue Jan 30, 2024 12:32 pm 1.ทำข้อมูลให้เป็นตาราง Table ครับ แล้วอ้างอิงจากตาราง Table
2.ใช้ Function Offset มาช่วยครับ

ทำอย่างไรครับ พอจะบอกขั้นตอนได้ไหมครับ

ต้องการเรียงข้อมูล โดยใช้ข้อมูลจาก คอลัมน์ A-E มาเรียงแบบพื้นที่สีเหลืองด้านขวา โดยไม่ใช้ Pivot
สามมารถใช้สูตรไหนได้บ้างครับ

ต้องการนำข้อมูลใน Colum A:E มาเรียงเหมือนตาราง I:M โดยมีเงื่อนไขที่ช่อง G2
เช่น G2 = S02 ข้อมูลก็จะเรียงดังภาพทางขวา ใช้สูตรไหนได้บ้างครับ

ต้องการให้ Pivot ที่ชีท Pivot อัพเดททุกครั้งที่ชีท Data มีการเปลี่ยนแปลงข้อมูล
ใช้สูตรหรือวิธีไหนได้บ้างครับ

:D ตัวอย่างการปรับ Code ครับ Sub Macro1() ' ' Macro1 Macro ' ' ' Range("J1:J86").Select ' Selection.Copy ' Sheets("ACT YEAR 23").Select ' Range("B4").Select ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ ' :=False, Transpose:=False ' She...

จากตัวอย่าง จะบันทึก ยอดขายจาก Colum J ไปวางที่ชีท 1 Colum K ไปวางที่ชีท 2 ตามวันที่ ช่อง A1 ต้องการเพิ่มให้ Colum L ไปวางที่ชีท 3 ต้องปรับแก้สูตรยังไงครับ Capture.JPG Sub Macro2() ' ' Macro2 Macro ' ' ' Range("J1:J9").Select ' Selection.Copy ' Sheets("1").Select ' Range("B4...

ปรับที่ B4=SUM(INDEX(D4:BJ4,MATCH(DATE(YEAR(A$1),MONTH(A$1),1),D$3:BJ$3,0)):INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0))) ฝากรบกวน อย่าใช้ภาษาแชท กระทู้ครับ ตามข้อ1 ครับ ได้แล้วครับ ขอบคุณครับ เพิ่มเติมนิดนึงนะครับ ถ้าจะเพิ่มอีก Colum นึง เป็น Week To Date Sum ตั้งแต่วันจันทร์ของสัปดาห์ ได้ไหใครับ ลองแนบไฟล...

puriwutpokin wrote: ↑Tue Jan 09, 2024 3:28 pm ปรับที่ B4=SUM(INDEX(D4:BJ4,MATCH(DATE(YEAR(A$1),MONTH(A$1),1),D$3:BJ$3,0)):INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0)))

ฝากรบกวน อย่าใช้ภาษาแชท กระทู้ครับ ตามข้อ1 ครับ

ได้แล้วครับ ขอบคุณครับ เพิ่มเติมนิดนึงนะครับ ถ้าจะเพิ่มอีก Colum นึง เป็น Week To Date Sum ตั้งแต่วันจันทร์ของสัปดาห์ ได้ไหใครับ

B4=SUM(AI4:INDEX(AI4:BJ4,MATCH(A$1,AI$3:BJ$3,0))) C4=SUM(D4:INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0))) ถ้า A1 เปลี่ยนเดือน B4 มันไม่เปลี่ยนตามอะครับ เช่นเปลี่ยนเป็นเดือน 19/1/23 ฺB4 เริ่มจากเดือน 1/2/23 ไม่ใช่หรือครับ มันทั้งปีเลยครับ แต่ MTD มันจะเริ่มจากวันที่ 1 ของเดิน เช่น เดือน 1 ก้อเริ่มจาก 1/1/23 ...

puriwutpokin wrote: ↑Tue Jan 09, 2024 1:39 pm B4=SUM(AI4:INDEX(AI4:BJ4,MATCH(A$1,AI$3:BJ$3,0)))
C4=SUM(D4:INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0)))

ถ้า A1 เปลี่ยนเดือน B4 มันไม่เปลี่ยนตามอะครับ เช่นเปลี่ยนเป็นเดือน 19/1/23

ต้องการ Sum ยอดขายตามเงื่อนไข
เช่น A1 = 19/2/23
Colum B ก็จะ Sum ตั้งแต่ วันที่ 1/2/23 - 19/2/23
Colum C ก็จะ Sum ตั้งแต่ วันที่ 1/1/23 - 19/2/23
ใช้สูตรไหนได้บ้างครับ

ต้องการให้ คอลัมน์ C รันวันที่ตาม ช่อง A1 = February คอลัมน์C ก็รันวันที่ลงไป 1-29 ใช้สูตรไหนได้บ้างครับ

ลองปรับตามนี้ดูครับ Sub Macro1() Dim x As Integer Sheets("Data").Visible = True x = Application.Match(Sheets("วันที่").Range("a1"), Sheets("ยอดขาย").Range("a3:k3"), 0) Sheets("Data").Range("F4:F13").Copy Sheets("ยอดขาย"...

puriwutpokin wrote: ↑Tue Jan 02, 2024 5:39 pm ที่ชีทData วันที่และข้อมูล ไม่มีครับมีแต่ข้อมูลชุดเดียวไม่มีการอ้างถึงวันที่ ลองทำข้อมูลตัวอย่างมาอีกที่ครับจะได้เข้าใจตรงกันครับ

วันที่อ้างอิงจากชีท FX ครับ

ข้อมูลในชีท Data ครับ
Colum Sale ก้อเอาไปวางในชีท Sale Colum Ticket ก้อเอาไปวางในชีท Ticket Colum Brand ก้อเอาไปวางในชีท Brand

ต้องการนำข้อมูลยอดขายในชีท Data ไปเรียงแยกชีทตามวันที่ครับ เช่นชีท FX เป็นวันที่ 1/1/24 ก็เอาข้อมูลในชีท Data ไปวางตามชีทตามวันที่ที่ตรงกัน Sub Macro3() ' ' Macro3 Macro ' ' Sheets("FX").Select Sheets("Data").Visible = True Range("F4:F13").Select Selection.Copy Sheets(&...

.. ผลลัพธ์ นั้น คือ ผลลัพธ์ จากสูตร ที่ผมได้เขียนไป ซึ่ง ท่านเจ้าของ คำถาม แจ้งมาว่า ไม่ได้ต้องการ ผลลัพธ์แบบนั้น ผมรบกวนช่วย คีย์ มือลงไป ในไฟล์ Excel แสดงคำตอบ ค่า Rank ที่ท่านผู้สอบถาม ต้องการให้เป็นนั้น คือตัวเลข ใด **สนับสนุนฟอรั่มกรุณาคลิกโฆษณาที่หน้าเพจ*** แมวใหญ่ Bigcat9 RCA พระราม9 กรุงเทพ...