Note: The other languages of the website are Google-translated. Back to English
English English

วิธีกรองตาราง Pivot ตามค่าเซลล์เฉพาะใน Excel

โดยปกติ เรากำลังกรองข้อมูลใน Pivot Table โดยเลือกรายการในรายการดรอปดาวน์ดังที่แสดงในภาพหน้าจอด้านล่าง ที่จริงแล้ว คุณสามารถกรองตาราง Pivot ตามค่าในเซลล์ที่ระบุได้ วิธีการ VBA ในบทความนี้จะช่วยคุณแก้ปัญหา

กรองตาราง Pivot ตามค่าเซลล์เฉพาะด้วยรหัส VBA


กรองตาราง Pivot ตามค่าเซลล์เฉพาะด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณกรองตาราง Pivot โดยยึดตามค่าเซลล์เฉพาะใน Excel กรุณาดำเนินการดังนี้

1. โปรดป้อนค่าที่คุณจะกรอง Pivot Table ตามเซลล์ล่วงหน้า (ที่นี่ฉันเลือกเซลล์ H6)

2. เปิดแผ่นงานที่มีตาราง Pivot ซึ่งคุณจะกรองตามค่าของเซลล์ จากนั้นคลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัสจากเมนูบริบท ดูภาพหน้าจอ:

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: กรองตาราง Pivot ตามค่าของเซลล์

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในรหัส

1) "Sheet1” คือชื่อของแผ่นงาน
2) "PivotTable 2” คือชื่อของ Pivot Table
3) ฟิลด์การกรองในตาราง Pivot เรียกว่า "หมวดหมู่".
4) ค่าที่คุณต้องการกรองตาราง Pivot จะอยู่ในเซลล์ H6.
คุณสามารถเปลี่ยนค่าตัวแปรข้างต้นได้ตามต้องการ

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนั้นตาราง Pivot จะกรองตามค่าในเซลล์ H6 ดังภาพด้านล่างที่แสดง:

คุณสามารถเปลี่ยนค่าเซลล์เป็นค่าอื่น ๆ ได้ตามต้องการ

หมายเหตุ: ค่าที่คุณพิมพ์ในเซลล์ H6 ควรตรงกับค่าในรายการแบบเลื่อนลงประเภทของตาราง Pivot


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (19)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้รหัสนี้ (อัปเดตสำหรับตัวแปรของฉันแน่นอน) เมื่อเปลี่ยนฟิลด์ ตัวกรองจะเปลี่ยนเป็นค่าที่ถูกต้องชั่วขณะหนึ่ง จากนั้นจะล้างข้อมูลตัวเองเกือบจะในทันที พยายามคิดว่าเหตุใดจึงทำเช่นนี้ (สงสัยว่ามีอะไรเกี่ยวข้องกับ ClearAllFilters ที่ส่วนท้ายของส่วนย่อยหรือไม่)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณจะทำเช่นนี้กับตัวกรองรายงานที่มีลำดับชั้นอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้! ขอบคุณสำหรับมาโครของคุณ

ฉันพยายามใช้กับตารางเดือยมากกว่าหนึ่งตารางในหน้าเดียวกัน แต่ไม่ได้ผล ฉันเขียนแบบนี้:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xPTable1 เป็น PivotTable
Dim xPFile1 เป็น PivotField
Dim xStr1 เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("D7")) ไม่มีอะไรก็ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable1 = แผ่นงาน("BUSCADOR")).PivotTables("PV_ETAPA1")
ตั้งค่า xPFile1 = xPTable1.PivotFields("ETAPA1")
xStr1 = เป้าหมาย ข้อความ
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Application.ScreenUpdating = จริง

Dim xPTable2 เป็น PivotTable
Dim xPFile2 เป็น PivotField
Dim xStr2 เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("G7")) ไม่มีอะไรก็ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable2 = แผ่นงาน("BUSCADOR")).PivotTables("PV_ETAPA2")
ตั้งค่า xPFile2 = xPTable2.PivotFields("ETAPA2")
xStr2 = เป้าหมาย ข้อความ
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Application.ScreenUpdating = จริง

