求教一个Excel的问题，谢谢。

xnc_0014 · 发表于 2013-7-16 14:31

大家好：
我想实现这么一个功能，就是在一个有3个sheet的Excel工作簿中，sheet1的“A1”单元格为空，“A2”单元格可由用户输入“2”或“3”。sheet2和sheet3的“A1”单元格均有内容。
现在我希望这样。当运行程序时，首先读取sheet1.Range("A2")中的内容，如果是2，则读取sheet2.Range("A1")的内容放入sheet1.Range("A1")中，如果sheet1.Range("A2")中是3，则读取sheet3.Range("A1")的内容放入sheet1.Range("A1")中。
这个程序应该如何写啊？谢谢。

amesman · 发表于 2013-7-20 17:09

帽子发错地方了吧？应该去excel vba版块。试试以下代码：
sub test()
with sheet1
   if .[A2]=2 then
         .[A1]=sheet2.[A1]
   else
         .[A1]=sheet3.[A1]
end with
end sub

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

[求助] 求教一个Excel的问题，谢谢。