Excel Forum

:D บรรทัดนี้ต้องการจะทำอะไรครับ stword3 = ActiveCell.Value = GetSelectedSlicerItems("Slicer_รหัส_สาขา") หากต้องการให้ตัวแปร stwword มีค่าเท่ากับผลลัพธ์ของฟังก์ชั่น GetSelectedSlicerItems ให้เขียนตามด้านล่าง stword3 = GetSelectedSlicerItems("Slicer_รหัส_สาขา") ไม่สามารถกำหนดค่าซ้...

stword3 = ActiveCell.Value = GetSelectedSlicerItems("Slicer_รหัส_สาขา") stword = "รายงานต่อใบอนุญาต สาขา" stword4 = "ตัวแทน ประกันวินาศภัย" stword5 = "ประเภทใบอนุญาต" Range("A9") = stword & " " & stword3 & " " & s...

https://www.jkp-ads.com/articles/slicers05.asp จากลิ้งนี้ Public Function GetSelectedSlicerItems(SlicerName As String) As String Dim oSc As SlicerCache Dim oSi As SlicerItem Dim lCt As Long On Error Resume Next Application.Volatile Set oSc = ThisWorkbook.SlicerCaches(SlicerName) If Not oSc Is Nothi...

astalavista wrote: ↑Fri Jul 20, 2018 5:44 pm ที่ Name Manager ลองกำหนด DynPrint --- Refers to:==OFFSET(Output!$A$8,0,0,ROWS(Table2)+4,12)

(4 มาจาก 3 บรรทัดเป็น header ของรายงาน + 1 column ของตาราง)

ขอบคุณครับ

ขอบคุณครับขอถาม เกี่ยวกับ Print Area ต่อเลยไปเห็นวิธีไม่ต้องใช้ VBA โดยการ Set Offset Name Manager ติดปัญหาสูตรต้องการ Print เฉพาะ A8:L โดยมีการ Custom Print Area เวลา FIlter ข้อมูล แต่ในสูตรมีการ Print Area เมนูข้างบนมาด้วย =OFFSET(Output!$A$8,0,0,COUNTA(Output!$L20:$L22),12) ปัญหาการ Filter แล้วข้...

180 startRow = tblFiltered.HeaderRowRange.Row 'Find last row on Filtered tab (deduct 1 since Advanced filter retrieves the headers) 190 lastRow = wsOP.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row - 1 'If the last raw is greater than the Header row, resize the Filtered table and de...

ขอบคุณครับ

กำลังอยากจะหาวิธี Filter โดยใช้ Slicer ไปออกหน้า Output โดยไม่ต้องยุ่งกับหน้าฐานข้อมูล SalesData ครับ

:D อ่านแล้วไม่เข้าใจครับ Macro Get Data เป็นการทำ Advanced Filter โดยใช้ Criteria ในชีต Pivot_Filters ซึ่งกำหนดให้แสดงค่าตามคอลัมน์ B ซึ่งมีรายการเดียว จึงเป็นปกติที่จะดึงมาได้เพียงรายการเดียวครับ อ้อ เข้าใจล่ะครับ จะมีวิธีไหนให้ค่า Criteria Range for Filters แสดงออกมาทั้งหมดตามที่เราเลือกใน Slicer...

ใน Pivot Filter ได้การมีการสร้าง Heading และ สัญลักษณ์เพื่อทำการ Filter ในหน้า Output ติดปัญหาตรงประเภทใบอนุญาต พอเลือกแล้วประเภท แล้วกด ปุ่ม Macro Get Data Data ไม่ทำการ Filter กรณีมีการเลือก ประเภทใบอนุญาต 2 ประเภท
ขอบคุณครับ

Serverchita wrote: ↑Thu Jul 12, 2018 2:05 pm ปรับสูตรที่ M2 ครับ =IFERROR(IF(VLOOKUP($L2,$A:$C,3,0)=0,"ไม่พบความเห็น",VLOOKUP($L2,$A:$C,3,0)),"")

ขอบคุณครับ

