Как я могу динамически создать ссылку на объект текстового поля?

Question

Я задал похожий вопрос Здесь , и теперь мне нужно сделать то же самое снова, но на этот раз с использованием VBA в Excel 2010.

По существу у меня есть многочисленные текстовые поля с родовыми именамито есть textbox1, textbox2 и т. д.).Как я могу программно построить ссылку на объект, чтобы создать цикл?

РЕДАКТИРОВАТЬ: Это обычное текстовое поле на листе.Когда я запускаю подпрограмму для этого листа, я могу ссылаться на текстовые поля со следующей строкой:

TextBox1.LinkedCell = "B2"

Answer 1

Это то, что вы после:

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