我该如何动态构造一个文本框对象引用？

我问过类似的问题Here，现在我需要重新做同样的事情，但这次在Excel 2010中我该如何动态构造一个文本框对象引用？

使用VBA基本上我有通用名称众多文本框（即TextBox1中，TextBox2中等等）。我如何编程构造对象引用以便创建循环？

编辑： 它是一个工作表上的常规文本框。当我开始一个子这个工作我可以用下面的行引用文本框：

TextBox1.LinkedCell = "B2"

来源

2012-02-01 Bryan

什么类型的文本框（forms/activeX），它们在工作表或表单上？ – 2012-02-01 21:01:01

这是你后：

Dim oleObj As OLEObject 
'Dim oleTxtBox As TextBox 

For Each oleObj In Sheet1.OLEObjects 
    If oleObj.OLEType = xlOLEControl Then 
     If Mid(oleObj.progID, 1, 14) = "Forms.TextBox." Then 
      Set oleTxtBox = oleObj.Object 
      oleTxtBox.PasswordChar = "*" 
     End If 
    End If 
Next

只是使用PasswordChar作为实例字段从TextBox对象，但它不会真的离开我Dim作为TextBox

来源

2012-02-01 21:38:55 Skytunnel

它的工作感谢你。我不得不改变设置oleTxtBox = oleObj.Object设置oleTxtBox = oleObj只是fyi。 – Bryan 2012-02-01 22:38:34

我该如何动态构造一个文本框对象引用？

回答

相关问题