Excel自动生成二次函数表达式

最新推荐文章于 2022-04-15 15:35:30 发布

jinggangshi

最新推荐文章于 2022-04-15 15:35:30 发布

阅读量4.5k

点赞数

分类专栏：编程学习笔记

本文链接：https://blog.csdn.net/jinggangshi/article/details/93864487

版权

该博客介绍了一种方法，可以在Excel中实现当输入参数a、b、c变化时，自动更新单元格内的二次函数表达式。

摘要由CSDN通过智能技术生成


Dim expr_row, expr_col As Integer
Dim row_a, row_b, row_c As Integer
Dim col_a, col_b, col_c As Integer
Dim expression As String
Dim ExpressionA, ExpressionB, ExpressionC As String
Dim superScriptIndex As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str, a
    createParamABC
    
    str = "y = "
    If createExpressionA <> "" Then
        str = str & createExpressionA & " "
    End If
    
    superScriptIndex = Len(str)
    
    If createExpressionB <> "" Then
        str = str & createExpressionB & " "
    End If
    
    If createExpressionC <> "" Then
        str = str & createExpressionC
    End If
     
    If str = "y = " Then str = "y = 0"
    
    Dim exprRang As Range
    Set exprRang = getExprRange(2, 3)
    If Target.Row = 4 And Target.Column >&