excel - 如何在 Excel VBA 中为用户窗体和单元格使用嵌套的 For 循环?
问题描述
我一直在尝试做一个有 28 个文本框的用户窗体,其中一半的文本框是 Range("J7:J20") 的输入,另一半是 Range("K7:K20") 的输入。但是,输入不会显示在单元格中。这是代码,我将不胜感激任何帮助或建议,谢谢。
Private Sub ApplyButton_Click()
For i = 1 To 20
For j = 1 To 27 Step 2
Sheet1.Range("J" & CStr(i + 6)).Value = Me.Controls("TextBox" & CStr(j)).Value
Next j
Next i
End Sub
解决方案
Private Sub ApplyButton_Click()
Dim c As long, r As long, s As String
' J7:K20 Textbox1=J7 Textbox2=K7
For r = 0 To 13
For c = 1 To 2
s = "TextBox" & r * 2 + c
Sheet1.Cells(r + 7, c + 9).Value = Me.Controls(s).Value
Next
Next
End Sub
推荐阅读
- java - 使用 Java 打印 12 个月和接下来的 2 年
- twincat - 如果 VAR_INPUT 是 INTERFACE 类型,值是按引用传递还是按值传递?
- reactjs - 如何更新material-ui按钮焦点样式?
- php - 当我运行此代码时,计数器仅变为 1 和 2,但我想让它变为 5
- python - 我可以在Python中生成每行等于1的随机矩阵值(小数)吗?
- reactjs - 如何在 React 中使用 props 渲染 DOM?
- powershell - 被这个 PS 脚本卡住了
- python - 在 numpy masked_array 中用 nan 替换 masked
- javascript - 为什么 parseInt(string@2019) 在 JavaScript 中返回 NaN?
- angular - RouterLink stops working once more declarations are added