如何在Excel公式中使用Excel文本框中的输入值

Question

嗨，我想进行数据验证，所以我有两列，我会将F列中的每个行值除以Colum S + texbox.value（vba）中的每个行值，但是我不知道如何在Excel公式中使用我的文本框中的值。

谢谢

Answer 1

公式：

要在公式中使用文本框值，然后通过链接的单元格进行访问：

如果右键单击文本框并检查属性，则可以设置链接的单元格地址：

然后在公式中可以使用链接单元格中的值，例如= A1 + 1

---

VBA：

对于ActiveX对象使用

TextBox1.Value

用适当的文本框名称替换TextBox1

说我在"Sheet1"中有文本框，我可以通过以下方式查看该值：

Option Explicit
Public Sub test()
    MsgBox Worksheets("Sheet1").TextBox1.Value
End Sub

Answer 2

说我们有一个使用插入>形状输入的文本框。在标准模块中插入以下代码：

Dim ader As Double

Sub TextBox1_Click()
    Dim tb As TextBox
    Set tb = ActiveSheet.TextBoxes("TextBox 1")
    ader = CDbl(tb.Text)
    Application.CalculateFull
End Sub

Public Function valu() As Double
    Application.Volatile
    valu = ader
End Function

确保已将TextBox分配给click例程。每当更改TextBox并单击TextBox时，事件代码都会更新全局变量。用户定义的函数将返回全局变量的当前值：