Ver Mensaje Individual
  #4 (permalink)  
Antiguo 19/03/2007, 14:01
Avatar de Daniel Ulczyk
Daniel Ulczyk
Super Moderador
 
Fecha de Ingreso: febrero-2005
Ubicación: Buenos Aires
Mensajes: 9.264
Antigüedad: 19 años, 2 meses
Puntos: 2114
Re: Función que suma según los colores de fondo

Sigo buscando recursos en la Red, en el entretanto alguien más aporte con sus conocimientos.
Doy entonces con el post en el foro de Developpez.net

SilkyRoad
Cita:


bonjour Thierry

as tu testé la procedure ?
en fait dans l'exemple ,l'evenement SelectionChange permet de recuperer dans des variables , la couleur et les coordonnéees de la cellule sélectionnée
lors de la selection suivante , la procedure verifie si l'ancienne selection a été entre temps modifiée


ci joint une autre version

Option Explicit
Dim x As Integer
Dim Cell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

If Cell = "" Then
x = Target.Interior.ColorIndex
Cell = Target.Address
Exit Sub
End If

If Range(Cell).Interior.ColorIndex <> x Then ActiveSheet.Calculate
x = Target.Interior.ColorIndex
Cell = Target.Address
End Sub


bon week end
michel
Ahora bien. Dados que mis conocimientos de francés están a la altura de los de VBasic.
¿Cómo se hace para que esto funcione (si debiera) todo junto?
__________________
—Somos lo que hacemos repetidamente. La excelencia, entonces, no es un acto sino un hábito. (Aristóteles dixit)