-3

我正在使用带有 excel 的 vba 来制作用户界面 我所拥有的是 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

这是我的代码，但我没有在这个 cod 中分配单元格我通过在 excel 视图属性中的可视化编辑器中右键单击它并将其分配给 text_box4 并作为控制源输入

4

2 回答 2

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
于 2013-09-19T17:43:11.283 回答
0

采用

.Formula

而不是

.Value

写入单元格时

于 2013-09-19T17:04:12.527 回答