限制宏以設置文本框的范圍

Question

我正在嘗試將一系列單元格鏈接到文本框，唯一的問題是，如果我編輯文本框，它將在任何單元格中寫入。 我想將該功能限制在特定范圍內（“ C4至C11”）。 這是我的代碼：

Dim PreviousCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Target.Column = 3 Then ActiveSheet.TextBox1.Text = Target



       If Not PreviousCell Is Nothing Then
       Debug.Print PreviousCell.Address
       End If

       Set PreviousCell = Target ' This needs to be the last line of code.

End Sub



Private Sub TextBox1_Change()

ActiveCell.Value = TextBox1

End Sub

Answer 1

Private Sub TextBox1_Change()

If ActiveCell.Column = 3 Then ActiveCell.Value = TextBox1

End Sub