Codice VBA per Auto Fill in Excel

December 3

Imparare ad usare VBA per eseguire il comando Riempimento automatico di Excel consente di creare una serie numerica o di testo comunemente si verificano con un semplice clic del mouse. In questo modo si evita di dover digitare i valori iniziali che Riempimento automatico ha bisogno, e trascinare il mouse per riempire la serie. Utilizzare VBA Compilazione automatica per numero rapidamente un elenco di elementi, o per specificare ogni data in un intervallo di date. Per garantire i programmi VBA riempimento automatico funzionano come previsto, sempre specificare esplicitamente secondo argomento opzionale della funzione.

Registrare una macro

Non è necessario capire le dichiarazioni di VBA per creare un programma di VBA Riempimento automatico. registratore di macro di Excel è possibile creare un programma di riempimento automatico per voi, in base all'utilizzo manuale di compilazione automatica. Digitare i numeri 1 e 2 in due file successive di un foglio di calcolo di Excel, quindi selezionare le due celle trascinando su di loro. Clicca comando "Record" della scheda "Sviluppatore", quindi digitare un nome per la macro. Passa il mouse sopra l'angolo inferiore destro della cella in basso nella selezione. Quando il cursore si trasforma in un grande segno più, trascinare direttamente verso il basso per eseguire il riempimento automatico, che si estenderà la serie che inizia con i numeri 1 e 2 che digitate. fare clic sul pulsante "Stop" della scheda "Sviluppatore" per terminare la registrazione di macro.

Studio Riempimento automatico istruzioni macro

Dopo aver registrato una macro VBA che converte l'uso manuale di compilazione automatica in dichiarazioni di VBA, studiare tali dichiarazioni per iniziare a comprendere come eseguire il riempimento automatico da VBA. Fare clic sul pulsante "Macro" della scheda "Sviluppatore" per visualizzare un elenco di macro. Fare clic sul nome della macro Riempimento automatico e fare clic su "Modifica" per rendere Excel visualizzare dichiarazioni del vostro programma all'interno dell'ambiente di sviluppo. Se l'unica azione che hai preso durante la registrazione della macro è stato quello di utilizzare il riempimento automatico per estendere la serie numerica inizia con 1 e 2, il programma sarà simile a quella che segue questa sezione.

Selection.AutoFill Destinazione: = Range ( "I5: I15"), Type: = xlFillDefault

Argomenti Riempimento automatico

La funzione di compilazione automatica è un membro di un oggetto di Excel "Range", che rappresenta un insieme di cellule del foglio di lavoro. L'oggetto "Selezione" è un tipo speciale di gamma, che rappresenta le celle che hai evidenziato con il mouse o la tastiera. L'unico argomento della funzione di riempimento automatico ha bisogno di lavorare è il primo: "Destination." Questo argomento specifica sia l'origine della serie con cui si desidera riempire e la destinazione. La destinazione è l'intervallo di celle in cui Excel crea ulteriori valori della serie iniziata dalla sorgente.

Crea un Riempimento automatico programma manualmente

È possibile creare un programma di VBA Riempimento automatico manualmente, piuttosto che con la registrazione di macro. Per fare ciò, accedere all'ambiente di sviluppo Visual Basic facendo clic sul pulsante della scheda "Sviluppatore" "Visual Basic", quindi incollare il seguente programma nella finestra di sviluppo. Questo programma inserisce due nomi al giorno, "Lunedì" e "Martedì" in foglio di lavoro corrente. Poi usa il comando VBA Riempimento automatico per estendere la serie implicita quei due giorni. Il programma utilizza il secondo argomento di riempimento automatico, "Tipo", a dire la funzione di riempimento automatico per riempire con i giorni feriali, invece di un altro tipo di valore come numeri interi. Eseguire il programma facendo clic su comando "Esegui" del menu "Run". Quando si torna a Excel, vedrete i giorni "lunedì" a "Giovedi" nelle cellule del foglio di lavoro corrente.

Range ( "L6") = "Lunedi"

Range ( "L7") = "Martedì"

Range ( "L6: L7") Selezionare.

Selection.AutoFill Destinazione: = Range ( "L6: L9"), Type: = xlFillDays