Le app di MS Office sono progettate moltoin modo intelligente e non lo dico solo perché rendono il mio lavoro infinitamente più semplice. Lo dico perché è vero. Qualche giorno fa abbiamo pubblicato un post sull'inserimento di video di YouTube in Office 2013 e abbiamo notato che l'opzione era assente in MS Excel semplicemente perché non era necessaria lì. Questo è il tipo di intelligenza di cui sto parlando; sapere quali funzionalità sono necessarie in un tipo specifico di app. Si assicura che nulla di irrilevante arrivi nell'offerta finale. Detto questo, sono stato sorpreso di scoprire che laddove Excel ti consente di inserire più righe in un foglio di lavoro, non ti consente di selezionare il numero di righe che desideri aggiungere. Esistono altri modi per aggirare questo obiettivo, ad esempio selezionando il numero di righe che si desidera aggiungere da quelle esistenti e quindi utilizzando la funzione di inserimento. Oppure puoi ripetere il passaggio di inserimento della riga per tutte le righe che desideri. È ripetitivo ma se sei disposto a risparmiare cinque minuti, questa piccola Macro può occuparti del lavoro per te.
Poiché ciò richiede una macro, è necessariosalva il tuo file come file Excel abilitato per le macro. Per fare ciò, fai clic sul menu a discesa "Salva come" nella finestra Salva con nome e seleziona "Cartella di lavoro abilitata per Excel Marco (* xlsm).
Successivamente, è il momento di scrivere la Macro. Vai alla scheda Visualizza e fai clic su Macro per crearne uno nuovo. Assegnalo al nome che preferisci e fai clic su "Crea". La seguente finestra si aprirà automaticamente.
Ciò che è rilevante qui sono i "Sottotitoli" e "Sottotitoli"Linee. La riga secondaria conterrà il nome della tua macro mentre la fine sub segna la fine dei comandi in quella macro. Dal momento che l'hai appena creato, non ci dovrebbe essere nulla tra quelle righe come nello screenshot sopra. Incolla quanto segue tra queste due righe.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Questo codice inserirà cinque righe dall'alto. Nel codice viene indicato come A1: A5. Per modificarlo in base alle proprie esigenze, è necessario modificare questo intervallo. Il primo valore funge da riferimento a dove verranno inserite le righe. Se lo cambi in A100, le righe verranno inserite dopo le prime novantanove righe. Dopo aver impostato il punto di riferimento, è necessario inserire il numero di righe.
I numeri di riga sono definiti dall'intervallo di celle A1: A5. Questo intervallo inserirà 5 righe. Per trovare l'intervallo corretto per il numero di righe, ad esempio si desidera inserire 25 righe da A99, aggiungere 25 al punto di riferimento in modo che sia A99 e meno una cella da esso. Cioè A100 + 99 - 1 = A198. Stai aggiungendo righe e non colonne, quindi cambierà solo il numero e non la lettera della colonna. La macro deve essere aggiornata ogni volta che devi inserire righe enmass ma è solo una piccola modifica e funziona davvero bene quindi vale la pena spendere il tempo.
Macro tramite supporto Microsoft
Commenti