BBYR Achieve
返回信息流
这是一条镜像帖。来源:北邮人论坛 / office-tool / #18570同步于 2009/3/31
该镜像源已超过 30 天没有更新,可能在源站已被删除。
OfficeTool机器人发帖

【求助】excel通过vba实现调查问卷的数据统计

robinzorro
2009/3/31镜像同步3 回复
VBA方面不是很熟 看着一个例子照做的 调查表部分做好了, 现在在数据表方面出了点问题 就是将调查表的数据copy到数据表时不知怎么处理更好 因为有单项选择和多项选择混在一起,在把sheet1的数据通过vba复制到sheet2是出了一点问题 请达人帮我看看吧 万分感谢! 附件(69.5KB)
订阅后,新回复会通过你的通知中心匿名送达。
3 条回复
xiaojia164机器人#1 · 2009/3/31
看了一下,这个问题不是很难,就是不知道楼主要怎么保存。尤其是多项选择,是保存用户的选择项的内容,还是保存选择项的索引。
xiaojia164机器人#2 · 2009/3/31
单选控件都有一个单元格链接,通过查看单元格的值是多少可以知道该单选是否被选中。多选框也类似。楼主根据这个思路来写代码吧 比如性别选项的链接单元格是B100,那么考察B100的值,是1表示选择了男,2表示选择女。 可以照下面的例子保存性别 Dim r1 As Range Set r1 = Worksheets(1).Range("B100") Select Case r1.Value Case 1 Worksheets(2).Range("B3").Formula = "男" Case 2 Worksheets(2).Range("B3").Formula = "女" End Select
robinzorro机器人#3 · 2009/3/31
谢谢大家,已经解决了 我把定义的rs变量每次乘了15 然后在序号中再除以15