Question

Excel里在sheet1里使用VBA操作sheet2使用问题！

Excel里在sheet1里使用VBA操作sheet2使用问题！
我使用了一个按钮，弹出textbox1 输入资料，点击确认添加到sheet2里，编程里写：
Worksheets("sheet2").Cells([B100000].End(xlUp).Row + 1, 2).Value = textbox.value
当我在sheet2当前活动sheet操作时正常，每当我在sheet1为活动sheet时，sheet2里每次都只会把资料填写在B2单元格里，重复操作也只是在B2单元格里添加，请高人指导！

Answer 1

代码中的[B100000]没有限定是哪个sheet，所以默认会是当前的sheet，如果sheet1为活动sheet，自然代码中的[B100000]就等价于sheets(1).[B100000]了，所以会运行得不到想要的结果。

追问

Worksheets("sheet2").Cells……小数点前面不是设置了worksheets("Sheet2")，不是指sheet2的cell B列吗？

追答

我的回答里面已经说得很清楚了啊，不是你的Worksheets("sheet2").Cells…的问题，而是你的 ....Cells([B100000].End(x....中的[B100000]没有限定，所以会默认以活动sheet来取[B100000]！，将[B100000]改为sheet(2).[B100000]应该就没问题了

Answer 2

因为[B10000]是sheet1里的单元格，将，[B10000]改为sheet2.[B10000],试试

追问

Worksheets("sheet2").Cells([B100000].End(xlUp).Row + 1, 2).Value 整个就是指的在sheet2.cell(X,2)吗？我试着把Worksheets("sheet2")改成sheet2直接弹错。
本身 我的目的也是去改变单元格的Value值哦

追答

我测试没有出错，出错信息是什么？
　　没叫你改前面的，是Worksheets("sheet2").Cells([B100000].End(xlUp).Row + 1, 2).Value改为Worksheets("sheet2").Cells(sheet2.[B100000].End(xlUp).Row + 1, 2).Value

Answer 3

没这么烦，你其实想写到sheet2的末行去
Worksheets("sheet2").Cells(Worksheets("sheet2").range("B" & rows.count).End(xlUp).Row + 1,2).value=textbox.text