MyTetra Share
Делитесь знаниями!
Добавить/удалить лист (по имени)
16.03.2019
23:43
Раздел: !Закладки - VBA

''====================================================================

''--------------------------------------------------------------------

''Добавить лист

'Sub TestFnAddSh()

' ll = ActiveSheet.Index

' Set Лист = FnAddSh(ThisWorkbook, "hhh", ActiveSheet.Index)

'End Sub

''oWb - книга где создаем лист

''strShName - имя создаваемого листа

''iIndex - индекс

''blnFreezePanes -закре

''--------------------------------------------------------------------

Function FnAddSh(ByVal oWb As Workbook, _

ByVal strShName As String, _

Optional iIndex As Integer = 1) As Worksheet

'удалить если существует

FnDeleteSh oWb, strShName


Set FnAddSh = oWb.Sheets.Add(Before:=oWb.Sheets(iIndex))

With FnAddSh

.Name = strShName

' .Cells(1, 1).value = "MacroZone"

' .Cells(1, 2).value = "Zone"

End With

' Rows("2:2").Select

' ActiveWindow.FreezePanes = True

Range("A1").Select

Set oSh = Nothing

End Function

'====================================================================

'====================================================================

'--------------------------------------------------------------------

'Удалить лист по имени

'--------------------------------------------------------------------

Function FnDeleteSh(ByVal oWb As Workbook, _

ByVal ShName As String)

On Error Resume Next

With Application

.DisplayAlerts = False

With .ThisWorkbook

For Each Sh In .Sheets

If Sh.Name = ShName Then Sh.Delete

Next Sh

End With

.DisplayAlerts = True

End With

End Function

'====================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования