[已解决]快速输入方法

shazilo · 发表于 2012-5-30 18:02

目的：在A1单元格输入：左200右200，求快速输入方法，在A1 输入200，就会出现：左200右200

最佳答案

月排行榜 / 总排行榜

zjdh

2012-5-30 18:43

输入.rar (5.61 KB, 下载次数: 28)

zjdh · 发表于 2012-5-30 18:43

输入.rar (5.61 KB, 下载次数: 28)

pang1688 · 发表于 2012-5-30 20:03

zjdh 发表于 2012-5-30 18:43

你只是帮他做出结果，没有说明怎样做？对他学习没有多大帮助！我也想知怎样做！求告知，想学！！！

幻Θ影 · 发表于 2012-5-31 12:34

我也想知道怎么做。。

幻Θ影 · 发表于 2012-5-31 12:38

好象是用宏编写的。。。

zjdh · 发表于 2012-6-1 08:11

用VBA写了一段简单的语句：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target <> "" Then Target = "左" & Target & "右" & Target
Application.EnableEvents = True
End Sub

zjdh · 发表于 2012-6-1 08:13

若要固定对A1请作用则添加一句语句
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then Target = "左" & Target & "右" & Target
Application.EnableEvents = True
End Sub

		自动登录	找回密码
密码			注册

[已解决]快速输入方法

相关帖子