单元格前回车的动态字符输入 return
Dynamic character entry into cell pre carriage return
我希望使用 Worksheet_change 事件在单元格中键入第三个数字后动态插入连字符。插入连字符的触发器是键入第三个数字而没有后面的回车 return。然后我将再输入三个数字,其中第三个数字将触发插入第二个连字符以结束以下内容。 . . 123-456-789
我不希望连字符插入的触发器成为最后一个回车 return - 我可以编写代码,谢谢。
非常感谢期待。
Dim strWord As String
Dim lngNumberOfCharacters As Long
StrWord = ActiveCell.Value
lngNumberOfCharacters = Len(strWord)
If lngNumberOfCharacters = 3 Then
strWord = (strWord & "-")
ActiveCell.Value = strWord
据我所知,没有按键时会触发的触发器。 Worksheet_change
在编辑 range
并确认编辑时触发。
此外,您可以通过特殊的数字格式(格式化单元格 -> 自定义)更轻松地完成您想要实现的目标。
我不确定 Excel 是否可行,我不确定我们是否可以访问您在回车前输入的字符 return。从某种意义上说,直到您按下回车return,该值才会被保存。此外,您实际上并不需要 Worksheet_change 事件,您可以在单元格格式>自定义>“###-###-###”中进行设置。单元格将自动更改其格式。
我希望使用 Worksheet_change 事件在单元格中键入第三个数字后动态插入连字符。插入连字符的触发器是键入第三个数字而没有后面的回车 return。然后我将再输入三个数字,其中第三个数字将触发插入第二个连字符以结束以下内容。 . . 123-456-789 我不希望连字符插入的触发器成为最后一个回车 return - 我可以编写代码,谢谢。 非常感谢期待。
Dim strWord As String
Dim lngNumberOfCharacters As Long
StrWord = ActiveCell.Value
lngNumberOfCharacters = Len(strWord)
If lngNumberOfCharacters = 3 Then
strWord = (strWord & "-")
ActiveCell.Value = strWord
据我所知,没有按键时会触发的触发器。 Worksheet_change
在编辑 range
并确认编辑时触发。
此外,您可以通过特殊的数字格式(格式化单元格 -> 自定义)更轻松地完成您想要实现的目标。
我不确定 Excel 是否可行,我不确定我们是否可以访问您在回车前输入的字符 return。从某种意义上说,直到您按下回车return,该值才会被保存。此外,您实际上并不需要 Worksheet_change 事件,您可以在单元格格式>自定义>“###-###-###”中进行设置。单元格将自动更改其格式。