ย่อยสิ้นสุด

บางทีคุณสามารถช่วยฉันได้!

ขอบคุณล่วงหน้า!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hi


ขอบคุณสำหรับมาโคร


ฉันกำลังลองสิ่งเดียวกัน แต่ไม่สามารถทำงานบน 2 ตารางได้ ทั้งคู่กำลังดูเซลล์เดียวกัน เพียง 2 ตารางเดือยที่ต่างกัน


ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณต้องเปลี่ยนชื่อตารางสาระสำคัญ ตารางเดือยแต่ละตารางมีชื่อต่างกัน ให้คลิกขวาที่เดือยและเลือกการตั้งค่าตารางเดือย ชื่อจะอยู่ด้านบน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีด้วยเหตุผลบางประการ มาโครนี้หลังจากเข้าสู่หน้า Visual Basic แล้ว ไม่ปรากฏขึ้นเลย ฉันไม่สามารถเปิด/เรียกใช้มาโครนี้ได้ ฉันได้ตรวจสอบการตั้งค่าศูนย์ความเชื่อถือทั้งหมดแล้ว แต่ไม่มีอะไรเกิดขึ้น โปรดช่วยฉันด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันดูเหมือนจะใช้งานไม่ได้ เซลล์ที่ฉันต้องการอ้างถึงถูกดึงเข้ามาจากสูตร - นี่เป็นสาเหตุที่ตัวกรองหาไม่พบในขณะที่กำลังดูสูตรมากกว่าค่าที่สูตรส่งคืนมา ขอบคุณล่วงหน้า Heather McDonagh
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Heather คุณพบวิธีแก้ปัญหาหรือไม่ ฉันมีปัญหาเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถแก้ไข/กรองเดือยที่แตกต่างกัน 3 อันซึ่งอยู่ในแท็บเดียวกัน ฉันยังเพิ่มแถวในชุดข้อมูล "ไม่พบข้อมูล" ไม่เช่นนั้นจะเหลือตัวกรองเป็น "ทั้งหมด" ซึ่งฉันไม่ต้องการ ข้อมูลข้างต้นช่วยให้ฉันได้รับความรุ่งโรจน์จากผู้บริหาร ฉันเลยอยากแบ่งปัน โปรดทราบว่า (ทั้งหมด) ใช้ตัวพิมพ์เล็กและตัวพิมพ์ใหญ่เพื่อทำความเข้าใจ
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
'ทดสอบ
Dim xPTable เป็น PivotTable
หรี่ xPFile เป็น PivotField
Dim xStr เป็นสตริง

Dim x2PTable เป็น PivotTable
Dim x2PFile เป็น PivotField
Dim x2Str เป็นสตริง

Dim x3PTable เป็น PivotTable
Dim x3PFile เป็น PivotField
Dim x3Str เป็นสตริง

เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("a2:e2")) ไม่มีอะไรก็ให้ออกจาก Sub

Application.ScreenUpdating = เท็จ

'tbl-1
ตั้งค่า xPTable = แผ่นงาน ("กราฟิก") PivotTables ("PivotTable1")
ตั้งค่า xPFile = xPTable.PivotFields("แผนก MR - แผนก")
xStr = เป้าหมาย ข้อความ
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
หาก xPFile.CurrentPage = "(ทั้งหมด)" ดังนั้น xPFile.CurrentPage = "ไม่พบข้อมูล"

'tbl-2
ตั้งค่า x2PTable = แผ่นงาน ("กราฟิก") PivotTables ("PivotTable2")
ตั้งค่า x2PFile = x2PTable.PivotFields("แผนก MR - แผนก")
x2Str = เป้าหมาย ข้อความ
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str
ถ้า x2PFile.CurrentPage = "(ทั้งหมด)" ดังนั้น x2PFile.CurrentPage = "ไม่พบข้อมูล"

