设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 如何实现按钮控制listview输出
数据透视表40+个常用小技巧，让你一次学会！
返回列表 发新帖
查看: 2385|回复: 5

[已解决]如何实现按钮控制listview输出

[复制链接]
发表于 2014-1-2 01:04 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
  1. Private Sub UserForm_Initialize()
  2. ListView1.ColumnHeaders.Add , , "mc", 40, lvwColumnLeft
  3. ListView1.ColumnHeaders.Add , , "料号", 100, lvwColumnCenter
  4. ListView1.ColumnHeaders.Add , , "吸着", 80, lvwColumnCenter
  5. ListView1.ColumnHeaders.Add , , "错误", 80, lvwColumnCenter
  6. ListView1.ColumnHeaders.Add , , "错误率[%]", 80, lvwColumnCenter
  7. ListView1.View = lvwReport
  8. ListView1.FullRowSelect = True
  9. ListView1.Gridlines = True
  10. For i = 2 To 11
  11. Set Itm = ListView1.ListItems.Add()
  12. Itm.Text = Sheet(n).Cells(i, 1)
  13. Itm.SubItems(1) = Sheet(n).Cells(i, 2)
  14. Itm.SubItems(2) = Sheet(n)..Cells(i, 3)
  15. Itm.SubItems(3) = Sheet(n)..Cells(i, 4)
  16. Itm.SubItems(4) = Sheet(n)..Cells(i, 5)
  17. Next
  18. End Sub
复制代码
怎样通过optionbutton按钮 给sheet(n)赋值 来控制listview输出的内容
先谢谢了！
listview.rar (9.88 KB, 下载次数: 6)
如何

相关帖子

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
 楼主| 发表于 2014-1-2 01:34 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
  1. Private Sub UserForm_Initialize()
  2. ListView1.ColumnHeaders.Add , , "mc", 40, lvwColumnLeft
  3. ListView1.ColumnHeaders.Add , , "料号", 100, lvwColumnCenter
  4. ListView1.ColumnHeaders.Add , , "吸着", 80, lvwColumnCenter
  5. ListView1.ColumnHeaders.Add , , "错误", 80, lvwColumnCenter
  6. ListView1.ColumnHeaders.Add , , "错误率[%]", 80, lvwColumnCenter
  7. ListView1.View = lvwReport
  8. ListView1.FullRowSelect = True
  9. ListView1.Gridlines = True
  10. End Sub
  11. Sub optionbutton1_CLICK()
  12. ListView1.ListItems.Clear
  13. For i = 2 To 11
  14. Set Itm = ListView1.ListItems.Add()
  15. Itm.Text = Sheet2.Cells(i, 1)
  16. Itm.SubItems(1) = Sheet2.Cells(i, 2)
  17. Itm.SubItems(2) = Sheet2.Cells(i, 3)
  18. Itm.SubItems(3) = Sheet2.Cells(i, 4)
  19. Itm.SubItems(4) = Sheet2.Cells(i, 5)
  20. Next
  21. End Sub
  22. Sub optionbutton2_CLICK()
  23. ListView1.ListItems.Clear
  24. For i = 2 To 11
  25. Set Itm = ListView1.ListItems.Add()
  26. Itm.Text = Sheet1.Cells(i, 1)
  27. Itm.SubItems(1) = Sheet1.Cells(i, 2)
  28. Itm.SubItems(2) = Sheet1.Cells(i, 3)
  29. Itm.SubItems(3) = Sheet1.Cells(i, 4)
  30. Itm.SubItems(4) = Sheet1.Cells(i, 5)
  31. Next
  32. End Sub
复制代码
已经用笨方法实现了 哪位还有更简洁的？



回复

使用道具 举报

hwc2ycy
发表于 2014-1-2 08:36 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
爱胡闹 发表于 2014-1-2 01:34
已经用笨方法实现了 哪位还有更简洁的？

两个Option的方法都是一样的吧，那就用类吧，或者用调用一个公共过程。


回复

使用道具 举报

hwc2ycy
发表于 2014-1-2 08:36 | 显示全部楼层
另外，多用WITH语句。
回复

使用道具 举报

zjdh
发表于 2014-1-2 08:37 | 显示全部楼层
本帖最后由 zjdh 于 2014-1-2 09:02 编辑

见6楼，添加数据就是这样的程式。
回复

使用道具 举报

zjdh
发表于 2014-1-2 08:59 | 显示全部楼层    本楼为最佳答案   
或这样
listview2.rar (10.94 KB, 下载次数: 24)
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-26 17:21 , Processed in 0.305710 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表