此表复制粘贴对话框代码如何写

xing_chen · 发表于 2023-3-1 13:35

本帖最后由 xing_chen 于 2023-3-1 14:44 编辑

老师！有簿，需复制指定表格放置到指定位置，但此指定我希望通过对话框形式来达到目的。谢谢老师赐教！谢谢!

ykcbf1100 · 发表于 2023-3-1 14:17

完全可以一步到位。

xing_chen · 发表于 2023-3-1 14:28

ykcbf1100 发表于 2023-3-1 14:17
完全可以一步到位。

谢谢老师！代码我运行了，没有反应，不知什么原因！另我原想是用对话框形式，即ngAnswer和MsgBox，网上也查了，但一下还没有查到相似案例。老师，你看你可以帮忙吗?

tanglf188 · 发表于 2023-3-1 15:23

xing_chen · 发表于 2023-3-1 15:39

tanglf188 发表于 2023-3-1 15:23

谢谢老师！运行如愿！

xing_chen · 发表于 2023-3-1 16:56

tanglf188 发表于 2023-3-1 15:23

老师你好！再有1个请教：我若想复制表格中的1个区域，代码怎么修改、
比如我想将3月表格中e2:h17的区域复制到1，则代码怎么修改
我是将2个with用：
arr = Sheets(sd).Range("e2:h17)")
Sheets(dd).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
替换，看来不行。怎么修改，请老师赐教。谢谢

xing_chen · 发表于 2023-3-1 19:51

xing_chen 发表于 2023-3-1 16:56
老师你好！再有1个请教：我若想复制表格中的1个区域，代码怎么修改、
比如我想将3月表格中e2:h17的区域 ...

文字表述，可能不清。现上传文件

xing_chen · 发表于 2023-3-1 20:51

xing_chen 发表于 2023-3-1 19:51
文字表述，可能不清。现上传文件

有老师帮忙看看我修改的代码，哪里不对？

xing_chen · 发表于 2023-3-1 21:40

xing_chen 发表于 2023-3-1 20:51
有老师帮忙看看我修改的代码，哪里不对？

有老师帮我修改一下代码吗

		自动登录	找回密码
密码			免费注册

[求助] 此表复制粘贴对话框代码如何写

评分

评分