excel可利用函数

《excel可利用函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、lisp可直接利用的VBA函数;;BY黄明儒;;将十进制数9转换为4个字符的二进制数(1001);;(Dec2Bin94)=>"1001"(defunDec2Bin(DecBin/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Dec2BinDecBin))

2、;;10进制转8进制的公式;;(Dec2Oct754)=>"0113"(defunDec2Oct(DecOct/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Dec2OctDecOct));;10进制转16进制的公式;;(Dec2Oct754)=>"4B"

3、(defunDec2Hex(DecHex/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Dec2HexDecHex));;十六进制转换为二进制编码;;(HEX2BIN"4B")=>"1001011"(defunHEX2BIN(HEX/WorksheetFu

4、nction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'HEX2BINHEX));;十六进制转换为十进制编码;;(Hex2Dec"4B")=>75.0(defunHex2Dec(HEX/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-o

5、r-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Hex2DecHEX));;十六进制转换为八进制编码;;(Hex2Oct"4B")=>"113"(defunHex2Oct(HEX/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(s

6、etqWorksheetFunction(vlax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Hex2OctHEX));;八进制转换为二进制编码;;(Oct2Bin113)=(Oct2Bin"113")=>"1001011"(defunOct2Bin(HEX/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(v

7、lax-get*excel*'WorksheetFunction))(vlax-invokeWorksheetFunction'Oct2BinHEX));;Odd-返回比参数大的最接近的奇数。Even-返回比参数大的最接近;;(Odd32)=>33.0(defunOdd(num/WorksheetFunction)(or*excel*(setq*excel*(vlax-get-or-create-object"excel.application")))(setqWorksheetFunction(vlax-get*excel*'WorksheetFunct

8、ion))(vlax-invokeWorksheetFunctio