ขออนุญาต ทวนคำถามใหม่ครับ file ที่ก่อนแนบ กับ หลังแนบ อยู่คนละ cell กัน ทำให้สับสน ขอโทษครับ เรามีฐานข้อมูล Column A B C ชื่อ หัวข้อ ความคิดเห็น และมีฐานข้อมูลเลือกเฉพาะออกมาที่ Column L M ชื่อ ความคิดเห็น เงื่อนไขคือ หากพบว่าชื่อใน Cell L2 มีในฐานข้อมูล และตรงกัน และพบว่ามีข้อมูลในความคิดเห็น ให้ดึ...

ช่อง F2 และช่อง G6 ไม่พบข้อมูลใดๆ ครับ รบกวนทำตัวอย่างที่ต้องการมาด้วยครับ F2 มีชื่อตรงกับในฐานข้อมูล A2:A3 หลังจากเราเลือกชื่อในฐานข้อมูลจาก A2:A3 เลือก มา 1 ชื่อก็จะมาอยู่ใน F2 หลังจากนั้นก็ให้ทำการดึงข้อมูลจาก ช่องความคิดเห็น ถ้าพบว่ามีข้อมูลให้ดึงมาให้ตรงกับชื่อ F2 แต่ถ้าพบว่าไม่มีข้อมูลในช่องค...

รบกวนสอบถามสูตรการดึงค่าครับ

หากพบว่าช่อง F2 มีชื่อในฐานข้อมูล A2:A3 พบว่า ชื่อดังกล่าว ใน Column C2 มีการแสดงความคิดเห็น ให้ดึงข้อมูลมาใส่ในช้อง G2 แต่ถ้าพบว่าเป็นช่องว่าง C3 ให้แสดงว่าข้อความในช่อง G6 ว่าไม่มีความเห็น


ขอบคุณครับ

ขอบคุณครับ

ลองปรับดูแล้วครับ เหมือนจะมีปัญหาชื่อเพิ่มที่หลังแล้วข้อมูลไม่ดึงอย่างเช่น คุณภัทรพงษ์ครับ ข้อมูล 3 แต่ออกมาแค่ 2 ครับ
=IF(ROWS(B$2:B2)>4,"",IFERROR(SMALL(IF(Table4[ชื่อ
วิทยากร]=$A$1,Table4[วันที่
ทำแบบสอบถาม]),ROWS(B$2:B3)),""))

เรียนสอบถามเพิ่มเติมครับ คุณกมลวรรณ ถูกดึงออกมา 5 ค่า เรากำหนดให้ Max สูงสุด 4 ได้ไหมครับ คุณ คุณเกษม ดึงออกมา 1 ค่า 11/07/2018 ส่วนอีกค่าค่านึง ไม่ได้มีการดึงออกมาครับ 18/06/2016 ถ้าต้องการระบุหากพบชื่อนี้ ให้ดึงออกมาสูง 4 ข้อมูล หากไม่ถึง 4 ให้ดึงออกมาเท่าที่มี โดยหากพบว่าวันที่ ไม่ได้ใกล้เคียงกับ...

อยากได้สูตร Excel ที่สามารถดึงค่า ชื่อได้ โดยเงื่อนไข หากพบว่า Sheet 1 ช่อง A1 ชื่อคุณกมลวรรณ แล้วใน Sheet สรุปการประเมินคะแนน ให้ก็มีข้อมูลของคุณกมลวรรณ จากช่องชื่อวิทยากร ให้ทำการดึงข้อมูลออกมาจาก Sheet สรุปการประเมินคะแนน สูงสุด 4 ข้อมูล หากมีข้อมูลไม่ถึง 4 ครั้ง ให้ดึงข้อมูลออกมาเท่าที่มีแต่สูงส...

logic wrote: ↑Fri Jul 06, 2018 9:54 am ใช้หลักการเดียวกันคือเชื่อมข้อความครับ

ถ้าเชื่อม "xxyyzz" เข้าไปก่อนก็จะเป็น Cells(i, 8).Value = "xxyyzz" & .Column(2, intItem)

ขอบคุณครับ เมื่อกี้ ติดสัญลักษณ์ ///

primeval wrote: ↑Fri Jul 06, 2018 9:50 am

Code: Select all

Cells(i, 8).Value = .Column(2, intItem)

เรียนสอบถามเพิ่มอีกครับ ถ้าต้องการเพิ่มข้อความก่อนข้างหน้า .Column(2, intItem)

file:///Bananas จะต้องทำอย่างไรครับ

ได้แล้วครับ