Макрос копирования чисел в виде текста

Автор Bomont, 16.09.2011, 10:35

« назад - далее »

Bomont

Добрый день форумчане!

Подскажите пожалуйста, макрос в цикле использует команду:
Sheets("" & Base & "").Cells(d + 1, 3).Value = Sheets("Обновление").Cells(2, 4).Value
Есть данные в виде например 184/1 и есть например 183. Так вот значение 184/1 эта команда копирует как текст, а 183 как число! Из-за чего их потом невозможно вытащить макросом! Подскажите, пожалуйста, как копировать все значения в виде текста?

Спасибо!

Михаил С.

Попробуйте так
With Sheets("" & Base & "")
     .Cells(d + 1, 3).NumberFormat = "@"
     .Cells(d + 1, 3) = Sheets("Обновление").Cells(2, 4).Value
End With
Отдельное спасибо можно на QiWi-кошелек 909-771-53-87 или ЯД 41001136675053

Bomont

Cпасибо, сработало! Видимо просто назначить формат "текстовый" всему столбцу перед начало копирования было не достаточно экселю )

_Boroda_

или, если Вы все равно
Цитироватьназначить формат "текстовый" всему столбцу перед начало копирования
то можно так:
Sheets("" & Base & "").Cells(d + 1, 3)= Sheets("Обновление").Cells(2, 4) & ""
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995