Αποστολέας Θέμα: ΜΑΚΡΟΕΝΤΟΛΗ ΓΙΑ ΑΥΤΟΜΑΤΗ ΕΓΓΡΑΦΗ ΤΟΥ ΕΞΕΤΑΣΤΙΚΟΥ ΚΕΝΤΡΟΥ ΣΤΑ ΔΕΛΤΙΑ ΕΞΕΤΑΖΟΜΕΝΩΝ  (Αναγνώστηκε 454 φορές)

gba

  • Θαμώνας
  • ***
  • Μηνύματα: 25
Γεια  σας συνάδελφοι .

Δεν ειναι σημαντικο , αλλα βοηθαει οταν εχεις πολλα δελτια.

Για όσους επιθυμούν αυτόματη και όχι χειρόγραφη εγγραφή του εξεταστικού κέντρου στα δελτία εξεταζόμενων.

Μπορείτε να εξάγετε από το 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

 

Αλλάξτε το παραπάνω όνομα εξεταστικού  με το δικό σας.

 

Αυτόματα αναγράφεται  σε όλα τα φύλλα εργασίας.

 

Πριν την εκτύπωση επιλέξτε , προσαρμογή φύλλου σε μια σελίδα σε κάθε φύλλο .