Γεια σας συνάδελφοι .
Δεν ειναι σημαντικο , αλλα βοηθαει οταν εχεις πολλα δελτια.
Για όσους επιθυμούν αυτόματη και όχι χειρόγραφη εγγραφή του εξεταστικού κέντρου στα δελτία εξεταζόμενων.
Μπορείτε να εξάγετε από το my school το αρχείο με τα δελτία εξεταζομένου σε αρχείο xlxs
και να τρέξετε την μακροεντολή , , που δημιούργησε ο συνάδελφος Σπανός Ιωάννης ΠΕ19:
Option Explicit
Sub school()
Dim i As Integer
Dim ws As Worksheet
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Cells(30, 11) = "4ο ΗΜΕΡΗΣΙΟ ΓΕΝΙΚΟ ΛΥΚΕΙΟ ΑΓΡΙΝΙΟΥ"
ws.Cells(65, 11) = "4ο ΗΜΕΡΗΣΙΟ ΓΕΝΙΚΟ ΛΥΚΕΙΟ ΑΓΡΙΝΙΟΥ"
Next i
End Sub
Αλλάξτε το παραπάνω όνομα εξεταστικού με το δικό σας.
Αυτόματα αναγράφεται σε όλα τα φύλλα εργασίας.
Πριν την εκτύπωση επιλέξτε , προσαρμογή φύλλου σε μια σελίδα σε κάθε φύλλο .