将单词“and”添加到消息框中的列表中答案

【问题标题】：Adding the word 'and' to a list in a message box将单词“and”添加到消息框中的列表中
【发布时间】：2020-05-07 23:51:46
【问题描述】：

在用户从列表框中选择项目以使消息框在语法上正确后，我需要有关将单词“和”添加到消息框的代码的帮助。也可能删除最后一个逗号。

Private Sub cmdSelect_Click()
Dim IntIndex As Integer, strSelectedHHItems As String
For IntIndex = 0 To lstHouseHoldItems.ListCount
    If lstHouseHoldItems.Selected(IntIndex) Then
        strSelectedHHItems = strSelectedHHItems & "," & " " & lstHouseHoldItems.Column(0, IntIndex)
    End If
Next
strSelectedHHItems = Right(strSelectedHHItems, Len(strSelectedHHItems) - 1)'remove beginning space
MsgBox "You have selected" & (strSelectedHHItems)
End Sub

我是一名业余爱好者，我知道这需要使用一些内在函数，例如 Mid 或 Len，但我想不出该怎么做。非常感谢您的帮助。

【问题讨论】：

搜索“ms access 查找最后一个逗号并替换为and”;)
谢谢哥们。
这能回答你的问题吗？ Replace only last occurrence of match in a string in VBA

标签： vba ms-access msgbox

【解决方案1】：

一旦您知道最后一个逗号的位置，只需将您的新字符串串在一起即可：

loc = InStrRev(strSelectedHHItems, ",")
strSelectedHHItems = Mid(strSelectedHHItems, 1, loc - 1) & " and " & Mid(strSelectedHHItems, loc + 2)

【讨论】：