Excel VBA Concat номер с нулем в начале и текст в новой ячейке

Question

Я скопировал ячейку, используя vba, отформатированный как Custom "00000"

например. 07455

когда я пытаюсь скопировать это значение в активную ячейку и сопоставить с текстом, я теряю начальный ноль. вот код, который я использую -

ActiveCell.EntireRow.Cells(1, "B").Value = "WO-" & ws.Range("B12").Value

Я пытался отформатировать пункт назначения (активную ячейку) как пользовательский "00000", но я все еще терял ноль.

Я получаю WO-7455 вместо WO-07455

Может кто-нибудь помочь, пожалуйста?

спасибо Craig

Answer 1

Попробуйте:

ActiveCell.EntireRow.Cells(1, "B").Value = "WO-" & ws.Range("B12").Text

или (не проверено)

ActiveCell.EntireRow.Cells(1, "B").Value = "WO-" & Format(ws.Range("B12").Value,"00000")

РЕДАКТИРОВАТЬ: Обратите внимание, что первый параметр будет отображать независимо от того, что отображает исходную ячейку (B12). Таким образом, если столбец настолько узок, что отображение ## или скрыто, ячейка результата может отображать не то, что вы ожидаете. Второй вариант должен работать всегда, независимо от ширины столбца исходной ячейки.