在Excel中自制趣味撲克牌游戲計算題

1.生成撲克牌

撲克牌可以借助UNICHAR函數(shù)來生成。新建一個工作表，定位到B1單元格并輸入公式“=UNICHAR（127136+COLUMN（A1））”，然后向右填充公式到L1單元格，可以在B1：L1區(qū)域依次生成黑桃A到黑桃J的撲克牌（圖1）。

接下來在M1單元格中輸入公式“=UNICHAR（127136+COLUMN（M1））”，向右填充公式到N1單元格，可以生成黑桃Q和黑桃K的撲克牌。至此就生成了一個花色的所有撲克牌（13張）（圖2）。

公式解釋：

UNICHAR函數(shù)通過引用不同的數(shù)值，返回該數(shù)值所對應(yīng)的Unicode字符。這里的撲克牌實際上就是一類Unicode字符。黑桃A對應(yīng)UNICHAR（127137），黑桃K對應(yīng)UNICHAR（127150），這里通過嵌套COLUMN文|平淡函數(shù)實現(xiàn)向右填充公式時引用數(shù)值依次加1。在Excel2019中，UNICHAR（127148）為不可識別的撲克牌，UNICHAR（1271149）對應(yīng)的才是黑桃Q。在這里我們通過兩段公式來生成所有的撲克牌，可以避免向右填充公式時生成UNICHAR（127148）所對應(yīng)的撲克牌。

操作同上，在B2和M2單元格中分別輸入公式“=UNICHAR（127152+COLUMN（A2））”和“=UNICHAR（127152+COLUMN（M2））”、B3和M3單元格中分別輸入公式“=UNICHAR（127168+COLUMN（A3））”和“=UNICHAR（127168+COLUMN（M3））”、B4和M4單元格中分別輸入公式“=UNICHAR（127184+COLUMN（A4））”和“=UNICHAR（127184+COLUMN（M4））”，然后填充公式并設(shè)置單元格的字體顏色，即可生成紅桃、方塊和梅花這3個花色的撲克牌（圖3）。

2.隨機抽取撲克牌

該游戲是從每個花色的撲克牌中隨機抽取1張，這可以通過VLOOKUP函數(shù)來實現(xiàn)。定位到P1單元格并輸入公式“=VLOOKUP（O1，A1：N1，RANDBETWEEN（2，14），1）”，然后下拉填充公式到P4單元格（圖4）。

公式解釋：

這里以O(shè)1單元格中的字符為基準，在A1：N1數(shù)據(jù)區(qū)域中查找對應(yīng)的數(shù)值，查找列號使用隨機函數(shù)RANDBETWEEN來生成，最小列為2，最大列為14。由于列號為隨機數(shù)字（2～14），所以可以實現(xiàn)在P列中隨機抽取1張撲克牌。

3.為撲克牌標記數(shù)字

撲克牌J、Q、K對應(yīng)的數(shù)字分別為11、12、13，為了便于孩子識別，可以使用IFS函數(shù)將其轉(zhuǎn)換為對應(yīng)的數(shù)字。定位到O1單元格并輸入公式“=IFS（P1=B1，1，P1=C1，2，P1=D1，3，P1=E1，4，P1=F1，5，P1=G1，6，P1=H1，7，P1=I1，8，P1=J1，9，P1=K1，10，P1=L1，11，P1=M1，12，P1=N1，13）”，下拉填充公式到O4單元格（圖5）。

公式解釋：

這里使用IFS函數(shù)對P1單元格中的撲克牌進行判斷，如果P1=B1，就顯示為數(shù)字“1”;P2=B2，就顯示為數(shù)字“2”。以此類推，即可將所有撲克牌轉(zhuǎn)換為對應(yīng)的數(shù)字。

4.添加運算提示

撲克牌的四則運算組合非常靈活，我們可以通過VBA列出相關(guān)的解法，供孩子們參考。先到“https：//share.weiyun.com/Et2Lnd7K”下載所需的代碼文件，打開后全選代碼并復制，接著在Excel中按下“Alt+F11”組合鍵打開VBA編輯窗口，依次點擊“插入→模塊”，將剛剛復制的代碼粘貼到代碼框中（圖6）。

5.實際使用

返回Excel窗口，隱藏A：N列。這樣在當前窗口中，我們只要按下F9鍵，在P列就會隨機出現(xiàn)4張撲克牌（每按一次F9鍵，會再次出現(xiàn)隨機的4張撲克牌，相當于重新發(fā)一次牌），孩子們發(fā)揮自己的想象力進行運算即可（圖7）。

如果想查看參考答案，依次點擊“開發(fā)工具→宏→test”（即通過上述VBA腳本生成的宏），再點擊“執(zhí)行”，然后在彈出的文本框中依次輸入Q列顯示的數(shù)字，即可得到計算結(jié)果（圖8）。當然，這只是其中的一個參考答案，實際上有多種運算組合，只要最終答案符合要求即可。