Избавьтесь от последних четырех символов в объединенном текстовом поле VBA - PullRequest
Новая
       20

Избавьтесь от последних четырех символов в объединенном текстовом поле VBA

0 голосов
/ 19 марта 2020

У меня есть код, который я использую для объединения выделенных ячеек с разделительным «ИЛИ» между ними. Он помещает данные в текстовое поле. Моя проблема заключается в том, что он добавляет окончательное «ИЛИ» в конец текстовой строки. Я хотел бы, чтобы текст автоматически избавлялся от последнего «ИЛИ» или вообще не вставлял его. 

 Dim rCell As Range, strJoin As String
 Dim box As TextBox
 Set box = ActiveSheet.TextBoxes.Add(ActiveCell.Offset(1, 1).Left, _
 ActiveCell.Offset(1, 1).Top, ActiveCell.Offset(1, 3).Left, _
 ActiveCell.Offset(6, 1).Top)

 With box
 .Text = vbNullString

 For Each rCell In Selection
 strJoin = rCell
 box.Text = box.Text & strJoin & " OR "
 Next rCell

 End With

End Sub

У меня есть ряд таких, которые я использую для создания SQL запросов, и не нужно вручную удалять последнее слово.

Заранее благодарю за любую помощь, которую вы можете оказать.

1 Ответ

0 голосов
/ 19 марта 2020

Мне нравится этот шаблон: 

Dim sep as string

For Each rCell In Selection
    box.Text = box.Text & sep & rCell.Value
    sep = " OR "
Next rCell
...