Перерыв строки в запятой, а не дефис

Question

Я использую Access VBA для заполнения электронной таблицы Excel информацией из базы данных.

У меня есть столбец «Зависимые проекты», которые заполняются номерами проектов. Это столбец фиксированной ширины с включенным текстом.

Прямо сейчас, выход в формате

01-04,01-05,01- 
06,01-07 

Я хотел бы выход быть в этом формате

01-04,01-05, 
01-06,01-07 

Моя идея для моего кода VBA, чтобы проверить, чтобы увидеть если содержимое столбца будет перенесено на вторую строку, и если это так, сломайте строку на последнем «,», который она может найти.

Я подхожу к этому неправильно? Если да, то каковы мои другие варианты?

У меня есть не что иное, как простая команда WrapText = True, потому что я не уверен, где мне нужно начинать с этого. Я не так опытен в VBA, как скоро хочу.

Спасибо за любую помощь, которую вы можете дать.

Текущий код:

'format Dependent Project(s) column as text, and wrap column 
Columns("D").Select 
Selection.NumberFormat = "@" 
Selection.WrapText = True 

EDIT:

Я закончил с использованием решения Брэда ниже; его решение помечено как лучший ответ.

Мне, однако, пришлось немного изменить код, чтобы он работал в моей конкретной ситуации. Уменьшение переменной в качестве диапазона дало мне ошибку, так что это код, который я использовал.

Dim ProjList As String 
ProjList = QF_CustomFormatFunct(ProjectKey) 'A function that given raw data 
              'to builds a string in format 
              '"01-01, 01-02, etc" 
ProjList = Replace(ProjList, "-", ChrW(8209)) 

После ProjList имеет новый неразрывный дефис, он заполняется в колонке D, которая отформатирована, чтобы обернуть текст вверх выше.

Answer 1

Проблема со строкой, которую вы написали, состоит в том, что как запятые, так и дефисы являются предпочтительными местами для разрыва строки. Если вы идете с форматом 01‑04, 01‑05, 01‑06, 01‑07, то HansUp предлагает использовать non-breaking hyphen, ‑, он должен отображаться так, как вы хотите.

Вы можете использовать это в VBA с chrw(8209) как

Dim c as Range 
Set c = Selection 
c.Value = replace(c.Value , "-",ChrW(8209))