2

我正在尝试获取用户表单上文本框的值并将其分配给字符串变量，然后使用 String 类的 Insert 方法将连字符插入该字符串变量。每次运行此代码时，我都会收到错误“无效的限定符”，并突出显示 AcctUnitString。

Dim AcctUnitString As String

AcctUnitString = AcctUnit.Text
AcctUnitString = AcctUnitString.Insert(2, "-")

Debug.Print (AcctUnitString)

AcctUnit 是用户表单上的文本字段的名称。有什么想法可能导致此错误，或者是做我想做的更好的方法吗？

用户将在文本框中输入一个 13 位代码（例如 9200030015001），我想将其格式化为：92-0003-001-5001。任何帮助是极大的赞赏。谢谢！

4

2 回答 2

4

From here

Strings are not objects in VBA, hence they have no methods such as Substring or Remove, as in VB.Net.

于 2012-08-16T20:33:30.900 回答
1

我不知道有一个内置的 Excel 函数可以满足您的需求。 

Sub test()

    Dim AcctUnitString As String

    AcctUnitString = "9200030015001"
    AcctUnitString = InsertString(AcctUnitString, "-", 2)
    MsgBox AcctUnitString
End Sub

Private Function InsertString(OriginalString As String, StringToInsert As String, WhereToInsertIt As Integer) As String
    Dim String1 As String, String2 As String
    String1 = Mid(OriginalString, 1, WhereToInsertIt)
    String2 = Mid(OriginalString, WhereToInsertIt + 1, Len(OriginalString))
    InsertString = String1 & StringToInsert & String2
End Function

http://www.vbforums.com/showthread.php?141943-Insert-string-within-another-string-at-specific-position

于 2012-08-16T20:30:50.143 回答