Excel Forum

ลองปรับเป็น

Sub RoundedRectangle1_Click()
Dim rng As Range
For Each rng In Sheets("Sheet1").Range("C3:E9").Rows
If Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng)), "") = "" Then
rng.Delete shift:=xlUp
End If
Next
End Sub



ใช้แล้วครับ ต้องการแบบนี้เลย ขอบคุณมากครับ

ที่ P6=IF(SUM($V6:$X6)>0,IF(MATCH(1,$V6:$X6,0),IF(LEFT($D6)="J",VLOOKUP($D6,Data!$B$2:$F$12,2,0)),""),"")
Enter+ลากลง+ลากขวา
ผิดยังไง ก็ ขออภัย ครับ

ขอบคูณมากครับ..แต่สูตรยังไม่ใช้ที่ตอบโจทย์ครับ
คืออยากลบ เฉพาะเซลล์ ที่อ้างอิง จาก คอลัม C ไม่ใช่ลบทั้งแถว

จากไฟล์ที่แนบ คือช่อง C7 กับ C9 ว่าง ที่นี้เวลาเรารัน Vba ให้ลบเฉพาะ เซลล์ที่ว่างกับคอลัมที่มีข้อมูลด้วย

ตัวอย่างนะครับ
เช่น C7 ว่าง ให้Vba ลบเซลล C7+D7 +E7 ครับ ไม่ใช่ลบทั้งแถว
ขอบคุณมากครับ

ผมลอง หา สูตร มาแล้ว แต่ไม่ได้ผล ครับ

parakorn wrote: Tue Jun 19, 2018 1:22 pm ลอเปลี่ยนจาก Small เป็น Large ดูครับ

ไม่ได้ครับ..

สอบถามเพิ่มครับ พอดีอยากให้แสดง เฉพาะข้อมูลล่าสุด 3 รายการ ต้องทำอย่างไรครับ พอดีคีย์สูตรแล้ว มันไม่ได้ครับ
ที่ A5 คีย์

=IFERROR(INDEX(ธนาคาร!B$6:B$25,SMALL(IF(ธนาคาร!$C$6:$C$25=$A$1,MATCH(9.9999999999999E+307,ธนาคาร!$B$6:$B$25)-3),ROWS(A$5:A5))),"")

ขอบคุณ อาจารย์ มากครับ สูตรถูกต้องทุกอย่างที่ต้องการเลยครับ

อยากได้สูตร แยกรายการจากชิตหลัก มาชิตย่อย รายละเอียด ตามไฟล์แนบเลยครับ

ขอบคุณ อาจารย์มากครับ...แต่ยังไม่ใช่ที่ต้องการ
สิ่งที่ต้องการคือ ตอนที่กดปุ่ม button(กดเพื่อปริ้น)
ข้อมูลในเซลล์ B5:H10 จะอยู่ส่วนห้วของกระดาษ และ ข้อมูลในเซลล์ K3:M25 อยากให้มาต่อท้าย ข้อมูลในเซลล์ B5:H10
ดังรูปภาพที่แนบมาด้วยครับ

อยากได้ Vba ที่ใช้ปริ้นเอกสารตามเซล์ที่มีข้อมูลกับขอบเขตที่อยากได้ครับ...
ทีนี้ก็พอหา vba ได้ แต่ยังแก้ให้ทำให้ครบตามที่ต้องการยังไม่ได้
Sub Print0()
Dim myrange As String
myrange = Cells(Rows.Count, 2).End(xlUp).Address
ActiveSheet.PageSetup.PrintArea = "$h$1:" & myrange
Application.Goto Reference ...

ได้แล้วครับ ขอบคุณ คุณparakorn มากครับ..

parakorn wrote: Mon Feb 12, 2018 2:53 pm =INDIRECT("Sheet1!rc",FALSE) Enter+Copy ลงล่างและไปทางขวาครับ

ผมย้ายแสดงคอลัม มาแสดงที่ คอลัม E ทำไมค่าทุกอย่างเป็น 0 หมดครับ

ผมใช้คีย์ข้อมูลในSheet1 และ เชื่อมโยงไป Sheet2
แล้วที่นี้ บางครั้งคียข้อมูลมาเกิน ต้องการลบ และแทรกแถวใหม่
แต่สูตรก็ไม่ได้รันให้ แจ้งออเร่ออ เลยอยากทราบว่าจะมีแนวทางแก้ยังไง ครับ

ทำแล้ว..แต่ ออเรอ ครับ ตามไฟล์แนบครับ..
E4=IFERROR(INDEX(A$4:A$7,MATCH(LARGE($B$4:$B$7,ROWS(F$4:F4)),$B$4:$B$7,0)),"") คัดลอกไปทาง ขวาและลงล่างครับ

สิ่งที่อยากได้คือ....ทุกครั้งที่เราพิมพ์ข้อมูล ตรงคอลัม A-B โดยที่คอลัมE-Fแสดงตามคอลัม A-B แต่เรียงลำดับค่ามากสุดใว้เป็นอันดับแรก...
ตามไฟล์ที่แนบมาครับ

ขอบคุณครับ....ทำตามสูตรที่ให้มาแล้วได้เลย ขอบคุณมากครับ

อยากได้สูตร เรียงอันดับและชื่อกับคะแนนครับ ตามไฟล์ที่แนบครับ

พอดีจะทำกราฟ เพื่อแยกรายจ่ายแต่ละเดือนว่า ใช้จ่ายส่วนไหนมากสุด แต่ไม่สามารถทำได้
คือ สมมุติว่า รายการ ถ้ามีข้อมูลถึง A5 กราฟก็แสดงค่าถึง A5 และถ้ามีถึง A3 ก็แสดงถึง A3 ครับ
และถ้าเกิดมีรายการเพิ่ม กราฟ ก็จะกำเนิดเพิ่ม ตามครับ

อยากทราบ สูตร รวมประเภทต่างๆครับ ทำไม่ได้ซะที
..ขอบคุณมากครับ...

ขอบคุณมากครับ ลองทั้งสองสูตรเลย ใช้ได้ทั้งสองเลยครับ ขอบคุณ อาจารย์snasui และ คุณDhitiBank มากครับ