Excel VBA 實現代碼轉文字自動填寫：部門代碼 1→一車間、2→二車間、3→銷售部，輸入效率倍增

寬表錄入時，滑鼠捲動找欄位、鍵盤輸入長文字（如部門名稱）極易錯行、拼錯。將常用文字預設為數字代碼，配合 VBA Worksheet_Change 事件自動轉換，鍵盤不離數字區，錄入速度提升 3-5 倍。

實作範例：部門代碼自動轉換

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then ' 僅第二欄生效
        Select Case Target.Value
            Case 1: Target.Value = "一車間"
            Case 2: Target.Value = "二車間"
            Case 3: Target.Value = "銷售部"
        End Select
    End If
End Sub

部署步驟

1. 在 Excel 中 Alt+F11 開啟 VBE。
2. 專案總管雙擊目標工作表（如「Sheet1」） → 貼上上述代碼。
3. 關閉 VBE 回到 Excel，第二欄輸入 1/2/3 即自動變文字。

優於「尋找取代」的三大理由

• 範圍精準： Target.Column = 2 鎖定單欄，不影響其他欄位同樣數字。
• 即時生效：輸入確認瞬間轉換，無需事後批次處理、逐筆確認。
• 防呆設計：可擴充 Case Else: MsgBox "代碼錯誤": Application.Undo 強制輸入合法代碼。

擴充應用

• 職稱代碼、學歷代碼、產品分類代碼、客戶等級代碼…所有「定值清單」皆適用。
• 配合「資料驗證 → 清單」限制輸入範圍，形成「下拉選單 + 代碼自動展開」雙重保障。
• 將含巨集的活頁簿存為 .xlsm 分發給錄入人員，零訓練成本即可上手。

安全提醒：巨集啟用需信任中心設定；分發前請鎖定 VBA 專案密碼，防止代碼被竄改植入惡意邏輯。