Dzwebs.Net

撰写电脑技术杂文十余年

Excel vba双击单元格代码

Admin | 2012-7-28 10:27:02 | 被阅次数 | 16509

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  为什么要使用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


该杂文来自: Excel杂文

上一篇:Excel合并单元格的两种简单方法

下一篇:教你使用INTRATE函数

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计