[已解决]怎么在窗体上显示数据？

dsfada · 发表于 2015-3-16 13:08

本帖最后由 dsfada 于 2015-3-18 18:46 编辑

窗体打开以后，能不能把附件数据从第二行开始到最后一行数据在窗体上显示？
附件：

Book.rar (8.6 KB, 下载次数: 13)

zjdh · 发表于 2015-3-16 13:46

Book.rar (9.97 KB, 下载次数: 36)

dsfada · 发表于 2015-3-16 14:36

zjdh 发表于 2015-3-16 13:46

能不能指定几列数据在窗体上显示，序号姓名性别职位这几列显示

zjdh · 发表于 2015-3-16 16:36

Book2.rar (10.13 KB, 下载次数: 32)

布丁嬷嬷 · 发表于 2015-3-17 08:43

提示: 作者被禁止或删除内容自动屏蔽

dsfada · 发表于 2016-3-14 20:10

Private Sub UserForm_Initialize()
arr = Range("A2:J" & Range("A65536").End(3).Row)
ListBox1.List = arr
End Sub

dsfada · 发表于 2016-3-14 20:11

Private Sub UserForm_Initialize()
ARR = Range("A2:J" & Range("A65536").End(3).Row)
For I = 1 To UBound(ARR)
      ListBox1.AddItem
      ListBox1.List(I - 1, 0) = ARR(I, 1)
      ListBox1.List(I - 1, 1) = ARR(I, 3)
      ListBox1.List(I - 1, 2) = ARR(I, 4)
      ListBox1.List(I - 1, 3) = ARR(I, 6)
Next
End Sub

dsfada · 发表于 2016-3-14 20:18

Private Sub UserForm_Initialize()
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr) - 1, 1 To 4)
For i = 2 To UBound(arr)
      brr(i - 1, 1) = arr(i, 1)
      brr(i - 1, 2) = arr(i, 3)
      brr(i - 1, 3) = arr(i, 4)
      brr(i - 1, 4) = arr(i, 6)
Next
ListBox1.List = brr
End Sub

		自动登录	找回密码
密码			注册

布丁嬷嬷布丁嬷嬷当前离线积分 0 IP卡狗仔卡	发表于 2015-3-17 08:43 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
布丁嬷嬷布丁嬷嬷当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

[已解决]怎么在窗体上显示数据？

评分