平淡
一般來說,漢語拼音中的一聲和二聲可以看作平聲,三聲和四聲為仄聲(與時代、地區(qū)有關,此處僅以現(xiàn)代普通話為準)。在對聯(lián)中,上聯(lián)的最后一個字一般是仄聲,下聯(lián)的最后一個字是平聲,也就是仄起平收(圖1)。其他位置的字詞只需平仄對應即可。比如五字聯(lián)既可以使用“仄仄平平仄”對應“平平仄仄平”,也可以使用“平平平仄仄”對應“仄仄仄平平”。如果要通過Excel判斷平仄,先要拆分對聯(lián),然后根據漢字的讀音將其轉換為對應的數字(數字1和2對應平聲,數字3和4對應仄聲),最后再根據對聯(lián)的特點,使用IFS函數來判斷。
拆分對聯(lián)可以借助MID函數來完成。新建工作表,將上下聯(lián)分別粘貼到A2和A3單元格,接著在B2單元格中輸入公式“=MID($A2,COLUMN(A1),1)”,然后向右和向下填充公式到L2和L3單元格(多填充幾個單元格,方便后續(xù)輸入更多字詞的對聯(lián)時可以自動拆分),即可完成對聯(lián)的拆分(圖2)。
公式解釋:
使用MID函數拆分單元格字符,$A2表示被操作的字符串;COLUMN(A1)表示使用COLUMN函數對列的引用,作為提取字符的位置,向右填充公式時會依次變?yōu)閿底?、2……;最后的參數“1”表示每次只提取一個字符。
Excel是無法識別讀音的,需要借助“方方格子”插件(http://www.ffcell.com/)將讀音轉換為可以識別的數字。安裝完插件后,選中B2:H2數據區(qū)域,接著依次點擊菜單欄中的“DIY工具箱→拼音筆畫→漢字轉拼音(高級)”,在打開的窗口中將“注音”設置為“數字表示音調”,點擊“確定”。然后將鼠標定位到B5單元格,這樣在B5:H6數據區(qū)域就會自動為漢字添加上注音了,音調使用數字1~4分別標注(圖3)。
添加完注音后,接下來使用LOOKUP函數將音調中的數字提取出來,作為判斷平仄的依據。定位到A7單元格并輸入公式“=TEXTJOIN("",TRUE,B5:H5)”,下拉填充到A8單元格,將標注拼音的上下聯(lián)字符分別連接在A7、A8單元格中顯示,方便后續(xù)提取數字(圖4)。
繼續(xù)在C7單元格中輸入公式“=IFERROR(-LOOKUP(1,-MID($A7,SMALL(IF(MMULT(1*ISERR(-MID($A7,ROW($2:$93)+{0,1},1)),{1;-1})=1,ROW($3:$94)),COLUMN(A7)),COLUMN($A:$N))),"")”,接著按下“Ctrl+Shift+Enter”組合鍵完成公式的輸入,然后向右填充公式到H7單元格,向下填充公式到H8單元格,這樣在B7:H8數據區(qū)域就會自動顯示音調所對應的數字了(圖5)。
判斷平仄可以使用IFS函數來完成。定位到B10單元格并輸入公式“=IFS(B7=1,"平",B7=2,"平",B7=3,"仄",B7=4,"仄")”,然后下拉填充到B10:H11數據區(qū)域,這樣在該區(qū)域中就會自動顯示平仄字樣了(圖6)。
繼續(xù)在B12單元格中輸入公式“=IFS(AND(B10="平",B11="仄"),"√",AND(B10="仄",B11="平"),"√",TRUE,"×")”,這里通過嵌套AND函數,確保只有“平仄”或“仄平”對應的才是對仗工整的對聯(lián)(圖7)。
在上面的操作中,除了添加注音時需要手動使用“方方格子”外,其他部分均通過公式來引用。這樣在以后需要判斷其他對聯(lián)的平仄時,只要在A2和A3單元格中分別輸入上下聯(lián)內容,添加拼音標注后就會自動給出判斷結果了。如果出現(xiàn)平仄對應錯誤,函數會自動給出提示,按照平仄規(guī)律做出修改即可(圖8)。