[已解决]隔山打牛问题（貌似简单又让我蒙圈的问题，请老师帮助）

kandhong

france723老师：
您提供的VBA可实现保存工作表1中相应区域的数据，但我想要保存工作2中的数据（因为VBA在工作表2中）
Sub zkg()
Call 数据保存
End Sub

kandhong

france723 发表于 2017-4-7 21:06
就像大灰狼老师说的那样，VBA内容

Sub zkg()

france723 老师：
      您提供的VBA：
     Sub zkg()
     Call 数据保存
     End Sub
     可实现保存工作表1中相应区域的数据，但我想要的是保存工作表2中相应区域的数据（因为VBA在工作表2中）

kandhong

france723老师：
    我想要实现的效果是：
   当点击工作表1中“总开关”按键时，自动激活工作表02中有“保存数据”按钮，并且保存工作表2中相应区域的数据（e3:e30）。

france723

kandhong 发表于 2017-4-8 09:07
france723老师：
    我想要实现的效果是：
   当点击工作表1中“总开关”按键时，自动激活工作表02中有 ...

总开关的代码

• Sub zkg()
• Call 数据保存
• Sheets("01").Select
• End Sub
  

Sub 数据保存()

• Sheets("02").Select
  

  后面代码不变
End Sub

kandhong

france723 老师：
   您的VBA可实现效果，但有一个不足：当按“总开关”时，画面会转到“sheet2"，保存后再转到“sheet1"。
   我想请教的是：如何在保持“sheet1"页面不动的情况下，实现“sheet2"数据保存呢？

france723

kandhong 发表于 2017-4-23 20:28
france723 老师：
   您的VBA可实现效果，但有一个不足：当按“总开关”时，画面会转到“sheet2"，保存后 ...

那就需要改动你的数据保存函数, arr = Sheets("表2的名字").Range("e3:e30")

kandhong

france723 老师：
    感谢您的VBA，问题解决了！
    多天来您一直帮我解决问题，辛苦了！！