giorno settimanamesegiorno

Sono passati 88 giorni dall'inizio dell'anno che corrispondono a 13 settimane

Arcobaleno, domani sereno



* Chattina

Aggiorna Storia
  • mar: :resistere:
    Febbraio 15, 2022, 19:44:48
  • mar: Non mi ricordavo di essere un global moderator wauuuu Ok Prof ti lascio restaurare in pace!
    Febbraio 15, 2022, 19:43:56
  • mar: :Cartelli70:
    Febbraio 15, 2022, 19:41:14
  • mar: ad cazzum pure qui?
    Febbraio 15, 2022, 19:41:02
  • mar: ciaoooo sono in perlistrazione
    Febbraio 15, 2022, 19:40:44
  • mar: :okkey:
    Febbraio 15, 2022, 19:40:20
  • Loretta/Nina: ciao a tutti
    Ottobre 04, 2021, 19:23:02
  • Loretta/Nina: :tuffarsi:
    Settembre 21, 2021, 07:08:03
  • Loretta/Nina: Buon autunno a tutti
    Settembre 21, 2021, 07:01:35
  • nuvolotta: avventure testuali
    Luglio 06, 2020, 23:26:08
  • _jan_: ...gli ultimo però....!!
    Gennaio 14, 2019, 14:45:09
  • _jan_: vedi gli ultimi post in fondo.
    Novembre 24, 2018, 19:10:00
  • mar: Trovato :Amm9:
    Novembre 24, 2018, 18:57:51
  • mar: Chi cerca trova non vi trovo! :Cartelli2:
    Novembre 24, 2018, 18:57:05
  • mar: Vado a vedere le cartoline!
    Novembre 24, 2018, 18:52:38
  • mar: :Amore145:
    Novembre 24, 2018, 18:52:21
  • mar: :Amore178:
    Novembre 24, 2018, 18:52:07
  • _jan_: Welcome Visitor.  :Party133:
    Novembre 15, 2018, 10:03:24
  • Loretta/Nina: Benvenuto ligi  :Cartelli37:
    Ottobre 09, 2018, 13:19:25
  • nuvolotta: Cucù...  :Amore20:
    Settembre 16, 2018, 01:16:47
  • Loretta/Nina: :Party133:
    Settembre 01, 2018, 17:05:30
  • _jan_: Ciao ai visitors!!
    Settembre 01, 2018, 17:02:31
  • Loretta/Nina: :fischio: :979:
    Agosto 28, 2018, 16:20:48
  • ketty: ah beh, meno male. ora il tempo e' un po' brutto
    Agosto 26, 2018, 13:27:36
  • _jan_: No, no, soqquà. Ci passo ma....... non c'è mai nessuno. Ammiro Nuvolotta, solitaria e presente.
    Agosto 25, 2018, 10:34:41
  • ketty: ma Jan è andato in vacanza? :Cartelli70:
    Agosto 24, 2018, 20:51:59
  • ketty: ciao a tutti.
    Agosto 24, 2018, 20:50:12
  • nuvolotta: :faccina_fiore: ciao ragazzioli/ole...
    Agosto 19, 2018, 23:03:49
  • Loretta/Nina: :ciao: :Party133:
    Agosto 19, 2018, 20:24:28
  • _jan_: :Felici13:
    Agosto 04, 2018, 15:30:40
  • nuvolotta: Ferie... già fatte....
    Agosto 04, 2018, 09:54:58
  • _jan_: Auguri di buon onomastico a tutti gli Alfonso....
    Agosto 01, 2018, 11:10:21
  • _jan_: chiusp per ferie?
    Luglio 30, 2018, 19:50:58
  • _jan_: Buon onomastico a Donatella Seconda........ e la prima? :Shok145:
    Luglio 30, 2018, 06:59:38
  • _jan_: Buon onomastico a tutte le Marta.  :Amore20:
    Luglio 29, 2018, 07:44:31
  • _jan_: Ci sono altre nuove iscritte viste il 26 luglio 2018..... (mica saranno monache)....  :approva:
    Luglio 26, 2018, 18:39:04
  • _jan_: Oggi, 26 luglio 2018, abbiamo una nuova iscritta "Francesca".....Benvenuta Francesca.  :Party133:
    Luglio 26, 2018, 15:49:24
  • _jan_: Buon onomastico anche a tutte le Anna!!! .....
    Luglio 26, 2018, 10:30:21
  • _jan_: Auguri di Buon Onomastico a TUO..... (ogni giorno, credo)..... :sm269:
    Luglio 26, 2018, 10:28:52
  • ketty: ma.... quando è il tuo?
    Luglio 25, 2018, 19:52:19

