vba excel查看单元格但保持公式完好无损

Question

我正在使用vba与excel制作用户界面我拥有的是7个文本框6抓住单元格m10 - m16并允许用户更改m17完全相同但我的问题是我只想查看m17并保持公式每次我运行程序并更改一个值使用其他6个框中的1更改值但删除我的公式如何让它查看结果但保留我的公式

Private Sub nnn()

End Sub

Public Sub Frame1_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label13_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox12_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox15_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TextBox15.Text = ThisWorkbook.Sheets("Sheet1").Range("F10").Value
End Sub

这是我的代码，但我没有在此鳕鱼中分配单元格我通过在Excel视图属性中的可视化编辑器中右键单击它将其分配给text_box4并输入为controlource

Answer 1

我感觉您正在使用文本框的.ControlSource属性来提取值。

在这种情况下，您无法阻止单元格被覆盖。填充文本框的最佳方法是在UserForm_Initialize事件或CommandButton1_Click事件中填充

Private Sub UserForm_Initialize()
    TextBox1.Text = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub

或

Private Sub CommandButton1_Click()
    TextBox1.Text = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub

Answer 2

使用

.Formula

而不是

.Value

写入单元格时