Snasui Excel Forum

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

• Quote kitokids

#17

by kitokids » Sun Sep 01, 2013 9:26 pm

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

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

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

• Quote snasui

#16

by snasui » Sun Sep 01, 2013 6:58 pm

สาเหตุเพราะผลลัพธ์ของสูตรเป็น 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 ฯลฯ

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

• Quote kitokids

#15

by kitokids » Sun Sep 01, 2013 2:45 pm

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

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

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

คือผมจะมีไฟล์นึงคือไฟล์ 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 ก่อนหน้านั้นมันจะไม่ทำการซ่อน

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

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

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

Attachments

Test Compare 2.rar

(43.57 KiB) Downloaded 20 times

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

• Quote snasui

#14

by snasui » Fri Aug 30, 2013 5:34 pm

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

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

• Quote kitokids

#13

by kitokids » Fri Aug 30, 2013 10:09 am

Code: Select all

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

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

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

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

• Quote kitokids

#12

by kitokids » Thu Aug 29, 2013 11:46 pm

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

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

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

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

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

• Quote snasui

#11

by snasui » Thu Aug 29, 2013 9:25 pm

ลองปรับ 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

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

• Quote kitokids

#10

by kitokids » Thu Aug 29, 2013 5:22 pm

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 อยู่ดี

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

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

• Quote snasui

#9

by snasui » Thu Aug 29, 2013 1:31 pm

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

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

• Quote kitokids

#8

by kitokids » Thu Aug 29, 2013 1:18 pm

Attachments

Test2.rar

(14.86 KiB) Downloaded 11 times

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

• Quote snasui

#7

by snasui » Wed Aug 28, 2013 11:16 pm

kitokids wrote:เกิดการเข้าใจผิดนิดหน่อยครับ สูตรที่ให้คุณ 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

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

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

• Quote kitokids

#6

by kitokids » Wed Aug 28, 2013 11:05 pm

Attachments

Test.rar

ไฟล์ xltm มันส่งไม่ได้อ่ะครับ เลยขออนุญาติ zip ไฟล์นะครับ

(13.11 KiB) Downloaded 19 times

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

• Quote snasui

#5

by snasui » Wed Aug 28, 2013 10:09 pm

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

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

• Quote kitokids

#4

by kitokids » Wed Aug 28, 2013 10:07 pm

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

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

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

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

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

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

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

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

• Quote kitokids

#3

by kitokids » Wed Aug 28, 2013 5:36 pm

snasui wrote: ลองดูตัวอย่าง 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

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

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

• Quote snasui

#2

by snasui » Wed Aug 28, 2013 5:14 pm

ลองดูตัวอย่าง 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

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

• Quote kitokids

#1

by kitokids » Wed Aug 28, 2013 4:44 pm

จุดประสงค์ของผมคือต้องการ 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

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