Excel Forum

Code: Select all

 Sub RoundedRectangle1_Click()
    Sheets("Sheet1").Range("A5", "A10").Select
    Cells.Find ("")
    Selection.EntireRow.Delete
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("A5", "A10")
        If rng.Value = 0 Then
            rng.EntireRow.Delete
        End If
    Next rng
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range, l As Long, i As Long
    With Sheets("Sheet2")
        l = .Range("c" & .Rows.Count).End(xlUp).Row
        For i = l To 6 Step -1
            If .Cells(i, "c").Value = 0 Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("A5", "A10")
        If rng.Value = 0 Then
            rng.value = ""  
        End If
    Next rng
    Sheets("Sheet1").Range("A5", "A10").specialcells(xlcelltypeblanks).EntireRow.Delete
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("A5", "A10")
        If rng.Value = 0 Then
            rng.EntireRow.Delete
        End If
    Next rng
End Sub

Code: Select all

'เริ่ม Procedure ที่ชื่อว่า RoundedRectangle1_Click
Sub RoundedRectangle1_Click()
    'ประกาศตัวแปร ให้ rng เป็น Range
    Dim rng As Range
    'Loop แต่ละเซลล์ในช่วง A5:A10
    For Each rng In Sheets("Sheet1").Range("A5", "A10")
        'ถ้าเซลล์มีค่าเป็น 0 แล้ว
        If rng.Value = 0 Then
            'ให้ลบเซลล์นั้นทั้งบรรทัด
            rng.EntireRow.Delete
        'จบ if
        End If
    'ไปยังเซลล์ถัดไป
    Next rng
'จบ Procedure
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("A5", "A10")
        If rng.Value = 0 Then
            rng.value = ""  ส่วนตัวนี้ก็คือ กำหนดให้ค่าที่เข้าเงื่อนไขเป็นค่าว่าง
        End If
    Next rng
    Sheets("Sheet1").Range("A5", "A10").specialcells(xlcelltypeblanks).EntireRow.Delete  ส่วนคำสั่งนี้ก็คือให้ลบทีเดียว และ xlcelltypeblanks ก็คือให้ลบค่าว่างจากล่างขึ้นบน
End Sub