Worksheet_SelectionChange secondaire privé (cible de ByVal comme gamme)
Faible LastRowText en tant que longtemps
Faible intRow en tant que longtemps
Faible strCol comme corde
Faible strTemp () comme corde
Obscurcir I en tant que longtemps
'
'juste pour la sûreté
Si strPrevCell = puis ""
strPrevCell = ActiveCell.Address
Sortir le sous-marin
Finir si
'
': : ajouter au-dessous de linest avec toutes les cellules que vous avez besoin (par exemple « 10 », « $D$12 », etc.)
'
Si strPrevCell = « 3 » ou _
strPrevCell = « 4 » ou _
strPrevCell = « 5 » puis
le strTemp = s'est dédoublé (strPrevCell, « $")
intRow = CLng (strTemp (2))
strCol = strTemp (1)
'
': : trouver la dernière rangée dans la colonne A
'
LastRowText = feuilles (1).Cells (ActiveSheet.Rows.Count, « A »). Extrémité (xlUp). Rangée
'
': : faire une boucle par les valeurs dans la colonne A
'
Pour I = 1 à LastRowText
'
'si la valeur dans la colonne A est la même avec la valeur en notre cellule puis mise en notre cellule la valeur dans la colonne B
Si UCase (feuilles (1).Cells (I, « A »)) = UCase (cellules (intRow, strCol)) Puis
Les cellules (intRow, strCol) = couvre (1).Cells (I, « B »)
Sortir pour
Finir si
Après
Finir si
strPrevCell = ActiveCell.Address
Sous-marin d'extrémité
|
