我該如何動態構造一個文本框對象引用？

我問過類似的問題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

我該如何動態構造一個文本框對象引用？

回答

相關問題