ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: saihebe

[已解决] excel a1=a2 怎么同时可以在A1输入数据A2显示数据

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-8-18 21:30 | 显示全部楼层
moonlit123 发表于 2019-8-14 08:54
If Target.Column > 1 Then Exit Sub  是限制列数的。
你想要从A列到第几列, 上面的数字1就修改为几。 ...

谢谢大佬!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 09:00 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

人情练达即文章

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 09:08 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 saihebe 于 2019-8-19 15:19 编辑
koala219 发表于 2019-8-14 08:02
sheet1,sheet2中是有代码的
sheet1的代码是sheet1中输入的内容转换到Sheet2中
sheet2的代码是sheet2中 ...

大佬,麻烦看下B5到I5  。。。。。。。。。。。。。

222.rar

71 Bytes, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 09:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 saihebe 于 2019-8-19 15:19 编辑
moonlit123 发表于 2019-8-14 08:58
这个问题和你上面的要求 “多列” 是有冲突的。
你最好给出实际表格要求再讨论这个问题的解法。

2222222222222222222222222222222222222222222222222222222222222222

222.rar

71 Bytes, 下载次数: 1

TA的精华主题

TA的得分主题

发表于 2019-8-19 10:39 | 显示全部楼层
saihebe 发表于 2019-8-19 09:09
有空看下B5-I5吗?  我真的不懂VBA,求分析一下,上面那个大佬的互通。怎么样做到我这里面

麻烦解释下你这个表
所想达到的效果?

是想让New mold表里的哪个单元格(或者哪列或者哪行), 和 1表里的哪里的单元格 同步数据?

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 10:58 | 显示全部楼层
moonlit123 发表于 2019-8-19 10:39
麻烦解释下你这个表
所想达到的效果?

C5  函数是='1'!A3   
一般我都是进B5    B5是超链接   点了进1
然后在'1'!A3 输入数据   就显示在主表格里面的C5

但是这样就只能在'1'!A3 里面输入
所以我希望B5  和'1'!A3    互通。  我两边都可以输入字。

我下面不只有1   还有2-39.所以其他格子也是这样。  
主页就是用来看数据的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 11:00 | 显示全部楼层
moonlit123 发表于 2019-8-19 10:39
麻烦解释下你这个表
所想达到的效果?

D5和E5 就不能互通写入。

所以希望C5 F5 G5 H5 I5和对于的表格上的格子互通输入数据

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-19 13:47 | 显示全部楼层
koala219 发表于 2019-8-14 08:02
sheet1,sheet2中是有代码的
sheet1的代码是sheet1中输入的内容转换到Sheet2中
sheet2的代码是sheet2中 ...

看是看明白了,但是我完全没VBA经验。所以不知道从何下手改

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub(这里改但是不知道怎么改)
If Target.Column > 1 Then Exit Sub(这里改,但是不知道怎么改)
Sheet2.Cells(Target.Row, 1) = Target
End Sub


2222222222222.jpg

TA的精华主题

TA的得分主题

发表于 2019-8-19 16:26 | 显示全部楼层
本帖最后由 moonlit123 于 2019-8-19 16:50 编辑
saihebe 发表于 2019-8-19 13:47
看是看明白了,但是我完全没VBA经验。所以不知道从何下手改

Private Sub Worksheet_Change(ByVal Targ ...

这个解释得差不多了。
我明白你的意思了。
你可以找第一个写这个代码的大神问问看。

如果要我写得话,代码会很难看。
我也是初学者(学了几个月),
最笨的办法就是一个一个单元格对应(因为你所要求的单元格很少)

附件是含vba的。注意你的sheets名称也要修改。(默认不是Sheet1,而是从Sheet2开始的。晕,我没注意调试错误了几分钟才发现)
1111是看.rar (24.83 KB, 下载次数: 4)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-21 11:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
moonlit123 发表于 2019-8-19 16:26
这个解释得差不多了。
我明白你的意思了。
你可以找第一个写这个代码的大神问问看。

哇,好厉害。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-4-19 23:26 , Processed in 0.046337 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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