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

最新推荐文章于 2022-10-09 22:45:22 发布

jinggangshi

最新推荐文章于 2022-10-09 22:45:22 发布

阅读量4.7k

点赞数

分类专栏：编程学习笔记

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

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


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 >&