数字格式设置

lgzxmlg

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

Private Sub Worksheet_Change(ByVal Target As Range)

谢谢，正是我要的结果

ykcbf1100

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

Private Sub Worksheet_Change(ByVal Target As Range)

这个代码试了一下只能是3位数，多于3位就不行了。

ykcbf1100

改为A弄显示。

准提部林

ykcbf1100 发表于 2023-7-25 07:49
这个代码试了一下只能是3位数，多于3位就不行了。

看樓主模擬//
四位數 3-5-80
兩位數 3-5-

所以 五位數 應是 3-5-100

ykcbf1100

准提部林 发表于 2023-7-25 09:32
看樓主模擬//
四位數 3-5-80
兩位數 3-5-

这样啊，那是我看漏了。
不好意思啊。

lgzxmlg

ykcbf1100 发表于 2023-7-25 09:33
这样啊，那是我看漏了。
不好意思啊。

如果出现5位以上数，能有个选择就好了。如:12345。提示1-2-345和1-23-45。就完美了。第一个数保持个位。

准提部林

lgzxmlg 发表于 2023-7-25 12:53
如果出现5位以上数，能有个选择就好了。如:12345。提示1-2-345和1-23-45。就完美了。第一个数保持个位。

那6位數或更多??/

准提部林

固定式
If Val(T) > 9999 Then
   .Value = Application.Text(Left(T, 3), "0-00-") & Mid(T, 4)
Else
   .Value = Application.Text(Left(T, 2), "[<=9]0-;0-0-") & Mid(T, 3)
End If

lgzxmlg

准提部林 发表于 2023-7-25 13:36
固定式
If Val(T) > 9999 Then
   .Value = Application.Text(Left(T, 3), "0-00-") & Mid(T, 4)

谢谢老师的帮助。我觉的有点难度。