appliquer une formule à toute une gamme

Question

Cela peut être un morceau de code assez facile pour les développeurs expérimentés VBA/utilisateurs, mais im nouvelle programmation un Im coincé sur cette tâche depuis quelques jours déjà :(Tout ce que j'ai besoin est de appliquer une formule à une gamme définie par l'utilisateur soit dans son ensemble (si possible) ou en boucle à travers un "pour-chaque prochaine" ou "pour la prochaine" et je reçois juste des erreurs pour chaque tentative que j'ai essayé pour cela. avec cette question s'il vous plaît .... thxs beaucoup à l'avance

Disons que la formule est quelque chose de facile comme F = m * a, étant « m » ma plage sélectionnée

Voici le code pour sélectionner la gammes:

Option Base 1 


    Sub KVmodel() 

    'Select the data points from the excel spreadsheet 

    Dim A, B As Range 
    Set A= Application.InputBox("Select A Range", "Select a range", Type:=8) 
    Set B= Application.InputBox("Select B Range", "Select a range", Type:=8) 


    'Verify the lenght of the selected data 
    If A.Count = B.Count Then 
    MsgBox "Do you want to run the KV Model Adjustment?", vbYesNo 


    'Calculates F according to the values of the model 

    - 
    - 
    - 


    Else 
    MsgBox "The range sizes are different, please re-select the input data" 

    End If 

    End Sub 

Answer 1

Essayez ci-dessous le code:

Option Base 1 


Sub KVmodel() 

    On Error Resume Next 

    'Select the data points from the excel spreadsheet 

    Dim A As Range, B As Range 
    Set A = Application.InputBox("Select A Range", "Select a range", Type:=8) 
    Set B = Application.InputBox("Select B Range", "Select a range", Type:=8) 

    Dim userDefinedRng As Range ' assumption 
    Set userDefinedRng = Range("A1:A10") 

    On Error GoTo 0 

    If Not A Is Nothing And Not B Is Nothing Then 

     'Verify the lenght of the selected data 
     If A.Count = B.Count Then 
      retVal = MsgBox("Do you want to run the KV Model Adjustment?", vbYesNo) 

      If retVal = vbYes Then 
       'Calculates F according to the values of the model 
       userDefinedRng.FormulaR1C1 = "= 1 * 2" ' here it applies forumla to whole userdefined range 
       MsgBox "yes" 
      Else 
       MsgBox "no" 
      End If 

     Else 
      MsgBox "The range sizes are different, please re-select the input data" 

     End If 
    End If 

    Exit Sub 

End Sub