1樓:彤陽曜
送你兩個函式,可以計算單元格或單元格區域中可能包含的四則運算(包括有括號)。如,我有15元+欠別人10元,彙總結果=25,而不是 5
chartovalue() 函式可計算單個單元格中可能含有的計算公式。若a1單元格有3×4+3,要求b1出結果,請在b1的輸入框中填寫=chartovalue(a1) 。並支援下拉自動應用公式。
strtosum()函式可計算單元格區域中可能含有的計算公式。若想在h10中求a1:f10的彙總結果,請在h10的輸入框中填寫=strtosum(a1:f10) 。
'以下是需要使用的**,請按下alt+f11啟動vba編輯器,插入乙個模組,將以下**貼上其中,就可以應用了。
public function chartovalue(myrange as range) as single
'將單元格中可能存在的算式進行計算(僅限於四則運算和括號)
on error resume next
dim str1 as string, str2 as string, str3 as string, str4 as string
dim i as integer
str1 = myrange.text
str2 = "1234567890.+-*/ ()+-×÷()"
'取出算式
for i = 1 to len(str1)
str3 = mid(str1, i, 1)
if instr(1, str2, str3) > 0 then
str4 = str4 & str3
end if
next
'替換算式中因為習慣可能存在的非法,以利計算
str4 = replace(str4, "+", "+")
str4 = replace(str4, "-", "-")
str4 = replace(str4, "×", "*")
str4 = replace(str4, "÷", "/")
str4 = replace(str4, "(", "(")
str4 = replace(str4, ")", ")")
str4 = evaluate(str4)
if isnumeric(str4) = true then
chartovalue = val(str4)
else
chartovalue = 0
end if
end function
public function strtosum(myrange as range) as single
'將單元格區域中含有的算式彙總結果——區域中單元格必須連續
'如:我有15元+欠別人10元,彙總結果=25,而不是 5
dim i as long
dim sumsing as single
with myrange
for i = 1 to .cells.count
sumsing = sumsing + chartovalue(.cells(i))
next
end with
strtosum = sumsing
end function
用Excel如何做標籤,用Excel如何做標籤? 10
用文字框畫,這樣可以調整成自己想要的格式,用ppt做標籤列印模版效果會更好一點,示例一下,自己模仿 先在電腦上設定一個你知道 的寬度和高度,比如這裡設定寬為5個excel單位,高為14個excel單位 然後給 加邊框列印出來 在列印出來的紙上用比較精確的尺子量 寬度和高度.這樣就可以確定excel單...
請簡述杜邦財務分析的指標體系結構
杜邦財務分析體系 基本理論杜邦財務分析體系 簡稱杜邦體系 由美國杜邦公司首先採用並成功運用而得名,它是利用各財務指標間的內在關係,對企業綜合經營理財及經濟效益進行系統分析評價的方法。該體系以淨資產收益率為核心,將其分解為若干財務指標,通過分析各分解指標的變動對淨資產收益率的影響來揭示企業獲利能力及其...
如何分析財務報表,怎樣分析財務報表?
東奧名師 財務報表分析的基本方法如下 1 結構分析方法結構分析方法又稱為垂直分析法 縱向分析法或者共同比分析法。2 趨勢分析法趨勢分析法稱為水平分析法或者橫向分析法。3 比率分析法比率分析法是會計報表內兩個或兩個以上專案之間關係的分析,它用相對數來表示,因而又稱為財務比率。4 比較分析方法比較分析方...