Comment faire pour afficher le résultat sur des cellules différentes? (VBA Excel 2007)

J'ai calculé des valeurs et il devrait y avoir deux résultats. Je veux afficher ces résultats dans deux cellules différentes.

Quand j'ai changé de A1 ou de A2 valeur, excel est arrêté. Est-il de toute façon je peux afficher les valeurs?

Sheet1 
Private Sub Worksheet_Change(ByVal Target As Range)
   Call DisplayResult 
End Sub

Module1 
Sub DisplayResult() 
     Range("A3").Value = Range("A1").Select.Value + Range("A2").Select.Value     
     Range("B3").Value = Range("B1").Select.Value + Range("B2").Select.Value 
End Sub
InformationsquelleAutor jeeunit02 | 2013-01-17
  1. 0

    vous n'avez pas besoin d'utiliser .sélectionnez ici -

    Feuille De Calcul Code:

    Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Sheet1.Range("A1:B2"), Target) Is Nothing Then
    MsgBox "Hello"
End If

End Sub

    Code Du Module:

    Sub DisplayResult()

Sheet1.Range("A3").Value = Sheet1.Range("A1").Value + Sheet1.Range("A2").Value
Sheet1.Range("B3").Value = Sheet1.Range("B1").Value + Sheet1.Range("B2").Value

End Sub

    Si vous mettez le Call DisplayResult ligne dans votre routine sub Worksheet_Change sans limiter la portée, il devrait être déclenchée sur, puis elle finit par entrer dans une boucle infinie (DisplayResult déclenche le sub Worksheet_Change). Quand les DisplayResult code est-il déclenché? Seulement quand vous avez changé la Plage A1:B2 ?

    • Yep, le Résultat affiché sera déclenché uniquement lorsque A1:B2 sont modifiées.
    • OK j'ai ajouté de la Feuille de calcul de code - maintenant, il ne fera que déclencher l'événement lors de l'A1:B2 sont modifiées.
    InformationsquelleAutor MattCrum