Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Изменить макрос

Автор olimpus, 18.05.2013, 16:15

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

olimpus

Макрос начал давать ошибку, макрос оставляет в ячейке только число также знак минус,и если пробел то пробел  , остальные знаки удаляет
Сейчас макрос вместо пробела начал ставить ноль

olimpus

Непонятно что находится в пустых ячейках отмеченых красным, что после выполнения макроса там появляются ноли

kuklp

Ничего там не находится. У Вас в макросе:
        If Cell.NumberFormat = "0.00%" Then
            Cell.NumberFormat = "General"
            Cell.Value = Cell.Value * 100
        End If
Если пусто умножить на 100 то и получим 0 на выходе. Раз Вы производите математические действия с пустой ячейкой, Экс вынужден произвести неявное преобразование значения пусто в число.
Еще я бы строку:
If Asc(Simb) = 44 Or Asc(Simb) = 46 Then Simb = Application.DecimalSeparator
написал так:
If Asc(Simb) = 44 Or Asc(Simb) = 46 Then Simb = "."
ВБА до лампочки, какой там у экса выставлен DecimalSeparator. Он признает в качестве такового только точку. Экс может быть локализованным, а ВБА - нет.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771