- Utwórz nowy skoroszyt z zaznaczeniem.
- Zapisz skoroszyt przed wysłaniem go pocztą.
- Usuń plik z dysku twardego po jego wysłaniu.
Odkryje ukryte wiersze i kolumny w zaznaczeniu
Wszystkie puste komórki poza zaznaczeniem są ukryte (patrz zrzut ekranu)
W ten sposób zaznaczenie jest zawsze na górze arkusza
Sub Mail_Selection() Dim strDate As String Dim Addr As String Dim rng As Range Jeśli ActiveWindow.SelectedSheets.Count > 1 Lub Selection.Areas.Count > 1 Następnie wyjdź z Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Pictures.Delete With Cells .EntireColumn.Hidden = False .EntireRow.Hidden = False Koniec z zakresem(Addr).Wybierz Ustaw rng = Zaznaczenie Application.GoTo rng, True With rng.EntireColumn .Hidden = True rng(1).EntireRow. SpecialCells(xlVisible).EntireColumn.Clear rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Hidden = True .Hidden = Fałsz Koniec z rng.EntireRow .Hidden = True rng(1).EntireColumn.SpecialCells)(xlVisible) .EntireRow.Clear rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells(1).Select strDate = Format(Date, "dd- mm-rr") & " " & Format(godzina, "h-mm-ss") ActiveWorkbook.SaveAs "Część " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendM ail "[email protected]", _ "To jest wiersz tematu" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub