Передать число в определенном формате в ячейку с текстом

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Передать число в определенном формате в ячейку с текстом (Макросы/Sub)

Sancho

Дата: Среда, 22.03.2017, 14:21 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 282

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Всем привет!
Помогите разобраться в следующем. Необходимо что бы двухзначное число из одного файла было передано в ячейку с текстом в другой файл, либо в название файла в виде трех знаков. Встречаются и техзначные числа, например 21 д.б. 021, а 110 так и останется 110
Строку [vba]

Код

Sheets(1).Cells(1, 1) = "Итоги по подразделению" & CStr(sh.Cells(i, 4))

[/vba]
пишу [vba]

Код

Sheets(1).Cells(1, 1) = "Итоги по подразделению" & CStr(sh.Cells(i, 4)).NumberFormat = "000"

[/vba] получаю предупреждение об ошибке компиляции выделяя точку.
Как быть то?
Установить формат ячейки в исходнике не помогает

Сообщение отредактировал Sancho - Среда, 22.03.2017, 14:22

Ответить

_Boroda_

Дата: Среда, 22.03.2017, 14:47 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Логика правильна, но написать немного иначе нужно
[vba]

Код

Sheets(1).Cells(1, 1) = "Итоги по подразделению" & format(CStr(sh.Cells(i, 4)), "000")

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Sancho

Дата: Среда, 22.03.2017, 14:59 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 282

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

_Boroda_, Спасибо большое!

Ответить

Передать число в определенном формате в ячейку с текстом (Макросы/Sub)

Страница 1 из 1
1