excel中能够通过单击实现数据循环输入吗？

来源：百度知道 编辑：UC知道 时间：2024/05/18 10:21:22
我知道excel可以用数据有效性来输入数据，有时输得太多也很麻烦。那么请问能不能更简单些，能不能通过单击单元格就能循环输入数据呢？ 例如：我经常需要北京、上海、深圳这三个地名，能否当我第一次单击单元格时它自动填充北京，再单击是它自动换成上海，第三次单击是换成深圳，以此类推。 不知能否实现？请教高手？

首先，肯定不能用单击来做这件事件，因为单击在Excel中是改变对单元格的选择，你不至于想你一点鼠标选择一个单元格时，那个单元格总是自动填写“北京”吧。
倒是可以用双击来完成你的要求，因为毕竟双击在Excel是不多用的。具体操作为：

1、在Excel工作表里按Alt+F11,打开VBA编程界面
2、在VBA编程界面里的左边栏中，你那个工作表的表名上双击，打开右边的程序书写区域
3、把下面的程序代码粘贴进去

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Cells.Count > 1 Then Exit Sub
If .Value = "" Then .Value = "北京": GoTo moveDown
If .Value = "北京" Then .Value = "上海": GoTo moveDown
If .Value = "上海" Then .Value = "深圳": GoTo moveDown
If .Value = "深圳" Then .Value = ""
End With
moveDown:
Target.Offset(1, 0).Select
End Sub

4、关闭VBA编程界面回到工作表

现在你在工作表里任何一个单元中双击试试年看，应该看到你想要的结果了。

（特别提醒：要在Exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）

建一个命令按钮，双击，添加以下代码

Private Su