如何使用EXCEL巨集命令實現自動計算功能

2021-03-04 05:21:38 字數 2245 閱讀 9470

1樓:sky不用太多

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

微軟的office是最為流行的辦公軟體,主要有office2010和office2007兩個版本。office 2000是第三代辦公處理軟體的代表產品,可以作為辦公和管理的平台,以提高使用者的工作效率和決策能力。office 2000中文版有4種不同的版本:

標準版、中小企業版、中文專業版和企業版。

在office 2000中各個元件仍有著比較明確的分工:一般說來,word主要用來進行文字的輸入、編輯、排版、列印等工作;excel主要用來進行有繁重計算任務的預算、財務、資料彙總等工作;powerpoint主要用來製作演示文稿和幻燈片及投影片等;access是乙個桌面資料庫系統及資料庫應用程式;outlook是乙個桌面資訊管理的應用程式;frontpage主要用來製作和釋出網際網路的web頁面。

microsoft office xp是微軟有史以來所發行的office版本中最重要的版本,而且也被認為是迄今為止功能最強大、最易於使用的office產品。新版office放棄了以往以產品釋出年命名的慣例!產品名稱中的xp,是英文experience(體驗)的縮寫,代表著新版office在包容覆蓋廣泛裝置的web服務之後,將給使用者帶來豐富的、充分擴充套件的全新體驗。

除核心的 office xp 程式 — microsoft word、excel、outlook和 powerpoint— 外,office xp 專業版 中包含 microsoft access 2002,它是 office xp 資料庫解決方案,可幫助使用者儲存、訪問和分析資料。

ecel自動替換內容實現方法,excel 自動替換內容實現方法

一 快捷方式 按ctrl f開啟 查詢和替換 對話方塊並啟用 查詢 選項卡,按ctrl h開啟 查詢和替換 對話方塊並啟用 替換 選項卡。二 使用萬用字元 在excel的查詢和替換中使用星號 可查詢任意字串,例如 查詢 excel 可找到 excel函式 和 excel公式 等。使用問號可查詢任意單...

如何使用DOS命令修改windows使用者的密碼

命令格式 net user 使用者賬號 密碼,如 net user administrator 123456 意思就是把管理員的密碼改成了123456 開啟命令列輸入 net user 使用者名稱 密碼即可。例如 更改 使用者 admin 的密碼net user admin 123456即可把adm...

在excel中重複執行命令如何簡單操作

工具 原料 excel2010 電腦 win10方法 步驟 1 首先,開啟需要編輯的excel文件,選中a列,右擊,點選 插入 列 2 顯示如下效果。3 如果想在d重複執行同乙個命令,即選中d列,鍵盤上按下f4。4 即可在d列重複上一次插入列的命令。大量重複性的操作,推薦使用巨集。錄製巨集 演示合併...