Contare Oggetti

Hai un problema con Excel?

Nuova discussione

Contare Oggetti
di Ace (utente non iscritto) data: 30/01/2014 19:47:38
Buona serata a tutti e grazie in anticipo a tutti coloro che vorranno rispondermi. Vi illustro di seguito la mia problematica:

Utilizzo excel per effettuare dei layouts (so che Visio è meglio ma nel mio ambiente si usa excel) quindi uso delle immagini/clipart per rappresentare delle scrivanie, telefoni, sedie ed altri "oggetti".
Vorresi sapere se è possibile codificare con degli attributi questi "oggetti" in modo da evitare che ogni ufficio utilizzi i suoi form (nella fattispecie una sorta di combobox fatta di immagini/clipart) e poi naturalmente mi servirebbe una routine per contare quanti telefoni/sedie/scrivanie ci sono in quel foglio di lavoro.
Preciso che trattandosi di forme/immagini non è possibile usare il conta.se.

Grazie ancora a tutti coloro che risponderanno.
di Mister_x (utente non iscritto) data: 30/01/2014 22:38:06
ciao

da mettere nel foglio in questione

ciao mister_x
Sub Conta_Forme() t_f = ActiveSheet.Shapes.Count MsgBox "Totale Forme N°" & t_f End Sub

di Mister_x (utente non iscritto) data: 30/01/2014 22:56:36
riciao

rileggendo ho visto che vuoi trovare anche il nome di quelle forme

riciao

Sub Conta_Forme()
t_f = ActiveSheet.Shapes.Count
MsgBox "Totale Forme N°" & t_f
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
For i = 1 To t_s '
 MsgBox myDocument.Shapes.Range(Array(i)).Name
Next i
Set myDocument = Nothing
End Sub

chiarimenti
di Ace (utente non iscritto) data: 30/01/2014 23:05:29
Per chiarire io ho bisogno di contare quante sedie, telefoni etc ci sono in quel foglio, come faccio a creare degli oggetti in modo univoco ed assegnargli dei nomi? una volta fatto ciò c'è il problema di contarli e riportare il risultato nelle celle.

Intanto grazie per le risposte
di Grograman (utente non iscritto) data: 31/01/2014 08:54:48
Mister X le variabiliiiiiiiiiiiiiiiiiiiiiii!!!

t_f = ActiveSheet.Shapes.Count

stride con

For i = 1 To t_s

Per la domanda di come assegnare, esistono le variabili oggetto, quindi come lui ha istanziato una variabile di tipo worksheet, puoi fare lo stesso cone le variabili di tipo "Shape", "MSForm", "Chart" insomma ce ne sono a bizzeffe, ma non sappiamo quali usi esattamente sul tuo file.

Vuoi Approfondire?