ขอถามเรื่องการซ่อน row ที่ว่างโดยใช้ VBA หน่อยครับ

[kitokids]

จุดประสงค์ของผมคือต้องการ hide row ที่ว่างทั้งหมดในช่วงที่กำหนด

ทีนี้ผมลอง search สูตรจาก Google ดูแล้วนำปรับปรุงนิดหน่อย ปรากฎว่ามันจะ hide เฉพาะ row ที่มีเซลล์เป็นค่าว่างจริงๆเท่านั้น

พวก row ที่ตัวเซลล์ไม่มีค่า แต่มีสูตรอยู่ มันจะไม่ hide ให้

ผมรบกวนขอวิธีที่จะสามารถ hide row ที่ในเซลล์ไม่มีค่าแต่มีสูตร ด้วยนะครับ

นี่เป็นสูตรที่ผมพูดถึงนะครับ

Code: Select all

Public Sub HideBlankRows1()
Dim i As Long

With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
        Range("K1:L15").Select
For i = Selection.Rows.Count To 1 Step -1
    If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Hidden = True
    End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

ขอบคุณล่วงหน้านะครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test0()
   Dim r As Range
   For Each r In Range("k1:k15")
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

[kitokids]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub test0()
   Dim r As Range
   For Each r In Range("k1:k15")
        If r = "" Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

ได้แล้วครับ ขอบคุณมากๆเลยนะครับ

[kitokids]

ขอรบกวนอีกทีนะครับ

เกิดการเข้าใจผิดนิดหน่อยครับ สูตรที่ให้คุณ snasui ให้มาตอนแรกนั้นมันใช้ไม่ได้อ่ะครับ รันแล้วไม่เกิดอะไรขึ้น

ผมเลยลองแก้สูตรบรรทัดนี้ดู

if r = "" Then ผมแก้เป็น if r = 0 Then

ปรากฎว่ามันสามารถใช้ได้ครับ แต่มันมีปัญหาคือ สมมติว่าเซลล์ A1 มีค่าอยู่ แต่เซลล์ B1 ไม่มีค่า (แต่มีสูตร) มันจะทำการซ่อน row นั้นไปเลยอ่ะครับ

แต่สิ่งที่ผมต้องการคือ ถึงแม้ว่าเซลล์ A1 มีค่าอยู่ แต่เซลล์ B1 ไม่มีค่า row นั้นก็จะไม่ถูกซ่อนอ่ะครับ

ประมาณนี้อ่ะครับ

[snasui]

ก่อนที่จะตอบว่าได้หรือไม่ได้ให้ทดลองก่อนครับ สำหรับที่ถามมาใหม่นั้น ให้แนบไฟล์ตัวอย่างพร้อม Code ที่ได้ปรับปรุงเองแล้วมาด้วยครับ

[kitokids]

ขอโทษด้วยนะครับที่ลืมแนบ code มาด้วย

สำหรับไฟล์ตัวอย่าง ผมได้ทำปุ่มแล้วลิงค์กับ Macro ไว้นะครับ จะได้สะดวกในการดู

ปุ่มสีแดง = module1 เป็น code ที่คุณ snasui ให้มา
ปุ่มสีเหลือง = module2 เป็น code ที่ผมได้ทำการแก้
ปุ่มสีฟ้า = module3 เป็นปุ่มไว้สำหรับ unhide (จะได้สะดวกในการลอง code)


P.S. ผมเพิ่งเริ่มหัดเขียน VBA นะครับ เลยยังไม่ค่อยรู้เรื่อง code เท่าไหร่ เลยแก้ไปนิดๆหน่อยๆตามที่เข้าใจ

[snasui]

เกิดการเข้าใจผิดนิดหน่อยครับ สูตรที่ให้คุณ snasui ให้มาตอนแรกนั้นมันใช้ไม่ได้อ่ะครับ รันแล้วไม่เกิดอะไรขึ้น

เนื่องจากมันไม่มีค่าว่าง ค่าตามตัวอย่างเป็น 0 แล้วใช้การซ่อนค่า 0 จะนำไปเทียบกับค่าว่างเช่นที่ผมเขียนมาไม่ได้ ต้องประยุกต์ให้เป็นไปตามค่าที่แท้จริง

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Public Sub FixCode()
Dim r As Range
   For Each r In Range("A1:A10")
        If Application.Sum(r.Resize(, 2)) = 0 Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

ในฟอรัมถามตอบขอให้งดใช้ภาษาแชทด้วยครับ คำว่าอ่ะไม่จำเป็นต้องใช้ถือเป็นภาษาปากหรือภาษาพูดครับ

[kitokids]

Code: Select all

Public Sub FixCode()
Dim r As Range
   For Each r In Range("A1:A10")
        If Application.Sum(r.Resize(, 2)) = 0 Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

รบกวนถามอีกนิดนึงครับ

สมมติเปลี่ยนจากตัวเลขเป็น ข้อความ (String) ต้องประกาศตัวแปรหรือแก้สูตรตรงไหนครับ ?

เพราะตอนนี้ถ้าเปลี่ยนจากตัวเลขเป็นข้อความ (โดยที่ row นั้นมีแต่เซลล์ที่เป็นข้อความ ไม่มีเซลล์ที่เป็นตัวเลขเลย)มันจะทำการ hide row นั้นไปเลยครับ

[snasui]

ลองปรับมาเองดูก่อน ได้เท่าไรก็เท่านั้น การใช้ VBA จำเป็นต้องปรับเองได้บ้างครับ

[kitokids]

Code: Select all