'tbl-3
ตั้งค่า x3PTable = แผ่นงาน ("กราฟิก") PivotTables ("PivotTable3")
ตั้งค่า x3PFile = x3PTable.PivotFields("แผนก MR - แผนก")
x3Str = เป้าหมาย ข้อความ
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str
ถ้า x3PFile.CurrentPage = "(ทั้งหมด)" ดังนั้น x3PFile.CurrentPage = "ไม่พบข้อมูล"

Application.ScreenUpdating = จริง

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ด้วย Google ชีตหรือไม่ ถ้าเป็นเช่นนั้นอย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Google ชีตจะไม่ต้องใช้ตารางเดือยใดๆ คุณสามารถดำเนินการโดยตรงผ่านฟังก์ชั่นตัวกรอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการใช้รหัสเปลี่ยนแผ่นงานหลายแผ่นในแผ่นงานเดียวกัน ทำอย่างไร? รหัสของฉันเป็นด้านล่าง:
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
'ตัวกรองตาราง Pivot ตามค่าของเซลล์
Dim xPTable เป็น PivotTable
หรี่ xPFile เป็น PivotField
Dim xStr เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("D20:D21")) ไม่มีอะไร ก็จบ Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable = แผ่นงาน ("Sheet1") ).PivotTables ("PivotTable2")
ตั้งค่า xPFile = xPTable.PivotFields("การกำหนด")
xStr = เป้าหมาย ข้อความ
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

แผ่นงานย่อยส่วนตัว_Change2(ByVal Target As Range)
'ตัวกรองตาราง Pivot ตามค่าของเซลล์ 2
Dim xPTable เป็น PivotTable
หรี่ xPFile เป็น PivotField
Dim xStr เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("H20:H21")) ไม่มีอะไร ก็จบ Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable = แผ่นงาน ("Sheet1") ).PivotTables ("PivotTable2")
ตั้งค่า xPFile = xPTable.PivotFields("การเสนอขาย")
xStr = เป้าหมาย ข้อความ
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Olá, gostaria de saber se quisese filtrar mais de uma categoria como poderia ser?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะทำอย่างไรถ้าฉันต้องการเชื่อมโยงเซลล์ส่วนที่เลือกกับแท็บอื่น นี่คือรหัสของฉันจนถึงตอนนี้
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xPTable1 เป็น PivotTable
Dim xPFile1 เป็น PivotField
Dim xStr1 เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("B1")) ไม่มีอะไรก็ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable1 = แผ่นงาน ("SM_SKU PIVOTS") PivotTables ("PivotTable1")
ตั้งค่า xPFile1 = xPTable1.PivotFields("ภูมิศาสตร์")
xStr1 = เป้าหมาย ข้อความ
xPFile1.ClearAllFilters
xPFile1.CurrentPage = xStr1
Application.ScreenUpdating = จริง

Dim xPTable2 เป็น PivotTable
Dim xPFile2 เป็น PivotField
Dim xStr2 เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("B1")) ไม่มีอะไรก็ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable2 = แผ่นงาน ("SM_SKU PIVOTS") PivotTables ("PivotTable4")
ตั้งค่า xPFile2 = xPTable2.PivotFields("ภูมิศาสตร์")
xStr2 = เป้าหมาย ข้อความ
xPFile2.ClearAllFilters
xPFile2.CurrentPage = xStr2
Application.ScreenUpdating = จริง

Dim xPTable3 เป็น PivotTable
Dim xPFile3 เป็น PivotField
Dim xStr3 เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("B1")) ไม่มีอะไรก็ให้ออกจาก Sub
Application.ScreenUpdating = เท็จ
ตั้งค่า xPTable3 = แผ่นงาน ("SM_SKU PIVOTS") PivotTables ("PivotTable8")
ตั้งค่า xPFile3 = xPTable3.PivotFields("ภูมิศาสตร์")
xStr3 = เป้าหมาย ข้อความ
xPFile3.ClearAllFilters
xPFile3.CurrentPage = xStr3
Application.ScreenUpdating = จริง

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี!

