自动更改用户input的数据

当用户在某个列中input一个值时,该值将自动被拾取并作为后缀添加。

例如,用户input“3”,将其转换为“Incident”&Cell.Value。

我遇到OnChange Sub例程的问题,我想我错误的path自动得到这个转换时,用户更改单元格select。

任何人可能会给我的提示吗?

把这段代码放在工作表的Change事件中:

 Private Sub Worksheet_Change(ByVal Target As Range) If (IsNumeric(Target.Value)) Then Application.EnableEvents = False Target.Value = "Incident " & Target.Value Application.EnableEvents = True End If End Sub 

IsNumeric确保当一个单元格被聚焦时,不会发生“Incident Incident 9”事件。 Application.EnableEvents = False将阻止recursion调用Change事件。

是否真的需要在单元格中说'事件',或者如果只是以这种方式显示就可以吗?

如果您只需要在屏幕上显示该方式,则可以将“事件”添加到单元格的格式中。 打开格式单元格对话框。 在“数字”类别中,select“自定义”,然后在“types”字段中添加原始格式types前面的"Incident "

如果Type是"Incident "General那么当用户键入12345时,它将显示为Incident 12345 。 如果types是"Incident "#,##0则12345将显示为Incident 12,345