数字格式设置

lgzxmlg · 发表于 2023-7-24 16:47

单元格内输入数字后自动转换格式。

数字格式设置.zip (7.82 KB, 下载次数: 11)

蓝桥玄霜 · 发表于 2023-7-24 17:00

格式的例子：

cyq4896 · 发表于 2023-7-24 17:14

参与一下...

ykcbf1100 · 发表于 2023-7-24 17:16

附件供参考。。。

lgzxmlg · 发表于 2023-7-24 17:40

蓝桥玄霜发表于 2023-7-24 17:00
格式的例子：

老师：为什么打开输入第一个写数字时运行，以后输入就不运行了。

lgzxmlg · 发表于 2023-7-24 17:45

ykcbf1100 发表于 2023-7-24 17:16
附件供参考。。。

结果在输入的单元格。

lgzxmlg · 发表于 2023-7-24 21:28

lgzxmlg 发表于 2023-7-24 17:45
结果在输入的单元格。

数字格式设置.zip (12.17 KB, 下载次数: 4) 为什么不运行

准提部林 · 发表于 2023-7-24 22:00

前兩個數字后面加"-"??? 一位數呢???

准提部林 · 发表于 2023-7-24 22:09

lgzxmlg 发表于 2023-7-24 21:28
为什么不运行

Application.EnableAnimations = True
Application.EnableEvents = True

准提部林 · 发表于 2023-7-24 22:21

猜///

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Count > 1 Or .Column <> 1 Or .Row < 2 Then Exit Sub
   T$ = .Text
   If Not IsNumeric(T) Or InStr(T, "-") Then Exit Sub
   .Value = Application.Text(Left(T, 2), "[<=9]0-;0-0-") & Mid(T, 3)
End With
End Sub

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

[求助] 数字格式设置

评分