* Emoticon aggiuntive e link al portale


Autore Topic: Pulsanti visibili a condizione  (Letto 1981 volte)

0 Utenti e 1 Visitatore stanno visualizzando questo topic.

Tullio

  • Visitatore
Pulsanti visibili a condizione
« il: Ottobre 30, 2013, 10:21:40 »
Ciao micdas,  :resistere:
questa volta il problema è il seguente:
sul foglio "fattura" ho 5 pulsanti "Nuovo","Calcola","Calcola da netto","Archivia"e"Salva",
il pulsante Nuovo dovrebbe essere sempre visibile per fare in modo che cliccando carichi il formato (RANGE("B2:H65"))
del progetto, mentre gli altri quattro dovrebbero essere visibili soltanto dopo che quest'ultimo è stato caricato, potrei intercettare il click sul pulsante Nuovo ma mi sembrerebbe più giusto fare in modo che controlli sempre la casella B2 e se il colore è grigio (formato non caricato) i pulsanti siano invisibili mentre se è bianco (formato caricato) siano visibili.
Che cosa ne dici ?
Se sì, come dovrei agire?
Grazie. Tullio

Tullio

  • Visitatore
Re:Pulsanti visibili a condizione
« Risposta #1 il: Ottobre 30, 2013, 11:25:48 »
Ciao micdas,
questo è quello che ho partorito e inserito nel codice del Worksheet Fattura
ma funziona soltanto all'apertura, se lo inserisco nel Change o nel SelctionChange non mi scarica più il formato,
mi sai dare una delle tue illuminazioni?
Grazie in anticipo.
Tullio

Codice: Non sei autorizzato a vedere i links. Registrati o Login
Private Sub Worksheet_Activate()
Dim shp As Shape
Dim nameshp As String
Range("B2").Select
    With Selection.Interior
    If .TintAndShade = -0.249977111117893 Then
        For Each shp In ActiveSheet.Shapes
            nameshp = shp.Name
                If nameshp = "Button 30020" Or nameshp = "Button 30021" Or nameshp = "Button 30022" Or nameshp = "Button 30023" Then
                shp.Visible = msoFalse
                End If
        Next
    Else
       For Each shp In ActiveSheet.Shapes
            nameshp = shp.Name
                If nameshp = "Button 30020" Or nameshp = "Button 30021" Or nameshp = "Button 30022" Or nameshp = "Button 30023" Then
                shp.Visible = msoTrue
                End If
        Next
    End If
End With
End Sub

Tullio

  • Visitatore
Re:Pulsanti visibili a condizione
« Risposta #2 il: Novembre 02, 2013, 16:36:11 »
 :Cartelli2: Toc toc.....c'è nessuno ?

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re:Pulsanti visibili a condizione
« Risposta #3 il: Novembre 03, 2013, 21:50:59 »
ciao Tullio,
questi giorni sono particolarmente impegnato. Questo è il motivo della mia apparente assenza.
Ma venendo al problema, io penso che per ottenere i cambiamenti di stato dei pulsanti devi agire nella macro a cui i pulsanti sono collegati.
La tua Private Sub Worksheet_Activate() va bene ma funziona solo quando attivi il foglio di calcolo.
Se vuoi il cambiamento dello stato, quindi, devi includere il codice nelle macro abbinate a questi pulsanti.
Poi una osservazione da uno che cerca di programmare a basso livello:
Perchè per stabilire il colore della cella usi TintAndShade? Io userei, ed ho sempre usato il ColorIndex.
Il codice del colore lo ottengo tramite il resgistratore di macro e dopo lo applico o copio nel codice che mi serve.
Io non mi sono mai fidato del TintAndShade = -0.249977111117893 che poi è una proprietà poco usata ed anche poco documentata, oltre che molto critica.

 :ciao:
E' stupido pensare di non aver bisogno degli altri

Tullio

  • Visitatore
Re:Pulsanti visibili a condizione
« Risposta #4 il: Novembre 04, 2013, 09:57:50 »
Come al solito hai ragione micdas,
ho risolto inserendo la sub che azzera il progetto in ThisWorkbook_BeforeClose e di conseguanza all'apertura mi ritrovo con quanto salvato alla chiusura.
Per il TintandShade mi ero accorto anch'io che qualcosa era strano ed ho provveduto al cambiamento proprio con ColorIndex.
Grazie e scusa l'insistenza.
Tullio