[已解决]如何设置单元格格式效果如下

江河行地

在excel中一张空白表，输入一个1，它自己就显示10000，输入1.001显示10010，不用公式及选择性粘贴，直接输入就显示。

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-8 16:39

江河行地 发表于 2013-9-8 16:13
vba文盲，不知道怎么用!

ni kankan zhege
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
  Target = Target * 10000
Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

我心飞翔410

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  Target = Target * 10000
Application.EnableEvents = True
End Sub
只能工作簿事件了

江河行地

我心飞翔410 发表于 2013-9-8 16:02
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  Target = Ta ...

vba文盲，不知道怎么用!

我心飞翔410

alt+f11 打开vbe编辑窗口 在左边中间点找到thisworkbook 双击 然后把这段代码放到代码窗口中

xhrys

自定义数据格式不会，坐等高手解答

江河行地

我心飞翔410 发表于 2013-9-8 16:18
alt+f11 打开vbe编辑窗口 在左边中间点找到thisworkbook 双击 然后把这段代码放到代码窗口中

找不到，保存后，单元格不变

我心飞翔410

江河行地 发表于 2013-9-8 16:13
vba文盲，不知道怎么用!

ni kankan zhege
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
  Target = Target * 10000
Application.EnableEvents = True
End Sub