如何用类模块精简

jkczfpb

荆门.rar (61.59 KB, 下载次数: 41)

2011-8-15 22:37 上传

点击文件名下载附件

Zipall

我觉得这种调查表还是用"窗体"控件来实现比较好.
因为被调查的人都不会希望在打开文件时看到一个宏提示.
可以用vba批量设置控件的连接单元格,然后删除代码.

在回收所有调查表后,只需将连接区域的值收集起来就好了.

jkczfpb

回复 Zipall 的帖子

窗体应用没有控件灵活，我主要是想以此学习类模块

Zipall

回复 jkczfpb 的帖子

给你个类的例子.
通过控件名称(需手工修改),将控件的结果固定在1个单元格.
在汇总时,只需将各个结果表集中在一起,用sum求得对应单元格的和.

sheet1的代码实现清空和关闭功能.
thisworkbook的代码将类实例化.
ckb_class就是为checkbox指定click动作.
荆门.rar (52.07 KB, 下载次数: 17)

2011-8-16 12:59 上传

点击文件名下载附件

吕?布

分成两种按钮
荆门(吕布).rar (55.37 KB, 下载次数: 50)

2011-8-16 16:36 上传

点击文件名下载附件

jkczfpb

谢谢，离我的要求尚有差距，但跟我提供了不错的思路，谢谢

开辆小富康

取控件值.rar (63.76 KB, 下载次数: 17)

2011-8-18 13:41 上传

点击文件名下载附件 不需要类模块也不需要什么复杂的.只要按着顺序建好多选框(有些应该是单选的,原理差不多,我给你做一个多选的样子)
建好以后,也不需要改NAME属性.只要改其中的文本.
下面的代码解决问题:
Sub GetVal()
  Dim Sp
  Dim Arr()
  Dim K&
  
  For Each Sp In Sheet1.OLEObjects
    If Sp.progID = "Forms.CheckBox.1" Then
      If Sp.Object.Value Then
       K = K + 1
       ReDim Preserve Arr(1 To 3, 1 To K)
       Arr(1, K) = Sp.Index
       Arr(2, K) = Sp.Object.Caption
      End If
    End If
  Next
  
    With Sheets("结果")
      .Columns("a:b").ClearContents
      If K > 0 Then .Range("a1").Resize(K, 2) = Application.Transpose(Arr)
    End With
  ThisWorkbook.Save
End Sub
建一个关闭工作簿事件,引用这个代码,建一个结果表.

吕?布

看了楼主的回复我实际上有点伤心，
我觉得我的很符合啊:
1. 用的类模块(我是看了楼主3楼回复才这样做的);
2. 与原来的做法又相同，唯一的改变是把单选改成了OptionButton.
3. 控件名称也不用改，只要连有一定规律就行了。一个题取一段

权当自己学习类模块了。