求大神幫助，如何利用VBA直接輸出求和后的結果
ABCD在不同部分值不同，快速求和
uj5u.com熱心網友回復：
怎么回圖片？uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Public Function Calc(ByVal objPartRange As Range, ByVal objFormulaRange As Range) As Variant
Dim lngCol As Long
lngCol = 6
Do
If Cells(1, lngCol) = objPartRange.Value Then
Exit Do
ElseIf Cells(1, lngCol) = "" Then
Calc = "E"
Exit Function
End If
lngCol = lngCol + 1
Loop
Dim objSC As Object
Set objSC = CreateObject("MSScriptControl.ScriptControl")
objSC.Language = "VBScript"
Dim lngRow As Long
lngRow = 2
Do While Cells(lngRow, 5) <> ""
objSC.executestatement Cells(lngRow, 5) & "=" & Cells(lngRow, lngCol)
lngRow = lngRow + 1
Loop
Calc = objSC.eval(objFormulaRange.Value)
End Function
下載地址:
鏈接：https://pan.baidu.com/s/1Zz2vi1LQmjvNd1RBPooe7g
提取碼：sqg1
運行示例:
uj5u.com熱心網友回復：
感謝大神回復！我這邊運行不出來這個結果，代碼一直報錯沒法運行，不知道是哪里有問題
uj5u.com熱心網友回復：
把全部內容清空,然后將代碼復制到視窗中;或者下載我給你的示例檔案;
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10395.html
標籤：VBA
上一篇：關于excel宏問題的求助！
下一篇：matlab GUI