首页 > 解决方案 > 将所有文本框值从用户窗体推送到工作表单元格的 For 循环 - VBA

问题描述

所以...我是 VBA 的新手。

maxnum = Sheets("Cl1").Range("A7").Value

Dim i As Integer
For i = 1 To maxnum
If Sheets("Cl1").Cells(i, 1) = "0" Then
                Cells(i, 4).Value = ("TextBox" & i).Value
End If
Next

我想要做的是将我的用户窗体中的所有文本框值按相应的顺序推送到工作表,但是 ("TextBox" & i).Value 不起作用 - 用户窗体中有 71 个文本框。我需要让它与 For Loop 一起工作,我知道还有很多其他方法(例如,使用 .Find)。我应该怎么办?

非常感谢

标签: vbafor-loopif-statementtextboxuserform

解决方案


推荐阅读