1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic ".
2
Ανοίξτε τη λειτουργική μονάδα VBA όπου θέλετε να προσθέσετε τον κώδικα κάνοντας κλικ στο όνομα της μακροεντολής στην αριστερή στήλη .
εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο η μονάδα : .
Ενώ Summary_Date_Col <= " I "
Για Row_No = 11 έως 13
Summary_Sheet.Range ( Summary_Date_Col & Row_No ) Value = " "
Επόμενο Row_No
Summary_Date_Col = Chr ( Asc ( Summary_Date_Col ) + 1 )
Wend
Αν σκοπεύετε να χρησιμοποιήσετε τη μεταβλητή σε ένα άλλο μέρος του κωδικού σας , αποκοπή και επικόλληση του κώδικα αντί : .
Ενώ Work_Log.Range ( c_project & Row_No ) Value <> " "
Duration_Cell = c_Duration & Row_No
Day_Cell = c_Date & Row_No
Select Case Ημέρα της εβδομάδας ( Work_Log.Range ( Day_Cell ) . Value)
Η
4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη ρουτίνα .
εικόνων
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα