Snasui Excel Forum

ตรงความต้องการ ขอบคุณมากครับ

เมื่อกดปุ่ม select last data (ปุ่มBottonที่ผมกำหนด) ผมต้องการให้โปรแกรมเลือกช่วง row สุดท้ายที่ผมกำหนดช่วงไว้ครับ
เช่น ต้องการเลือก row สุดท้ายที่มีข้อมูลช่วง A6:D20 ต้องใช้Codeไหนครับ?

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



code ตัวอย่าง
Range("A" & Rows.Count).End(xlUp).Select
Range ...

Bo_ry wrote: Fri Jan 03, 2020 12:21 am =SUMPRODUCT(SUBTOTAL(3,OFFSET($B5,ROW($B$5:$B$14)-ROW($B$5),0)),--ISNUMBER(SEARCH("apple",$B$5:$B$14)))

ขอบคุณมากครับตรงกับความต้องการเลยครับ

snasui wrote: Thu Jan 02, 2020 8:21 pm กรุณาแนบไฟล์ล่าสุดที่ได้ปรับสูตรเอาไว้แล้วมาด้วยจะได้ดูต่อไปจากนั้นครับ

ผมแนบไฟล์ที่ปรับมาให้แล้วครับ

Filter

=SUMPRODUCT(SUBTOTAL(3,OFFSET($B5,ROW($B$5:$B$14)-ROW($B$5),0)),--(SEARCH("*"&"apple",$B$5:$B$14)))


ขอบคุณมากครับติดอยู่นิดหน่อยในสูตรนี้ถ้าไม่มีคำว่า apple cellใดcellหนึ่งในช่วง$B$5:$B$14จะขึ้นคำว่า countif จะแสดงค่า #VALUE! ความต้องการก็คือให้แสดงค่าเฉพาะappleเป็นตัวเลขโดยไม่สนถึงค่าอ ...

สวัสดีครับต้องการสอบถามเรื่องสูตรcount if โดยที่ใช้เครื่องหมาย*ปิดหัวและท้ายของเงื่อนไขที่ต้องการค้นหาเพื่อที่จะค้นหาcellใดก็ตามที่มีเงื่อนไขที่อยู่ในเครื่องหมาย*แต่ปัญหาคือ count if โดยใช้filterร่วมด้วยเครื่องหมาย*ไม่สามารถใช่ร่วมได้ท่านได้มีวิธีที่สามารถทำให้ใช้ได้บ้างครับผมแนบไฟล์ตัวอย่างมาด้วยแล ...

snasui wrote: Mon Dec 30, 2019 8:39 pm อ่านดูแล้วเข้าใจว่าต้องการให้เพิ่มค่าในเซลล์ E6 ไปทุกการ Save เพื่อไม่ให้ชื่อไฟล์ไปทับกัน

Code สำรหับการเพิ่มค่าใน E6 คือ [e6].value = [e6].value + 1 ให้เพิ่ม Code เข้าไปก่อน end sub ครับ

ขอบคุณมากครับ

:D การโพสต์ Code ให้ครอบด้วย [code]...[/code] เพื่อจะได้สะดวกกับการอ่าน ดูกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ :roll:

การจะพิจาณาว่าหากชื่อตามเซลล์ E6 มีอยู่แล้วให้เปลี่ยนไปเป็นชื่อไหน อย่างไร ดูจากไหนหรือพิจาณาอย่างไร ทั้งนี้เนื่องจาก Windows ไม่ยอมให้จัดเก็บชื่อไฟล์เดียวกันครับ

ขอบคุณมากสำหร ...

ผมอยาก Save as เป็น new fileชื่อตาม cell e5และ sheet ชื่อตาม cell e6 แต่ว่าถ้าcell e6 เปลี่ยนในครั้งต่อไปให้เก็บsheetเก่าที่saveไว้ก่อนหน้าครับปัญหาตอนนี้คือเวลาsaveใหม่ cell e6ที่เราเปลี่ยนมันจะsaveทับชื่อSheetเก่ารบกวนช่วยผมด้วยครับ


Sub Button1_Click()
ActiveWorkbook.SaveAs Filename:= _
"C ...