Public Sub FixCode()
Dim r As Range
Dim a As String
    Set r = .Range("A1:A10")
    
   For Each a In r
        If Application.Sum(a.Resize(, 3)) = 0 Then
            a.EntireRow.Hidden = True
        End If
   Next a
End Sub

ตามที่ผมคิดจะประมาณนี้นะครับ

แต่ผมยังงงเรื่องการประกาศตัวแปรอยู่ครับ

แก้ทีไรมันจะฟ้อง error ที่บรรทัดแรกตลอดเลย

ลองเปลี่ยนจาก public เป็น private แล้วก็ยัง error อยู่ดี

รบกวนช่วยอธิบายด้วยนะครับ

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Public Sub FixCode()
Dim r As Range
   For Each r In Range("A1:A10")
        If Application.Countif(r.Resize(, 3),0) = 3 Then
            r.EntireRow.Hidden = True
        End If
   Next r
End Sub

[kitokids]

ขอบคุณมากๆเลยนะครับ

สงสัยจบจากงานนี้ผมคงต้องไปซื้อหนังสือ VBA มาอ่านอย่างจริงจังสักที

ไว้คราวหน้าถ้าผมมีอะไรสงสัยผมคงต้องขอรบกวนอีกทีนะครับ

ขอบคุณอีกครั้งนะครับ

[kitokids]

Code: Select all

If Application.Countif(r.Resize(, 3),0) = 3 Then

รบกวนอาจารย์ช่วยอธิบายบรรทัดนี้หน่อยนะครับ

ผมไม่ค่อยเข้าใจค่าในวงเล็บครับ

[snasui]

r.Resize(, 3) หมายถึงให้ขยาย r ไปด้านขวา 3 เซลล์ ยกตัวอย่างเช่น หาก r คือ A1 ก็จะกลายเป็น A1:C1 ส่วน Countif เป็นฟังก์ชั่นของ Excel จำเป็นต้องศึกษาเข้าใจ เนื่องจากเป็นฟังก์ชั่นพื้นฐานที่ใช้บ่อย สามารถศึกษาได้ที่นี่ครับ http://office.microsoft.com/th-th/excel ... aspx?CTT=1

[kitokids]

อาจารย์ครับ ผมมีเรื่องรบกวนถามอีกแล้วครับ

พอดีผมลองนำสูตรที่ได้ไปใส่ไว้ในไฟล์ที่ผมต้องการจะใช้งานแล้ว แต่มันว่ามันไม่สามารถใช้งานได้

รายละเอียดไฟล์ที่ผมทำมีดังนี้ครับ

คือผมจะมีไฟล์นึงคือไฟล์ Compare TSR ไว้สำหรับเป็นตัว Template ที่จะทำการลิงค์ข้อมูลจากไฟล์ TSR_Old และ ไฟล์ TSR_New มาใช้งาน

โดยในไฟล์ Compare TSR ผมได้ทำการใส่สูตรสำหรับเปรียบเทียบข้อมูลในไฟล์ TSR_Old และ ไฟล์ TSR_New เพื่อเปรียบเทียบว่า 2 ไฟล์นี้มีข้อมูลแตกต่างกันอย่างไร

ในไฟล์ Compare TSR ผมได้ทำการใส่สูตรไว้ถึง row 200 เพื่อว่าในอนาคตอาจจะมีข้อมูลเพิ่มขึ้นมา แต่ในปัจจุบันมีการใช้ข้อมูลถึงแค่ประมาณ 115 row

ทีนี้พอผมใส่สูตรทุกอย่างเสร็จแล้วทั้งสูตรการเปรียบเทียบและสูตรที่จะซ่อน row ที่ว่าง (Macro) แต่ปรากฎว่ามันสามารถซ่อน row ได้แค่ตั้งแต่ row 121 - row 200

row ก่อนหน้านั้นมันจะไม่ทำการซ่อน

ผมไม่รู้ว่าสาเหตุมันมาจากการที่ผมทำการลิงค์ข้อมูลข้ามไฟล์รึเปล่า

รบกวนอาจารย์ช่วยชี้แนะด้วยครับ ขอบคุณครับ

ป.ล. ถ้าผมอธิบายไม่เข้าใจ ขอโทษมา ณ ที่นี้ด้วยนะครับ ผมเรียบเรียงคำพูดไม่ค่อยเก่ง

[snasui]

สาเหตุเพราะผลลัพธ์ของสูตรเป็น 0 แต่มีการซ่อนค่า 0 เอาไว้ทำให้เห็นเป็นค่าว่าง เมื่อเราต้องการซ่อนเฉพาะค่าว่างเซลล์ที่มีค่าเป็น 0 จึงไม่ถูกซ่อนไปด้วย

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Public Sub HideBlankRow()
    Dim r As Range
    For Each r In Range("A5:A199")
        If Application.CountIf(r.Resize(, 4), "") _
            + Application.CountIf(r.Resize(, 4), 0) = 4 Then
            r.EntireRow.Hidden = True
        End If
    Next r
End Sub

การทำงานกับ Excel เราจะยังไม่จัด Format ใด ๆ จนกว่าจะทำงานให้เสร็จเรียบร้อยแล้ว เรื่องตกแต่งเพื่อความสวยงามจะทำทีหลังสุด ไม่ว่าจะเป็นเรื่องใส่สี ตีเส้น การซ่อนค่า 0 ฯลฯ

[kitokids]

กระจ่างแจ้งแล้วครับอาจารย์

ขอบคุณอีกครั้งนะครับสำหรับการช่วยเหลือ