六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel vba双击单元格代码

Admin | 2012-7-28 10:27:02 | ReadNums | 9387 | 标签 六合开奖结果现场直播 | 打印本页
     

  为什么要使用vba双击单元格,那是因为Excel中的数据,通过复制粘贴过来以后,不会马上变成所设置的单元格的数据类型,而是要通过双击才能变成Excel所需要的数据。

  就比如说,身份证中提取过来的出生年月等数据,有时候会多出0,比如,9月,自然是以09来表示了,但是,我们需要的是9而不是09,这个时候,通过双击该单元格之后,数据就自然会变成9而不是09了,因此,在这种情况下,特别需要双击这个动作。

  但是,万一需要双击的单元格的数量相当的多,我们通过双击来完成,那么,会花费很多的时间和精力的。

  然而,要想通过其它方式来实现,是很困难的,就连通过VBA都难于实现,因此,我们得找到突破点才能实现双击动作。

  方法是有的,那就是,根据F2和Enter键来完成。大家都知道,F2功能是进入到单元格的编辑状态,而回车键Enter是让光标移动到下一个单元格,所以,先让单元格进入到F2编辑状态,再通过Enter键的操作,就能完成双击单元格的目的。

  通过VBA来完成这两种动作,可使用如下的代码:

  ThisWorkbook.Worksheets(1).Cells(行, 列).Select
  Application.SendKeys "{F2}"

  如上代码是给某单元格进入编辑状态的代码,下面再配合回车键即可。如下代码

  ThisWorkbook.Worksheets(1).Cells(行, 列).Select
  Application.SendKeys "{F2}"
  Application.SendKeys "{Enter}"

  通过这些基本的也是重要的代码,可解决单元格双击问题,如果单元格相当的多,可借助循环来实现,如下代码便是:

  For j = 1 To Sheet2.UsedRange.Rows.Count
  ThisWorkbook.Worksheets(1).Cells(j, 3).Select
  Application.SendKeys "{F2}"
  Application.SendKeys "{Enter}"
     Next j


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日