Sub vbc()
ActiveSheet.Copy After:=Sheets(1) 'Копируем всё на новый лист, следующий после 1го листа.
ActiveSheet.PageSetup.Orientation = xlLandscape 'Изменяем формат на альбомный
With ActiveSheet.PageSetup 'Поместить все строки и столбцы на 1 страницу, но когда много строк то
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
ActiveWindow.View = xlPageLayoutView
ActiveWindow.View = xlPageBreakPreview
End SublLastRow = Cells.SpecialCells(xlLastCell).Row 'Получаем номер последней строки с текстом на листеPublic Sub PageNumner()
Dim VPB As Excel.VPageBreak
Dim HPB As Excel.HPageBreak
Dim intVPBC As Integer
Dim intHPPC As Integer
Dim lngPage As Long
lngPage = 1
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
intHPPC = ActiveSheet.HPageBreaks.Count + 1
intVPBC = 1
Else
intVPBC = ActiveSheet.VPageBreaks.Count + 1
intHPPC = 1
End If
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then
Exit For
End If
lngPage = lngPage + intHPPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then
Exit For
End If
lngPage = lngPage + intVPBC
Next HPB
MsgBox "Íîìåð ñòðàíèöû àêòèâíîé ÿ÷åéêè = " & lngPage
End Sub
Почему dhcp-сервер на микротике меняет ip-адреса клиентам в сети?
Проблема в том, что ip-адреса клиентов в локальной сети меняются.
Это "привязка" ip-адреса к MAC-адресу. Так я не хочу делать. Это не решение проблемы.
(Управление компьютером -> Управление дисками -> (сверху) Действие -> Присоединить виртуальный ж\д)