excel - ฟังก์ชั่นที่กำหนดเองไม่ทำงานกับการกรอง


0

ฉันมีสิ่งนี้:

ป้อนคำอธิบายรูปภาพที่นี่

ฉันมีรหัส VBA:

Public Function CONCATENATESPECIAL(rng As Range) As String

Dim rng1 As Range

CONCATENATESPECIAL = ""

   For Each rng1 In rng
        If rng1.Value <> "" Then
        CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & " | "
        End If
   Next rng1

End Function

ฉันต้องผ่านคอลัมน์และเขียนเนื้อหาลงในนั้นคั่นด้วย "|" ซึ่งทำงานได้อย่างสมบูรณ์

ปัญหาของฉันคือมันใช้ไม่ได้กับการกรอง เมื่อฉันกรองบางอย่างมันยังคงแสดงผลลัพธ์เดียวกัน

หลังจากกรอง

คำตอบ:


0

ปรับเปลี่ยนเกณฑ์ของคุณ:

If (not rng1.EntireRow.Hidden) And (rng1.Value <> "") Then


พวกสุดยอด! If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") Thenแก้ไขมัน! ขอบคุณมาก!
Roman Žydyk
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.