用 Excel VBA 玩數獨遊戲(範例代碼)

 用 Excel VBA 玩數獨遊戲(範例代碼)

在這篇文章中，將展示如何使用Excel中的VBA來自動生成數獨棋盤，讓你上班用Excel摸魚玩數獨。

這個數獨遊戲是用 VBA (Visual Basic for Applications) 編寫的，主要功能如下：

1. 生成數獨 (GenerateSudoku): 輸入想要挖空的數字數量，然後系統會生成一個完整的數獨棋盤，並挖空指定數量(1~64)的格子。
2. 儲存完整棋盤 (SaveFullBoard): 將生成的完整數獨棋盤儲存到全局變數 FullBoard 中，以便後續檢查解答。
3. 恢復完整棋盤 (RestoreFullBoard): 恢復並顯示完整的數獨棋盤，並根據玩家的輸入顯示正確答案（紅色顯示）或保持其輸入。
4. 清除紅色單元格 (ClearRedCells): 將紅色顯示（錯誤答案）的格子內容清除。
5. 移除數字 (RemoveNumbers): 根據指定的數量隨機清除數獨棋盤上的數字，以增強遊戲挑戰性。
6. 檢查玩家解答 (CheckPlayerSolution): 檢查玩家在數獨棋盤上提供的解答是否符合數獨的規則，並給予提示。
7. 初始化棋盤 (InitializeBoard): 將棋盤初始化為 0，以便準備填充數字。
8. 顯示棋盤 (DisplayBoard): 將棋盤的數字顯示在 Excel 的單元格中，並設置適當的格式（如顏色、對齊等）。
9. 設置邊框 (SetBorders): 設置棋盤中的每個單元格的邊框樣式，區分 3x3 的小區域，方便玩家視覺上識別。
10. 填充棋盤 (FillBoard): 遞迴地填充數獨棋盤，使其滿足數獨的規則。
11. 驗證數字的有效性 (IsValid): 檢查某個數字在指定的行、列及小區域中是否可以放置。
12. 獲取隨機數字 (GetRandomNumbers): 生成 1 到 9 的隨機數字列表，用於隨機填充棋盤的數字。
13. 驗證整個解答的正確性 (IsValidSolution): 檢查整個棋盤是否符合數獨規則，即行、列及每個 3x3 小區域不重複數字。

範例檔案

由此"連結"購買享折扣優惠

折扣碼：xianvba