现在,我有一个文本框,在添加的文本周围添加文本指示符。例如,当有人写“他是爸爸”时,使用以下代码会显示为“注意(出售):他是爸爸 (8/27/2024)(5:44:00pm)(3608)”:
If Not Mark1.NEWCALLHISTORYTEXTBOX.Value = "" And Not InStr(Mark1.NEWCALLHISTORYTEXTBOX.Value, "NOTE ") > 0 Then Mark1.NEWCALLHISTORYTEXTBOX.Value = "NOTE (" & Mark1.NEWDISPODROPDOWN.Value & "): " & Mark1.NEWCALLHISTORYTEXTBOX.Value & " (" & Date & ")" & "(" & Time & ")" & "(" & Mark1.REPNUMBERTEXTBOX.Value & ")."
我的问题是,当用户表单上的其他内容发生更改时,我希望能够更改文本框的某些部分,而不更改其周围的整个注释。
例如,当“Mark1.NEWDISPODROPDOWN.Value”中的值发生变化时,我希望它只更新字符串中的该部分而不更改其他任何内容。
我不知道只指定该区域,并且很难弄清楚。
如果我是对的,
SALE
来自样本中的Mark1.NEWDISPODROPDOWN.Value。提供代码将“SALE”更新为“NewText”。
Sub demo()
Dim sTxt, sNewTxt, arrText1, arrText2
sTxt = "NOTE (SALE): He is a dad (8/27/2024)(5:44:00pm)(3608)"
arrText1 = Split(sTxt, ")")
arrText2 = Split(arrText1(0), "(")
arrText2(1) = "NewText" ' Mark1.NEWDISPODROPDOWN.Value
arrText1(0) = Join(arrText2, "(")
sNewTxt = Join(arrText1, ")")
Debug.Print sNewTxt
End Sub