0

我对 VBA 非常陌生。我找不到复杂的用户表单的任何答案。有哪位大师，请帮忙。

我的用户窗体使用尺寸创建一个文本框网格。创建之后，我在每个单独的文本框中输入了一些读数，然后通过单击“CAL”按钮将它们平均到另一个文本框中。我是新手，请多多包涵。

代码：


1. AvgBox = Controls("txtbox" & 2).Value

End Sub

    Private Sub GrdBtn_Click()

Dim r As Long, c As Long
Dim i As Long
Dim ctl As Control

For c = 1 To Val(TextBox1.Text) / 12 * 2 - 1
For r = 1 To Val(TextBox2.Text) / 12 * 1 + 1 

            Set ctl = Me.Controls.Add("Forms.TextBox.1") ', "ob_" & r & "_" & c, True)
            
            ctl.Name = "txtbox" & r
            ctl.Left = 10 + (c - 1) * 50
            ctl.Top = 15 + (r - 1) * 40
            ctl.Width = 50
            ctl.Height = 50

  i = i + 1
           Set mArrClsTBX(i) = New clsTextBox
            Set mArrClsTBX(i).pTbx = ctl
        
        Next
    'Next

If GrdBtn.Caption = "EXPAND" Then
GrdBtn.Caption = "RETRACT"

Exit Sub
End If

If GrdBtn.Caption = "RETRACT" Then
GrdBtn.Caption = "EXPAND"

Exit Sub
End If

Next

End Sub
4

0 回答 0