Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come creare un calendario con Excel

Microsoft Excel è un ambiente ottimale per creare e mantenere un calendario. Usando le diverse cellule , si può facilmente passare da un giorno all'altro per aggiornare il calendario o aggiungere nuovi eventi e appuntamenti . Non è difficile creare un calendario in Excel . Microsoft ha fornito una semplice macro CalendarMaker che inserisce l'editor di Visual Basic in Excel che consente di creare il calendario per voi . Tutto quello che dovrete fare è copiare il codice per avere il vostro calendario mensile in Excel . Istruzioni
1

Aprire Microsoft Excel. Fare clic sul menu " Strumenti " , scegliere "Macro" e clicca su " Visual Basic Editor " se si utilizza Excel 2003 o versioni precedenti . Per Excel 2007/2010 , fare clic sulla scheda "Sviluppatore " e quindi fare clic su " Visual Basic ". Se non vedi la scheda " Sviluppo " , fare clic sul pulsante "Office" e poi " Opzioni di Excel ". Nella prima schermata , fare clic sulla casella di controllo accanto a " Mostra scheda Sviluppo sulla barra multifunzione " e quindi fare clic su "OK". La scheda "Sviluppatore " dovrebbe mostrare ora .
2

Cliccare sulla voce di menu "Inserisci" in Visual Basic Editor . Clicca su "Modulo" per iniziare un nuovo modulo di codice
3

Copia la prima parte del seguente codice nel nuovo modulo : .

" CalendarMaker Sub ( ) < Rimuovi protezione foglio br>

' se dovuto calendario precedente per evitare errori

DrawingObjects ActiveSheet.Protect : . = false, Contents: = True, _

Scenarios : = False

' schermo lampeggia mentre disegna calendario prevenire.

Application.ScreenUpdating = False

' Set up degli errori.

On Error GoTo MyErrorTrap

' zona chiara A1: G14 compresa qualsiasi calendario precedente

Range ("A1 : G14 " ) . . chiaro

'Usa InputBox per ottenere desiderato mese e anno e impostare variabile

' MyInput .

MyInput = InputBox ( " Digitare Mese e anno di calendario" ) per

' Consenti all'utente di terminare macro con Annulla nella InputBox .

MyInput = " " Then Exit Sub

 

software © www.354353.com