在Excel中有很多有趣好玩的函數(shù)，比如求和、求平均數(shù)等函數(shù)。當(dāng)這些函數(shù)不能滿足工作需要時(shí)，我們都會(huì)使用VBA開(kāi)發(fā)自定義函數(shù)來(lái)滿足。比如說(shuō)漢字轉(zhuǎn)拼音的功能。接下來(lái)我們使用Python/ target=_blank class=infotextkey>Python開(kāi)發(fā)類似功能。
接下來(lái)，我們編寫4個(gè)函數(shù)，求和、求平均數(shù)、漢字轉(zhuǎn)拼音、漢字轉(zhuǎn)聲調(diào)函數(shù)。源代碼如下。
import xlwings as xw
import pypinyin
@xw.func
@xw.arg('data',ndim=2)
def py_sum(data):
for row in data:
return row[0]+row[1]
@xw.func
@xw.arg('data',ndim=2)
def py_avg(data):
for row in data:
return (row[0]+row[1])/2
@xw.func
def py_pinyin(word):
s = ''
for i in pypinyin.pinyin(word, style=pypinyin.NORMAL):
s += ''.join(i)
return s
@xw.func
def py_yinjie(word): # 帶聲調(diào)的(默認(rèn))
s = ''
# heteronym=True不開(kāi)啟多音字
for i in pypinyin.pinyin(word, heteronym=False):
s = s + ''.join(i) + " "
return s
注意：@xw.arg('data',ndim=2)代碼指不考慮區(qū)域的形狀，強(qiáng)制返回值為2維列表。這樣就可以把Excel中的單元格區(qū)域轉(zhuǎn)換為Python中的2維列表，方便處理。
新建
xlwing_call_func_pinyin.xlsm文件，添加xlwings.bas模塊后，點(diǎn)擊菜單“開(kāi)發(fā)工具”下代碼面板上的“宏”按鈕，在彈出界面上, 點(diǎn)擊“ImportPythonUDFs”，點(diǎn)擊“執(zhí)行”按鈕，這樣會(huì)把當(dāng)前同名文件中的Python函數(shù)導(dǎo)入到VBA中來(lái)。如圖所示。
圖-導(dǎo)入Python函數(shù)
切換到Visual Basic編輯界面，可以看到自動(dòng)增加了一個(gè)模塊xlwings_udfs，如圖所示。
圖-函數(shù)導(dǎo)入到Visual Basic編輯環(huán)境中
接下來(lái)就可以在Excel中隨心所欲地使用Python函數(shù)了，如圖所示。
圖-求和和平均數(shù)
圖- 漢字轉(zhuǎn)拼音
