,可以通过以下步骤实现:
Private Sub Worksheet_Click()
Dim textBoxValue As String
textBoxValue = TextBox1.Value
' 刷新Excel工作表
ThisWorkbook.RefreshAll
' 将文本框的值设置为刷新后的值
TextBox1.Value = textBoxValue
End Sub
ThisWorkbook.RefreshAll
语句刷新整个工作簿中的数据。最后,将文本框的值设置为刷新后的值。这样,当单击工作表时,文本框中的值将被保存,并且Excel工作表将被刷新。
领取专属 10元无门槛券
手把手带您无忧上云