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: Cella di convalida considerata come forma  (Letto 1619 volte)

0 Utenti e 1 Visitatore stanno visualizzando questo topic.

Tullio

  • Visitatore
Cella di convalida considerata come forma
« il: Ottobre 10, 2013, 16:03:42 »
Ciao micdas,
eccomi di nuovo perché la sub che cancella le forme (mi sono accorto ieri) che cancella anche le celle di convalida, ma non riesco a capire come si chiamano e quindi come fare per non farle cancellare.
Mi sai dire qualcosa come al solito ?
Ciao. Tullio

Per cancellare le forme utilizzo:
---------------------------------------------
Sub z_FORME()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
  shp.Delete
Next shp
End Sub

---------------------------------------------
Per rendere invisibili le forme utilizzo:
---------------------------------------------
Sub Pulsanti_invisibili()
Dim shp As Shape
Dim nameshp As String
    For Each shp In ActiveSheet.Shapes
   
        If shp.Visible = msoTrue Then
        nameshp = shp.Name
        'Se il nome inizia con "Button"
            If Left(nameshp, 6) = "Button" Then
                'nasconde il pulsante
                shp.Visible = msoFalse
            Else
            End If
        End If
    Next
End Sub

----------------------------------------------
Per ricercare i dati delle forme utilizzo:
-----------------------------------------------
Sub z_nomi_delle_forme()
Dim shp As Shape
Dim conta
conta = 1
    For Each shp In ActiveSheet.Shapes
        Debug.Print "Forma nr." & conta & "  " & shp.Name
        Debug.Print shp.Name
        Debug.Print "da sinistra " & shp.Left
        Debug.Print "finestra    " & shp.Width
        Debug.Print "top         " & shp.Top
        Debug.Print "altezza     " & shp.Height
        Debug.Print "----------------------------"
        conta = conta + 1
    Next

End Sub

-----------------------------------------------

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re:Cella di convalida considerata come forma
« Risposta #1 il: Ottobre 10, 2013, 18:47:25 »
Ciao Tullio,
vedo che oltre la macro  z_FORME () hai altre valide macro per un debug del codice. Per risolvere il problema, se è vero che la  z_FORME () ti cancella anche le celle di convalida ti consiglierei di usare  z_nomi_delle_forme () per vedere se tra gli oggetti che stampi nella finestra immediata riconosci le celle incriminate e notare se queste vengono riconosciute come Shapes.
Se è così, prima di cancellare la forma puoi usare la tecnica che hai usato in Pulsanti_invisibili (): 
Codice: Non sei autorizzato a vedere i links. Registrati o Login
If Left(nameshp, xx) = "yyyyyy" ThenNon ho potuto provare con celle di convalida, ma penso che, se riesci a capire che tali celle vengano individuate come Shapes, possano essere salvate.
Io ho provato con del semplice testo nel foglio e numerosi tipi di Shapes e non è successo nulla di indesiderato.
Ecco come modificherei la sub z_FORME()
Codice: Non sei autorizzato a vedere i links. Registrati o Login
Sub z_FORME()
Dim shp As Shape
Dim nameshp As String
For Each shp In ActiveSheet.Shapes
    nameshp = shp.Name
    If Left(nameshp, x) <> "yyyyyy" Then
        shp.Delete
    End If
Next shp
End Sub
E' stupido pensare di non aver bisogno degli altri

Tullio

  • Visitatore
Re:Cella di convalida considerata come forma
« Risposta #2 il: Ottobre 11, 2013, 11:09:13 »
Ciao micdas,
allora:
la ricerca dei nomi delle forme l'avevo già fatta in quel modo ma non mi dava alcun risultato, però la tua riflessione mi ha fatto considerare una cosa; la selezione della casella! Ebbene  :Felici81: se la casella di convalida è selezionata allora la riconosce anche nel nome e per informazione si chiama "Drop Down" altrimenti non la riconosce però con shp.delete la cancella ugualmente.
Come al solito  :Party133: e grazie.
Tullio

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re:Cella di convalida considerata come forma
« Risposta #3 il: Ottobre 11, 2013, 14:27:44 »
Perfetto   :Amm9:
E' stupido pensare di non aver bisogno degli altri