ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

求助:在EXCEL中,如何用VBA设置自己想要的数字输入框?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-12-3 10:23 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
各位牛人,谁有空帮伙解决下面的问题,谢了哈!
    EXCEL的储存格C5,是个数字,是一个需要经常更新的变量,表格为本人制作,但是别人在使用,别人在使用时,有时会忘记更新这个变量,从而导致了不少错误,于是我就想要制作一个VBA的输入框来解决问题。
    要求:
    一、每次开启这个档案,首先就弹出一个输入框,提示使用者要更新C5储存格中的变量,并且在这个输入框中输入最新的更新数字。
    二、输入框初始就是链接C5的,并显示C5中的数字,且数字呈现反白的状态。
    三、如果已经被更新过,不需要更改,按ESC或按Enter或点"取消"或点"确定"或点右上角的"x",则C5中还是输入框中原来的数字,不变。
    四、需要更新,直接输入要更新的数字(不需要先用鼠标点一下,反白或删除原来的。),点"确定"或按Enter,则C5中就显示为更新后的数字。
    五、工作薄中有多个不同的工作表,比如:总明细、分明细、纸箱明细,以上输入框链接的是总明细中的C5储存格,更新完毕,还要自动跳转到总明细C5储存格,即使存档关闭档案时是在其他的工作表,重新开启档案后,提示输入完毕,也会自动跳转到总明细C5储存格上。
    六、C5中的数字,不光即时更新,并且还要参加公式运算。
EXCEL 输入框.jpg
    我原来自编的如下:Workbook     Open
  Private Sub Workbook Open()
    i=InputBox("请更新数字")
    [C5]=i
    Range("C5").Select
  End Sub
    但是,我是VBA菜鸟,效果和我预想的相差甚远,只好求助了。
    请各位牛人不吝赐教。
    汗!在《Excel VBA实战技巧精粹》论坛上求助了5天,无人理睬,惭愧。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-12-9 11:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
汗!天天看,天天望,天天失望。没人睬我哦!

TA的精华主题

TA的得分主题

发表于 2014-12-9 12:02 | 显示全部楼层

Private Sub Workbook_Open()
    i = InputBox("请更新数字")
    Sheets("总明细").Range("C5") = i
    Sheets("总明细").Select
    Range("C5").Select

  End Sub


TA的精华主题

TA的得分主题

 楼主| 发表于 2014-12-10 09:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
有用,非常感谢feng3041.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-22 23:45 , Processed in 0.039446 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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