Question

我需要添加具有不同控制源值的不同文本框，并在更改值时更改我循环遍历不同数量的文本框，我可能需要添加到用户窗体。我面临的问题是，每次循环并创建一个新文本框连接到新单元格时，控制源都不允许更改。

    Set qtextbox1 = Me.Controls.Add("Forms.textbox.1", "Uquantity_TextBox_"  & i)
     Set myrangeused = Cells(userow + i, usecol)
     add = myrangeused.Address
     With qtextbox1
        .ControlSource = "'Lookup Lists'!F4"

当我添加特定单元格但未将不同的taxt框链接到不同的源时，代码可以正常工作。

Answer 1

如果有人试过这个，谢谢你。我得到了上述问题的解决方案。如果不是

，控制源可以变为动态

     With qtextbox1
    .ControlSource = "'Lookup Lists'!F4"

我们

       With qtextbox1
      .ControlSource = add <<~~ address of the targetcell `

添加链接到不同控件源的多个文本框

1 个答案: