使用vba输入在单元格中单击时显示的公式，然后在求解程序中使用该公式

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和PowerPoint等。在Excel中，可以使用VBA编写宏来实现自定义功能。

要在单元格中单击时显示公式，可以使用VBA的Worksheet_SelectionChange事件。以下是一个示例代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Me.UsedRange) Is Nothing Then
            Target.Formula = "=SUM(A1:A10)" ' 这里是你想要显示的公式
        End If
    End If
End Sub

上述代码中，当选中单元格时，会检查选中的单元格数量是否为1，并且是否在工作表的使用范围内。如果满足条件，则将选中单元格的公式设置为"=SUM(A1:A10)"，你可以根据需要修改为你想要显示的公式。

关于求解程序中使用该公式，具体涉及到的求解算法和程序实现方式会根据具体情况而定，可以使用VBA编写自定义函数来实现。你可以在VBA中使用函数来调用公式并进行求解。以下是一个示例代码：

Function SolveFormula() As Variant
    Dim formula As String
    formula = Range("A1").Formula ' 这里是你设置的公式所在的单元格
    SolveFormula = Application.Evaluate(formula)
End Function

上述代码中，定义了一个名为SolveFormula的函数，它会获取单元格A1中的公式，并使用Application.Evaluate函数对该公式进行求解。最后，函数返回求解结果。

需要注意的是，以上示例代码仅为演示目的，实际应用中可能需要根据具体需求进行修改和优化。

关于VBA的更多信息和学习资源，你可以参考以下链接：