将公式应用于整个范围

Question

这对于实验VBA开发人员/用户来说可能是一段相当简单的代码，但即时新的编程Im已经停留在这个任务上几天了:(我需要的是将一个公式应用到用户定义的范围内（如果可能的话）或者用“for-each next”或“for next”循环遍历它，并且我为每次试图尝试的每一次尝试都会出错。任何人都可以帮助我出这个问题，请.... thxs非常提前

比方说，该公式是一些容易为F = M * A，是“M”我的选择范围

下面的代码选择范围：

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

试试下面的代码：

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