Excel VBA - 活動單元格中文本框的文本

Question

我想用一個文本框和一個命令按鈕構建一個簡單的用戶窗體，它通過在工作表內的特殊列（例如在列 A 中，單元格 A1）中的空單元格內單擊來打開自己。 當我輸入文本並點擊按鈕時，輸入的文本應粘貼到活動單元格 (A1) 中。

UserForm 的構建不是問題，而是其背后的操作。

你們知道如何解決這個問題嗎？ 或者甚至更好的代碼？

提前致謝！

Answer 1

這是當您單擊單元格時將運行的一段代碼

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A1")) Is Nothing Then
            'name of userform .Show
        End If
    End If
End Sub

如果代碼有注釋，您需要用戶表單的名稱，然后是.Show

輸入文本，讓我們按照您的建議說 A1，將是：

Private Sub CommandButton1_Click()

TextValue = TextBox1.Text

[A1].Value = TextValue

End Sub

將CommandButton1和TextBox1更改為您命名它們的任何名稱（如果您命名它們，您應該命名）

如果您需要澄清任何事情，請詢問