[已解决]一次输入多个数字

left369

一次输入多个数字

最佳答案

月排行榜 / 总排行榜

qh8600

2014-9-30 16:54

left369 发表于 2014-9-30 16:49
效果是的，只是不要自动的可否。用运行代码的。

(, 下载次数: 3)

上传

点击文件名下载附件
运行宏

跳转到最佳答案楼层

qh8600

都是0-9

这儿有肥猫

不明白

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If IsNumeric(Target) And Target >= 0 And Target <= 9 Then
   
4.     Target.Offset(0, 1).Resize(1, 9).Value = Target.Value
   
5. End If
   
6. Application.EnableEvents = True
   
7. End Sub

复制代码

dsmch

………………

left369

dsmch 发表于 2014-9-30 16:36
………………

你好，代码如何运用的。

我希望的操作是，任选一单元格，运行代码，则一次完成100个数字的填入。像示例那样。

qh8600

left369 发表于 2014-9-30 16:40
你好，代码如何运用的。

我希望的操作是，任选一单元格，运行代码，则一次完成100个数字的填入。像示例 ...

代码.rar (7.08 KB, 下载次数: 6)

2014-9-30 16:47 上传

点击文件名下载附件
这样

left369

qh8600 发表于 2014-9-30 16:47
这样

效果是的，只是不要自动的可否。用运行代码的。

qh8600

left369 发表于 2014-9-30 16:40
你好，代码如何运用的。

我希望的操作是，任选一单元格，运行代码，则一次完成100个数字的填入。像示例 ...

qh8600

left369 发表于 2014-9-30 16:49
效果是的，只是不要自动的可否。用运行代码的。

可以