Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

scopri e nascondi righe e colonne

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

scopri e nascondi righe e colonne

Postdi trittico69 » 01/05/11 10:29

Potete aiutarmi modificare questa macro in modo che scopre tutte le righe e colonne di tutti i fogli?

Codice: Seleziona tutto
Sub Rettangolo7_Clic()

Dim wb As Workbook
Dim wsc As Integer
Dim r As Integer
Set wb = ThisWorkbook
wsc = Sheets.Count
For r = 2 To wsc
   wb.Sheets(r).Rows("14:57").EntireRow.Hidden = False
Next r
End Sub


E quest’altra in modo che oltre a nascondere le righe che già nasconde dovrebbe nascondere le colonne K e L e poi dalla colonna P alla colonna AW

Codice: Seleziona tutto
Sub NascondirigheVuote()
Dim ff As Integer
Dim rr As Integer
For ff = 2 To Worksheets.Count
If Worksheets(ff).Name <> "Riep" Then
Worksheets(ff).Select
For rr = 57 To 14 Step -1
    If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True
Next rr
End If
Next ff
End Sub

E infine togliere la protezione di tutti i fogli(senza password) all’inizio della prima macro e metterla alla fine della seconda macro
Grazie!
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: scopri e nascondi righe e colonne

Postdi Anthony47 » 01/05/11 18:57

Per la prima domanda, sostituisci l' istruzione che usi con Cells.EntireRow.Hidden = True

Per la seconda: registra una macro mentre sul foglio attivo nascondi le colonne che vuoi, poi copi il codice prodotto (Meno il titolo ed End Sub) subito dopo l' istruzione "Worksheets(ff).Select"

Per la terza: aggiungi Sheets(r).Unprotect subito dopo la " For r = 2 To wsc"; aggiungi Sheets(3).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True subito prima di Next ff

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: scopri e nascondi righe e colonne

Postdi trittico69 » 01/05/11 19:15

ok grazie funziona
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: scopri e nascondi righe e colonne

Postdi trittico69 » 03/05/11 16:20

rettifico mi mette la protezione solo al terzo foglio
aggiungi Sheets(3).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True subito prima di Next ff
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: scopri e nascondi righe e colonne

Postdi trittico69 » 03/05/11 17:22

ho risolto in questo modo
Codice: Seleziona tutto
Dim ff As Integer
Dim rr As Integer
For ff = 2 To 13
If Worksheets(ff).Name <> "Riep" Then
Worksheets(ff).Select
For rr = 57 To 14 Step -1
    If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True
    Range("K:L,P:AW").EntireColumn.Hidden = True
Next rr
End If
Sheets(ff).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ff
End Sub


ma è possibile escludere due celle dalla protezione ed esattamente J12-O12-I8-M9
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: scopri e nascondi righe e colonne

Postdi Anthony47 » 03/05/11 23:38

Mi spiace aver pubblicato il codice errato, mi fa piacere che hai trovato e corretto l' errore.

Per quanto riguarda la nuova domanda, la protezione e' sempre a livello di foglio, ma ne sono escluse le celle che sono formattate senza attributi di protezione; quindi per escludere alcune celle dal blocco dovrai formattarle eliminando i flag di protezione: Menu /Formato /Celle; tab Protezione, togli la spunta a Bloccata e Nascosta; Ok.
Per applicarlo su tutti i fogli, registra una macro mentre formatti come detto le celle di tuo interesse, poi riporta il codice prodotto dalla registrazione subito prima della Sheets(ff).Protect etc etc

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "scopri e nascondi righe e colonne":


Chi c’è in linea

Visitano il forum: Marius44 e 13 ospiti