填充现有文本框时向用户窗体或工作表添加新文本框

debugcn 发表于 Dev

gioxc88

我已经使用 vba 一段时间了，但我遇到了这个问题：

每当填充现有文本框时，我想向现有用户表单或工作表添加一个新文本框。查看下图，以更好地了解我打算做什么。

在第一张图中，“Selected Indices”下方只有一个索引，即“ER01”，下方可以读取“Enter Index”
移动下一张图像，您可以看到我用“ER02”填充了第二个文本框，并在按下 Enter 后自动出现带有“输入索引”的文本框。
同样的事情发生在我用“ER03”填充第三个文本框的第三个图像中，并在按下回车后自动出现带有“输入索引”的文本框

我希望我已经足够清楚

非常感谢您的帮助

约翰·马金斯

这对您来说是一个良好的开端。将此脚本放在一个干净的常规模块中。它将在 Sheet1 上创建一个文本框（名为 MyTB），其中包含文本“hello”。（来源：http : //www.contextures.com/excelvbatextboxcreate.html）

Sub AddTextBox()
Dim ws As Worksheet
Dim oTB As Object
Set ws = Worksheets("Sheet1")
   Set oTB = ws.OLEObjects.Add(ClassType:="Forms.TextBox.1")
    With oTB
    .Name = "MyTB"
'    .LinkedCell = "$A$2"
    .Left = ws.Range("B2").Left
    .Top = ws.Range("B2").Left
    .Width = ws.Range("B2").Width
    .Height = ws.Range("B2").Height
    .Object.BackColor = RGB(204, 204, 255)
    .Object.ForeColor = RGB(0, 0, 255)
    .Object.Text = "Hello"
    End With
End Sub

在 Sheet1 上创建文本框后，将以下代码放在 Sheet1 模块中。

Private Sub MyTB_Change()
If MyTB.Text = 21 Then Beep
End Sub

然后转到 Sheet1 并将文本框中的“Hello”更改为数字 21。它应该发出哔哔声。

这些都是你做你想做的事所需的所有技能。您需要做的就是添加逻辑。当您在 MyTB 中输入 21 时，您可以将其定向到另一个创建第二个文本框的子例程，而不是发出哔哔声。永远记住，这是一个学习网站，而不是一个编码网站。您还可以为第二个文本框动态地将代码添加到工作表模块中，并根据需要为任意数量的文本框添加代码。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。