Telefonszámunk: 1-472-0679

Munkalap ürességének vizsgálata makróval

2013-11-09 - horvimi - Megtekintések száma: 748 - Kategória: Macro-VBA, Munkalapok műveletei
Hivatkozott Excel verzio: Excel 2007 Excel 2010 Excel 2013

Munkalap ürességének ellenőrzése

Készítünk egy függvényt, ami paraméterként a vizsgálandó munkalapot kapja meg, vissza pedig egy logikai értéket ad.

Ha egy munkalap üres, akkor a használt tartomány címe az ‘A1’ lesz. És ha az üres, akkor a munkalapot üresnek tekinthetjük.


Function is_empty_sheet(sname As Worksheet) As Boolean

   is_empty_sheet = sname.UsedRange.Address = "$A$1" And IsEmpty(sname.Range("A1"))

End Function

Minden üres munkalap törlése


Sub delete_blank_sheets()
Dim sh As Worksheet

  For Each sh In Sheets
    If is_empty_sheet(sh) Then
      Application.DisplayAlerts = False
      sh.Delete
      Application.DisplayAlerts = True
    End If

  Next
End Sub

A munkalap nem csak cellákat, hanem egyéb elemet is tartalmazhat, pl.: Grafikonok, rajz elemek, képek, stb..

Ezeket ez a kód nem vizsgálja

 

Mindez videóra rögzítve működés közben

  • Üres-e a munkalap?

Vélemény, hozzászólás?