带计算式 计算

百日筑基

求助大神:
      想随意点选单位格填充 带计算式单元格的计算结果,且支持鼠标对该列其他计算式拖拉计算

microyip

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target <> "" Then MsgBox Application.Evaluate("=" & Target.Text)
   
3. End Sub

复制代码

百日筑基

谢谢侠圣的无私帮助,我的意思是      1.先选择一个单元格
      2.通过InputBox选取带计算式的单元格
      3.在原选择的单元格内填入计算结果
      4.支持在该列用鼠标拖拉计算C列中其他计算式的结果

百日筑基

烦请各位大神帮帮忙

lkqsmxw

KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK

lkqsmxw

Function 计算(单元格 As Range)
    Application.Volatile
    Dim temp As String
    If Left(单元格(1).Text, 1) = "{" And Right(单元格(1).Text, 1) = "}" Then
        temp = VBA.Replace(VBA.Replace(单元格(1).Text, "{", ""), "}", "")
    Else
        temp = 单元格(1).Text
    End If
    计算 = Application.Evaluate(temp)
End Function

百日筑基

lkqsmxw 发表于 2019-10-9 19:04
Function 计算(单元格 As Range)
    Application.Volatile
    Dim temp As String

您好,谢谢您的帮助!我怎么运行不了哦

killq

百日筑基 发表于 2019-10-9 19:39
您好,谢谢您的帮助!我怎么运行不了哦

lkqsmxw

https://baijiahao.baidu.com/s?id ... r=spider&for=pc

网海遨游

Sub test()
    Columns("d").Clear
    arr = Range("c5:c" & [c65536].End(3).Row)
    For i = 1 To UBound(arr)
       If arr(i, 1) <> "" Then
                Cells(i + 4, 4) = "=" & arr(i, 1)
       End If
    Next i
End Sub