ฉันใหม่กับ VBA และฉันต้องการมีรหัสสำหรับเลือกตัวกรองเดือยตามช่วงเซลล์
ฉันจะเปลี่ยน "CurrentPage" เป็นค่าช่วงได้อย่างไร
ขอขอบคุณ!!
-------------------------------------------------- -----------------------------------------
ย่อย PrintTour()

ActiveSheet.PivotTables("PivotTable1")).PivotFields(_
"[Bereich 1].[ทัวร์].[ทัวร์ ]") _
ล้างตัวกรองทั้งหมด
ActiveSheet.PivotTables("PivotTable1")).PivotFields(_
"[Bereich 1].[ทัวร์].[ทัวร์]") _
CurrentPage = "[Bereich 1].[ทัวร์ lt. Anlieferungstag].& [4001-01]"
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับรหัสนี้! ฉันทำให้มันใช้งานได้หลังจากปรับให้เข้ากับเขตข้อมูลของฉัน แต่หลังจากจัดรูปแบบการเปลี่ยนแปลงบางอย่างบนแผ่นงานของฉันแล้ว ตอนนี้ก็ใช้ไม่ได้! ฉันย้ายจาก A1 เป็น B1 เปลี่ยนการจัดรูปแบบเซลล์เพื่อให้โดดเด่น ฯลฯ ไม่มีอะไรที่บ้าเกินไป แต่ตอนนี้ มันไม่อัปเดตเมื่อฉันเปลี่ยนข้อความใน B1 ใครมีความคิดใด ๆ ?

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
'ทดสอบ
Dim xPTable เป็น PivotTable
หรี่ xPFile เป็น PivotField
Dim xStr เป็นสตริง

Dim x2PTable เป็น PivotTable
Dim x2PFile เป็น PivotField
Dim x2Str เป็นสตริง

Dim x3PTable เป็น PivotTable
Dim x3PFile เป็น PivotField
Dim x3Str เป็นสตริง

เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Intersect(Target, Range("b1")) ไม่มีอะไร ก็ให้ออกจาก Sub

Application.ScreenUpdating = เท็จ

'tbl-1
ตั้งค่า xPTable = แผ่นงาน ("รายงานรายการ") PivotTables ("PivotTable7")
ตั้งค่า xPFile = xPTable.PivotFields ("แหล่ง Utopia")
xStr = เป้าหมาย ข้อความ
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr

'tbl-2
ตั้งค่า x2PTable = แผ่นงาน ("รายงานรายการ") PivotTables ("PivotTable2")
ตั้งค่า x2PFile = x2PTable.PivotFields("Utopia Source")
x2Str = เป้าหมาย ข้อความ
x2PFile.ClearAllFilters
x2PFile.CurrentPage = x2Str

'tbl-3
ตั้งค่า x3PTable = แผ่นงาน ("รายงานรายการ") PivotTables ("PivotTable3")
ตั้งค่า x3PFile = x3PTable.PivotFields("Utopia Source")
x3Str = เป้าหมาย ข้อความ
x3PFile.ClearAllFilters
x3PFile.CurrentPage = x3Str

Application.ScreenUpdating = จริง

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแลนซ์
ฉันทดสอบรหัสของคุณและใช้งานได้ดีในกรณีของฉัน การเปลี่ยนรูปแบบเซลล์จะไม่ส่งผลต่อการทำงานของโค้ด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำงานอย่างไรกับ Power Pivot เมื่อใช้หลายตาราง ฉันบันทึกมาโครเพื่อเปลี่ยนค่าในตัวกรอง ทำการเปลี่ยนแปลงเล็กน้อยเพื่อให้โค้ดด้านบนใช้งานได้ แต่มันเกิดข้อผิดพลาด Type mismatch ไม่ว่าฉันจะทำอะไร.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีดีเค
วิธีการนี้ใช้ไม่ได้กับ Power Pivot ขออภัยในความไม่สะดวก.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