4个回答
2013-07-18
展开全部
其实工作表中的selectchange和change事件是要付出代价的。我觉得对好不要用VBA编写,还不如用自定义格式 1000我想你那个应该是个编号吧,A1为1001,A2为1002……如果是这样一定要用代码的话,那么就把飞雨飘的代码改一下为:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Value = 1000 + Target.RowEnd Sub</p>
2013-07-18
展开全部
Private Sub Worksheet_Change(ByVal Target As Range) End Sub 代码为Private Sub Worksheet_Change(ByVal Target As Range) if target.address="$A$1" and target.value=1 then target.value="1001"End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-18
展开全部
飞雨飘 兄的方法为你所需。具体操作步骤:
右键点该工作表的名字(在工作簿左下角呢),查看代码,粘贴上述代码。
右键点该工作表的名字(在工作簿左下角呢),查看代码,粘贴上述代码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-18
展开全部
回车激发事件好像不可以用在单元格吧!所以你就只能用楼上的那个代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询