Condividi:        

menu per fogli

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

Re: menu per fogli

Postdi Flash30005 » 14/06/10 12:11

Ok, ora cominciamo a ragionare...

ti replico la macro correngendo l'inizio del controllo (nell'elenco la cella A1 è vuota quindi se clicchi lì andrà in errore allora...)
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
CheckA = "A2:A" & UR
If Not Application.Intersect(ActiveCell, Range(CheckA)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Or Target = "" Then Exit Sub
    Foglio = Target
For Each Ws In Worksheets
        If Ws.Name <> Name Then Worksheets(Ws.Name).Visible = False '<<<<<< questa è la riga da modificare per i fogli fissi
Next Ws
    Worksheets(Foglio).Visible = True
    Worksheets(Foglio).Select
End If
End Sub


Modifica la riga aggiungendo i fogli "fissi" così:

Codice: Seleziona tutto
For Each Ws In Worksheets
        If Ws.Name <> Name or Ws.Name = "NomeFoglioFisso1" or Ws.Name = "NomeFoglioFisso2"  or Ws.Name = "NomeFoglioFisso3" Then Worksheets(Ws.Name).Visible = False
Next Ws

Ripeti tanti or ws.name = "nomefogliofissoN" per quanti te ne occorrono all'interno della riga modificata

Ora sicuramente avrai i fogli fissi nascosti puoi renderli visibili in due maniera
o manualmente andando sul Menu > Formato > Foglio > Scopri selezioni i fogli che si devono vedere (rimarranno sempre visibili se avrai modificato la macro correttamente)
oppure tramite una macro da lanciare una sola volta per renderli visibili
tipo questa
Codice: Seleziona tutto
For Each Ws In Worksheets
        If Ws.Name = Name or Ws.Name = "NomeFoglioFisso1" or Ws.Name = "NomeFoglioFisso2"  or Ws.Name = "NomeFoglioFisso3" Then Worksheets(Ws.Name).Visible = True
Next Ws


Decidi come vuoi agire

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: menu per fogli

Postdi totopc » 14/06/10 15:23

il problema dei fogli fissi e risolto pero adesso se clicco sull'elenco dei fogli (i 60 per intenderci )i fogli restano fissi sul menu (invece prima restava solo quello selezionato)
ciao
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: menu per fogli

Postdi Flash30005 » 14/06/10 15:40

Inserisci la macro delle ore 13:11 (in questa pagina del forum)
nel foglio dove hai l'elenco dei fogli (non nel modulo)
semmai salva il file e chiudi l'applicativo excel (non solo la cartella di lavoro)
poi riapri il file
clicca su una qualsiasi cella della colonna A1 del foglio-elenco e vedi se funziona

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: menu per fogli

Postdi totopc » 14/06/10 18:36

non voglio insistere il lavoro va bene la macro va bene andra bene anche l'italia ma quando poi premo l'elenco per usare gli altri fogli i fogli fissi scompaiono
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: menu per fogli

Postdi Flash30005 » 14/06/10 20:27

ma hai modificato la riga che lascia i fogli "fissi" visibili?
ripeto la riga da modificare

Codice: Seleziona tutto
For Each Ws In Worksheets
        If Ws.Name <> Name or Ws.Name = "NomeFoglioFisso1" or Ws.Name = "NomeFoglioFisso2"  or Ws.Name = "NomeFoglioFisso3" Then Worksheets(Ws.Name).Visible = False
Next Ws

Ripeti tanti or ws.name = "nomefogliofissoN" per quanti sono i fogli "fissi" all'interno della riga modificata

Ciao

P.s. Fai rivisualizzare i fogli fissi come già detto
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: menu per fogli

Postdi totopc » 16/06/10 09:12

ho fatto tutto alla lettera ma nisba
ricominciamo
ti mando un foglio da esempio cosi vedi dove sbaglio
http://rapidshare.com/files/399567376/ABC.xls.html
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: menu per fogli

Postdi Flash30005 » 16/06/10 09:42

ho sistemato la macro in maniera che i fogli "fissi", tornerebbero visibili ad ogni esecuzione della macro anche nel caso in cui dovessi erroneamente nascondere questi fogli

download

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: menu per fogli

Postdi totopc » 16/06/10 15:05

ottimo
grazie
Avatar utente
totopc
Utente Senior
 
Post: 126
Iscritto il: 26/05/10 15:51

Re: menu per fogli

Postdi Flash30005 » 16/06/10 15:30

Ehmmm
Non ho ben capito a cosa servano i numeri nelle colonne B e D
Ma per come è impostata la macro (inizialmente, quella da me postata controllava solo la colonna A,
tu hai esteso il range alla colonna E per avere tutti i fogli in un'unica videata),
crea qualche problema, infatti, se clicchi su una di queste celle con i numeri che non corrispondono al nome dei fogli non otterrai il foglio richiesto.
Pertanto è preferibile modificare la riga riguardante l'area di controllo della macro stessa
sostituisci
Codice: Seleziona tutto
CheckA = "A2:E" & UR
'<<<< questa riga
con questa
Codice: Seleziona tutto
CheckA = "A2:A" & UR & ",C2:C" & UR & ",E2:E" & UR             '<<<<<< questa riga


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "menu per fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti