跪求老师看一下！跪求！！！！！！

有情8

老师们好！       我用VBA代码使F列扫描条码时，A列自动显示扫描条码的日期和时间，但当我光标移回F3时，A3的时间又更新为当前时间，如何让它不再更新，一直保持在我第一次扫描条码时的时间。还有一个问题是，如何让光标在F3到J3，然后直接跳至F4，然后enter,enter,enter到J4，然后跳至F5......        
       麻烦老师们帮我看一下！万分感谢！

有情8

图片图片图片

topcookie

加个判断首列单元格是否为空，不为空就不作更改，为空就写入当前日期

if target.count=1 then
   if target.count.column=6 then
      if cells(target.row,1).value="" then
      cells(target.row,1)=now
      end if
   end if
end if

topcookie

在F和J这间跳的这个得需要VBA的键盘事件，思路这样的，比如当检测到你按下回车键时判断当前单元格所在的列是否为F列，是的话就激活向右偏移4列的单元格，也是就J列，如果当前单元格是在J列，那么就定位到一下行的F列，下面语句放入VBA的键盘事件中，定义一个键比如回车键触发这个事件就可以了
if activecell.column="F" then
   activecell.offset(0,4).select
        if activecell.column="J" then
          cells(65536,"F").end(xlup).offset(1,0).select
         end if
end if

有情8

主这是是怎么回事？我已启用所有宏！

topcookie

回答的是你两个问题，你把两个答案放在一起怎么解决问题

topcookie

把你原来的代码换成下面的代码来解决第一个问题
if activecell.column="F" then
    activecell.offset(0,4).select
         if activecell.column="J" then
           cells(rows.count,"F").end(xlup).offset(1,0).select
         end if
end if

有情8

topcookie 发表于 2017-3-26 19:23
把你原来的代码换成下面的代码来解决第一个问题
if activecell.column="F" then
    activecell.offset(0 ...

老师，再次打扰！怎么还是这样？
我运行sub b（）后，回到表格中，光标打到I列，然后enter，到了J列，然后按shift+S,就报这个。

topcookie

不好意思回复错了，你的第一个问题是一直保持在第一次扫描条码时的时间，这个你把
if target.count=1 then
   if target.count.column=6 then
      if cells(target.row,1).value="" then
      cells(target.row,1)=now
      end if
   end if
end if
替换你原来的代码就可以了

topcookie

后面跳到J列F列的问题需要把
if activecell.column="F" then
    activecell.offset(0,4).select
         if activecell.column="J" then
           cells(rows.count,"F").end(xlup).offset(1,0).select
         end if
end if
放在一个新建模块中，然后在sheet里面建一个onkey事件来调用这个程序
事件里面应该是这样的，onkey第二个参数是模块中的程序名，事件的话可以选selectchange试下