Excel Forum

	Soluzioni Excel Domande e Risposte
		Collegamento visuale tra 2 celle

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Collegamento visuale tra 2 celle

Ultimo Aggiornamento: 19/07/2021 16:08

by sal

Post: 6.447

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

18/07/2021 16:09

00#1

Ciao a tutti sto cercando di creare un progettino, ma dovrei collegare visivamente 2 celle tra di loro un poco come viene visualizzato quando ci sono riferimenti circolari con le linee di collegamento,

guardate l'immagine il collegamento lo inserisco manualmente

in poche parole sapendo la posizione delle celle dovrei collegarle mano a mano che vengono create le nuove posizioni, non so se sono riuscito a spiegarmi, nel caso chiedete.

se esiste un altro metodo me lo indicate

inserisco il file con la generazione dei punti casuali

Ciao By Sal (8-D

Download (38 KB)

[Modificato da by sal 18/07/2021 16:12]

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui

Marius44

Post: 919

Registrato il: 24/06/2015

Città: CATANIA

Età: 80

Utente Senior

Excel2019

OFFLINE

18/07/2021 18:21

00#2

Ciao
Innanzi tutto una precisazione: ho inteso il collegamento tra "valori" uguali e "colori" uguali.
Prova con questa macro (che potrai assegnare ad un pulsante ovvero ad un Evento del Foglio)

Sub Prova()
lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
lastcolumn = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Set quadro = Range(Cells(3, 1), Cells(lastrow, lastcolumn))
Dim cella1 As Range, cella2 As Range
For Each cella1 In quadro
  If cella1 <> "" Then
    v1 = cella1.Value
    c1 = cella1.Interior.ColorIndex
    For Each cella2 In quadro
      If cella2 <> "" And cella2.Address <> cella1.Address Then
        v2 = cella2.Value
        c2 = cella2.Interior.ColorIndex
        If c1 = c2 And v1 = v2 Then
          R1L = cella1.Left
          R1T = cella1.Top
          R2L = cella2.Left
          R2T = cella2.Top
          ActiveSheet.Shapes.AddConnector(msoConnectorStraight, R1L, R1T, R2L, R2T).Select
          Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadOpen
          Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
          Exit For
        End If
      End If
    Next
  End If
Next
Set quadro = Nothing
End Sub

Ti avverto che c'è un problema (che al momento non sono in grado di risolvere): la macro scrive le frecce DUE VOLTE.

Ciao,
Mario

[Modificato da Marius44 18/07/2021 18:27]

by sal

Post: 6.447

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

18/07/2021 19:43

00#3

Ciao Mario, grazie per lo spunto adesso vedo cosa riesco a trarne fuori, appena ho qualcosa lo posto subito.

Ciao Salvatore

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui

by sal

Post: 6.448

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

18/07/2021 21:13

00#4

Ciao Mario ecco un primo risultato adesso devo farlo per la seconda serie quella arancione

comunque deve avanzare di un segmento alla volta cancellando anche il precedente, ci sto lavorando

Ciao Salvatore (8-D

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui

by sal

Post: 6.449

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

19/07/2021 08:51

00#5

Ciao Mario ecco l'ultima, per la verità devo ammazzare il tempo in una maniera.

in effetti il progettino è la simulazione di una partita di calcio con i vari passaggi tra giocatori, al momento è tutto random, ma devo affinare ancora le cose, grazie al tuo spunto sono riuscito a questo.

se ti interessa posso passarti il file.

Ciao By sal (8-D

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui

Marius44

Post: 920

Registrato il: 24/06/2015

Città: CATANIA

Età: 80

Utente Senior

Excel2019

OFFLINE

19/07/2021 12:20

00#6

Ciao
Veramente interessante. Complimenti.👍
Si, allega il file che cercherò di impegnarmi anch'io (vale come impegno ma non come risultato 😂😂😂)
Sarà ancora più interessante renderlo un gioco fra due contendenti anche se la vedo dura "intercettare" un passaggio da parte di un giocatore dell'altra squadra.

Può essere utile per far "costruire" una figura (geometrica o di fantasia) ai nipotini ....🤣
Ciao,
Mario

by sal

Post: 6.451

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

19/07/2021 16:08

00#7

Ciao Mario ecco il file, è fermo ad ieri.

intercettare il passaggio non è difficile, ci sto ancora pensando, ma credo si potrebbe usare il "peso" del giocatore, non sono molto addentro nel calcio ma so che usano una classifica a punti quindi tenendo conto del punteggio di ogni giocatore dovrebbe prevalere quello più alto,

ma come vedi adesso ho previsto l'intercettazione, con un random 1-2 che sceglie di volta in volta quale squadra riceve

il tutto è solo a scopo didattico, ci sono dei programmi del gioco del calcio che poco manca che chi sta giocando si trovi in campo.

adesso devo risolvere, se hai notato il random crea doppioni dei calciatori, devo cercare di eliminare un doppione prodotto dopo 3-4 passaggi in modo da non intasare troppo la zona del campo.
poi dovrò passare a segnare i gol, che per adesso non è previsto

Una volta ne avevo una raccolta dei vari giochi fatti con Excel, dei più disparati, ma poi la rottura di un HD li ho persi tutti, cera anche quello della costruzione dei poligoni ed anche uno per i poligoni 3D.

Ciao ecco il file. By Sal (8-D