如何让Excel输入框内容添加group:前缀写入指定列标题单元格
解决方案
很简单,只需要在赋值给C2单元格的时候,把"group:"和用户输入的内容拼接起来就行啦。你原来的代码里是直接把myValue赋值给单元格,现在修改这一行就可以实现需求。
修改后的完整代码如下:
Private Sub Workbook_Open() Dim myValue As Variant ActiveSheet.Unprotect Password:="myPassword" myValue = InputBox("Please enter your Business Name:") ' 拼接group:前缀后写入C2 Range("C2").Value = "group:" & myValue ActiveSheet.Protect Password:="myPassword" End Sub
可选优化建议(避免空输入)
如果担心用户点击取消或者没输入内容导致C2变成group:(空前缀),可以加个简单的判断:
Private Sub Workbook_Open() Dim myValue As Variant ActiveSheet.Unprotect Password:="myPassword" myValue = InputBox("Please enter your Business Name:") ' 只有当用户输入了内容时才赋值 If myValue <> "" Then Range("C2").Value = "group:" & myValue End If ActiveSheet.Protect Password:="myPassword" End Sub
这样如果用户没输入就点击取消,C2单元格会保持原来的内容,不会被覆盖成空的前缀。
内容的提问来源于stack exchange,提问作者Gav
相关产品推荐
相关产品推荐

