[已解决]一个事件程序，能实现吗？

suxiong

如果我在A1中输入的值为19.258，输完一回车，值自动变19258.000；

最佳答案

月排行榜 / 总排行榜

adders

2013-7-5 11:27

suxiong 发表于 2013-7-4 22:17
放在事件程序里吗？

放入哪个事件程序！

假设只针对A1单元格,可放在Worksheet_Change事件下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$A$1" Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.         With Target
   
5.         .Value = .Value * 1000
   
6.         .NumberFormat = "#.000"
   
7.         End With
   
8.     Application.EnableEvents = True
   
9. End Sub

复制代码

跳转到最佳答案楼层

无聊的疯子

网络不好,回了两楼,删除此楼内容

无聊的疯子

可以的,数据输入完后 * 指定数就行了

1. 
   
2. application.enableevents=false
   
3. target.value=target.value*10000
   
4. application.enableevents=true
   

复制代码

hwc2ycy

直接用格式嘛。

我心飞翔410

hwc2ycy 发表于 2013-7-5 10:22
直接用格式嘛。

是啊 直接 用格式啊 简单 方便

我心飞翔410

无聊的疯子 发表于 2013-7-5 10:21
可以的,数据输入完后 * 指定数就行了

支持哈

hwc2ycy

看错了，格式要放大是不可靠的。
楼主为啥不输入大数，直接用自定义格式缩小一万呢。

suxiong

hwc2ycy 发表于 2013-7-5 10:22
直接用格式嘛。

*1000了哦，能用条件格式？

suxiong

无聊的疯子 发表于 2013-7-5 10:21
可以的,数据输入完后 * 指定数就行了

放在事件程序里吗？

放入哪个事件程序！

adders

suxiong 发表于 2013-7-4 22:17
放在事件程序里吗？

放入哪个事件程序！

假设只针对A1单元格,可放在Worksheet_Change事件下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$A$1" Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.         With Target
   
5.         .Value = .Value * 1000
   
6.         .NumberFormat = "#.000"
   
7.         End With
   
8.     Application.EnableEvents = True
   
9. End Sub

复制代码