Questione : Può un collegamento un il punto di riferimenti in una tabella di supremazia ad un'altra tabella

Ho una tabella e voglio collegare un ogni singolo punto di riferimenti su quella tabella per portare in su un'altra tabella, sono questo possibile? class= del

Risposta : Può un collegamento un il punto di riferimenti in una tabella di supremazia ad un'altra tabella

Potete generare gli eventi per scattare un punto su una tabella usando un modulo del codice categoria.

Il libro di esercizi del campione ha un modulo del codice categoria chiamato chtClass con un sommergibile di evento di MouseDown. Usando il metodo di GetChartElementID, possiamo determinare quale punto è stato scattato. Un blocchetto prescelto di caso può allora collegarsi ad una tabella sostenente.

Da esperienza precedente, ottenere i moduli del codice categoria installati correttamente può provenire un piccolo ingannevole. Dimentico sempre di fissare il nome di codice categoria nella lastra di vetro delle proprietà nel redattore di VBA, per esempio.

Chiodino a testa laterale
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

'Il seguente codice va nei chtClass chiamati del modulo del codice categoria uno strato. Dovete fissare il nome del modulo della tabella in lastra di vetro delle proprietà.
Cht pubblico di WithEvents come tabella


cht_MouseDown secondario riservato (tasto di ByVal come lungamente, spostamento di ByVal come lungamente, _
                            ByVal x come lungamente, ByVal y come lungamente)
PointClick x, y
Sommergibile dell'estremità

PointClick secondario riservato (ByVal x come lungamente, ByVal y come lungamente)
ElementID fioco come lungamente
Arg1 fioco come lungamente
Arg2 fioco come lungamente

cht.GetChartElement x, y, ElementID, Arg1, Arg2

Se ElementID = xlSeries allora
    Il caso prescelto Arg2    'Arg1 è indice di serie, Arg2 è indice del punto
    Caso 1
        Strati (“Chart1„). Attivare
    Caso 2
        Strati (“Chart2„). Attivare
    Caso 3
        Strati (“Chart3„). Attivare
    Concludere prescelto
  Concluder se

Concludere il sommergibile


'Il seguente codice va su uno strato normale del modulo
oCht globale come nuovi chtClass

ActivateChart1Events secondari ()
Regolar oCht.cht = manuali (“Sheet1„) .ChartObjects (1).Chart
Concludere il sommergibile

Sub DeactivateChart ()
  Regolar oCht.cht = niente
Concludere il sommergibile


'Il seguente sommergibile va in lastra di vetro di codice di ThisWorkbook
Workbook_Open secondario ()
ActivateChart1Events
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us