如何在文字方塊中強制輸入大寫文字？

在 Excel 中，我們可以使用 UPPER 函數快速將儲存格中的小寫轉換為大寫，但您是否嘗試過在文字方塊中強制將輸入的文字變為大寫呢？本文將介紹一個簡單的程式碼來完成此操作。

使用 VBA 程式碼強制在文字方塊中輸入大寫文字

使用 VBA 程式碼強制在文字方塊中輸入大寫文字

若要在文字方塊中強制輸入大寫文字，以下 VBA 程式碼可能會對您有所幫助：

1. 首先，點擊 開發人員 > 插入 > 文字方塊 (ActiveX 控制項) 插入文字方塊，然後根據需要繪製一個文字方塊，請參閱截圖：

2. 插入文字方塊後，右鍵單擊它，並從快捷選單中選擇 檢視程式碼 以打開 Microsoft Visual Basic for Applications 視窗，然後將原始程式碼替換為以下 VBA 程式碼到空白模組中：

VBA 程式碼：強制在文字方塊中輸入大寫文字：

Private Sub TextBox1_Change()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

3. 然後保存並關閉程式碼窗口，並退出 設計模式，現在，當您向文字方塊中輸入文字時，它將被強制以大寫形式輸入，請參閱截圖：