作者:乔山办公网日期:
返回目录:excel表格制作
你是要运行 EXCEL工作表函数zd还是要给在VBA中给单元格写公式
如果是版要用函数
applivation.worksheetfunction.
如果是要给格写公式 权比如 B4=A1+1
请用 range("B4").Formula = "=A1+1"
一、利用单复元格公式返回值
Sub t5()
Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函制数百直接把公式表达式转化为度数值
Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub
二、知借用工作表函数
Sub t6()
Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'
三、利用道VBA函数
Sub t7()
Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub
在模块里定义:
function aa(a)
aa=a
end function
窗体里调用:
x=aa(1)
msgbox x
拼一下道
dim ExcelApp as object
dim mywk as workbook
ExcelApp =CreateObject(,"Excel.Application")
mywk =ExcelApp .open("文件名称回答")
mywk.模块名称.函数名称