ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 806|回复: 6

[求助] 【求助】复选框进行数据录入

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-7-6 16:40 | 显示全部楼层 |阅读模式
各位老师,现在想用VBA实现如图的功能,
不太会VBA,在网上找了很久,找到一个相似的,但修改到一半就难住了,
麻烦请指点一下吗,万分谢谢!


45.png

工作簿1.zip

60.79 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2018-7-7 17:42 | 显示全部楼层
一是用复选框是不对的,对服务不能即满意又不满意,还是要用选项按钮,为了确保排他选择,还需要把一组的OptionButton按钮修改成相同的groupname(和别的组不同,不然一起排他)
至于代码,非常简单,就是要一个个写,要有耐心。比如选中满意选项按钮时
If Me.OptionButton1.Value Then Sheets(2).Range("a1") = "满意"
代码意思是,如果OptionButton1是选中状态,则第二个工作表的A1单元格填入 满意,其他依次类推

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-7 17:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
jokklx 发表于 2018-7-7 17:42
一是用复选框是不对的,对服务不能即满意又不满意,还是要用选项按钮,为了确保排他选择,还需要把一组的Op ...

你好,感谢你的回复。代码中已经规定对服务如果选了满意就不能再选不满意了。
如果你有时间可以帮我看看代码为什么出错在哪里吗?因为我差不多是VBA小白,这个代码也是改别人的,但现在找不到哪里错了。
你讲的代码我暂时不知道如何去改到我的代码中,因为有点急用,麻烦你可以帮我看看如何改吗?

TA的精华主题

TA的得分主题

发表于 2018-7-7 19:51 来自手机 | 显示全部楼层
hikarulee 发表于 2018-7-7 17:56
你好,感谢你的回复。代码中已经规定对服务如果选了满意就不能再选不满意了。
如果你有时间可以帮我看看 ...

这种问卷可能用网页的方式比较方便多人提交。
Screenshot_2018-07-07-19-50-32.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-9 16:53 | 显示全部楼层
zpy2 发表于 2018-7-7 19:51
这种问卷可能用网页的方式比较方便多人提交。

感谢你的回复,请问这个要如何做的?

TA的精华主题

TA的得分主题

发表于 2018-7-9 18:09 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
hikarulee 发表于 2018-7-9 16:53
感谢你的回复,请问这个要如何做的?

需要php服务器,然后上传代码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-9 19:51 | 显示全部楼层
zpy2 发表于 2018-7-9 18:09
需要php服务器,然后上传代码。

谢谢,这个我以后再学学
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-6 15:19 , Processed in 0.027044 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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