Aprire Microsoft Excel , andate al menu " File " e scegliere "Apri". Cercare il file Excel che si vuole fare scadere e fare doppio clic sul nome del file per aprirlo.
2
Premi " Alt + F11 " per avviare l' editor di Visual Basic di Excel . Utilizzare "Ctrl + R" per passare alla finestra " Gestione progetti " o andare sul menu "Visualizza" , scegliere "Other Windows" e scegliere " Gestione progetti " dalla lista di opzioni.
3
destro del mouse su " ThisWorkbook " nella finestra " Gestione progetti " . Selezionare " Visualizza codice " dalla lista di opzioni disponibili .
4
Digita il codice che rende il foglio di calcolo scadere nella casella di codice fornito . Un corretto formato di codice che fornisce agli utenti con un messaggio per quanto riguarda la data di scadenza e il numero di giorni rimanenti prima che il foglio di scadenza è la seguente:
Sub Auto_Open ( ) \\ \\ Dim exdate As Date \\ \\ exdate = \\ " 12/01/10 \\ " \\ \\ Se Date> exdate Poi \\ \\ MsgBox ( \\ " foglio di calcolo è scaduta \\ " ) \\ \\ ActiveWorkbook.Close \\ \\ End If \\ \\ MsgBox ( \\ " Cartella di lavoro Offerta valida fino al \\ " & exdate - date & \\ " giorni restanti \\ " ) \\ \\ End Sub
Inserire la data in cui il foglio di calcolo dovrebbe scadere " exdate = " e qualsiasi messaggio che si preferisce per quanto riguarda il foglio di lavoro è scaduto al posto di" foglio di calcolo è scaduta . "
5
Torna al foglio di calcolo di Excel aperto , andare al menu" File " e selezionare" Salva "per salvare la cartella di lavoro con la nuova macro allegata . Chiudere la cartella di lavoro e riaprirlo in Excel . Il messaggio che hai inserito nella macro dovrebbe apparire , indicando la data di scadenza del file e quanti giorni mancano fino alla scadenza.
software © www.354353.com