VBA Excel Recalcule Sélection

J'ai des feuilles de calcul Excel sur la base de données assez dur (+de 100 requêtes par rapport à la comptabilité générale de la table... oups!). Rafraîchissant juste la feuille je suis sur (SHIFT+F9) est utile dans certains des feuilles de calcul, mais je voulais un moyen d'actualiser seulement les cellules sélectionnées. Je suis venu avec le code suivant, placé dans l'objet ThisWorkbook:

Dim currentSelection As String

Private Sub Workbook_Open()
    Application.OnKey "+^{F9}", "ThisWorkbook.RecalculateSelection"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    currentSelection = Target.Address
End Sub

Private Sub RecalculateSelection()
    Range(currentSelection).Calculate
End Sub

Si possible, j'aimerais le rendre plus portable, tels que de les stocker dans un fichier XLA et le chargeant comme un complément Excel. Est-ce possible avec la méthode que j'utilise? Est-il un meilleur moyen pour y parvenir?

OriginalL'auteur Scott | 2009-12-16

  1. 3

    Vous devriez être en mesure d'utiliser les éléments suivants:

    Public Sub RecalculateSelection()
    Dim rng As Range
    Set rng = Application.Selection
    rng.Calculate
End Sub

    Vous devriez place une gestion d'erreur autour de l'Ensemble rng en ligne", que l'utilisateur peut ne pas avoir sélectionné une gamme (par exemple, ils peuvent avoir sélectionné un graphique).

    Par l'utilisation de l'objet application, vous n'avez pas besoin de saisir l'Workbook_SheetSelectionChange événement.

    Parfait! Je soupçonne qu'il y avait un moyen plus facile, mais le monde de Excel VBA est encore très nouveau pour moi.

    OriginalL'auteur Chris Spicer

  2. 4

    si votre utilisation de la méthode de la accepté de répondre ci-dessus, vous devriez d'abord vérifier que... 

    If Not Selection Is Nothing Then
  If TypeName(Application.Selection) = "Range" Then 
  Dim Rng As Range 
  Set Rng = Application.Selection 
  Rng.Calculate 
 End If 
End If

    Aussi vous aimeriez ajouter à la feuille et sheetname les menus contextuels.
    Le nom des deux barres de menu que vous devez faire...
    "Cellule" et "Ply"

    OriginalL'auteur Anonymous Type

  3. 2

    Si vous voulez juste pour recalculer les cellules sélectionnées, en ignorant les cellules qui sont à leur charge, vous pouvez utiliser mon RangeCalc addin, téléchargeable à partir de
    http://www.decisionmodels.com/downloads.htm

    On dirait que votre addin est exactement ce que je suis après. Je souhaite que je pourrais accepter plus d'une réponse. Pour être juste, j'ai dû accepter Chris Spicer de répondre parce que je suis allé à sa solution.
    Je vous remercie: RangeCalc addin gère également automatiquement certaines des bizarreries de Gamme.Calculer: voir decisionmodels.com/calcsecretsg.htm

    OriginalL'auteur Charles Williams