窗体显示内容根据表格内容调整

hehehehehehep

现在想做个会变的窗体，不知道怎么操作了，求大神指点，谢谢。
若关键字有6个，则窗体显示6行；若关键字只有3个，则窗体显示3行。输入数据后，填入相应单元格。

hehehehehehep

求大神帮助，在线等

hehehehehehep

自己顶下，大神们指点下，怎么做。

一指禅62

类似的：

http://club.excelhome.net/thread-1107980-1-1.html

hehehehehehep

一指禅62 发表于 2018-6-8 16:03
类似的：

http://club.excelhome.net/thread-1107980-1-1.html

好的 谢谢 我去看下

一指禅62

1. 
   
2. Private Sub UserForm_Initialize()
   
3.     Dim arr, i%, iTop&
   
4.     Const iHeight = 24
   
5.     arr = Sheet1.Range("C3:D" & Sheet1.Range("C65536").End(3).Row)
   
6.     For i = 1 To UBound(arr)
   
7.         iTop = (i - 1) * iHeight + 12
   
8.         With Me.Controls.Add("Forms.Label.1", "Label" & i, True)
   
9.             .Move 24, iTop + 6, 42, 18
   
10.             .Caption = arr(i, 1)
    
11.             .Font.Size = 12
    
12.         End With
    
13. 
    
14.         With Me.Controls.Add("Forms.TextBox.1", "TextBox" & i, True)
    
15.             .Move 60, iTop, 102, 24
    
16.             .Text = arr(i, 2)
    
17.             .Font.Size = 12
    
18.         End With
    
19.     Next
    
20.     Rem 如果条目多，就启用滚动条
    
21.     If iTop + iHeight > Me.Height Then
    
22.         Me.ScrollBars = fmScrollBarsVertical
    
23.         Me.ScrollHeight = iTop + iHeight
    
24.     End If
    
25. End Sub

复制代码

一指禅62

求助 关于窗体.zip (39.01 KB, 下载次数: 142)

2018-6-8 17:21 上传

点击文件名下载附件

hehehehehehep

一指禅62 发表于 2018-6-8 17:21

谢谢了 我根据 你以前发的一个帖子做了稍许修改，能达到我的要求。给大家分享下。

hehehehehehep

由于我的条目不多，就用不到滚动条了。自己改了一个。参考网址：http://club.excelhome.net/thread-1095011-1-1.html