Αποστολή της επιλογής μέσω VBA στο Microsoft Excel

• Δημιουργήστε ένα νέο βιβλίο εργασίας με την επιλογή.
• Αποθηκεύστε το βιβλίο εργασίας πριν το στείλετε.
• Διαγράψτε το αρχείο από τον σκληρό σας δίσκο μετά την αποστολή του.

Θα εμφανίσει κρυφές γραμμές και στήλες στην επιλογή
Όλα τα κενά κελιά έξω από την επιλογή είναι κρυμμένα (δείτε το στιγμιότυπο οθόνης)
Με αυτόν τον τρόπο, η επιλογή βρίσκεται πάντα στο επάνω μέρος του φύλλου σας

Sub Mail_Selection () Dim strDate As String Dim Addr As String Dim rng As Range If ActiveWindow.SelectedSheets.Count> 1 Or Selection.Areas.Count> 1 Then Exit Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet Εικόνες. Διαγραφή με κελιά .EntireColumn.Hidden = False .EntireRow.Hidden = False End With Range (Addr). Επιλέξτε Set rng = Selection 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 = False End With With rng.EntireRow .Hidden = True rng (1) .EntireColumn.Specialisells (x) .EntireRow.Clear rng (1) .EntireColumn.SpecialCells (xlVisible) .EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells (1) .Επιλέξτε strDate = Format (Date, "dd- mm-yy ") &" "& Format (Time," h-mm-ss ") ActiveWorkbook.SaveAs" Part of "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM ail "[email protected]", _ "Αυτή είναι η γραμμή θέματος" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub