Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите пож., кто знает как написать макрос к exely / 5 сообщений из 5, страница 1 из 1
30.03.2006, 14:36:03
    #33635222
space_ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пож., кто знает как написать макрос к exely
Помогите пож., кто знает, как написать макрос к exel, для добавление и удаление одинаковых символов в ячейках для больших файлоф данных
пример:
есть...
1254
4568
7895
1235
4568

надо...
01254
04568
07895
01235
04568
заранее спасибо...
...
Рейтинг: 0 / 0
30.03.2006, 14:40:19
    #33635247
AlexIT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пож., кто знает как написать макрос к exely
А зачем макрос в случае добавления?
есть функция СЦЕПИТЬ().
В твоем случае пишешь
СЦЕПИТЬ("0",<адрес ячейки к кторой нужно дописать>)
и все
...
Рейтинг: 0 / 0
30.03.2006, 14:41:59
    #33635257
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пож., кто знает как написать макрос к exely
А зачем макрос?
Используй функцию "сцепить"
...
Рейтинг: 0 / 0
30.03.2006, 15:04:52
    #33635351
Владимир_SQL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пож., кто знает как написать макрос к exely
выполняет замену только в первом столбце, можеш столбыц цыфрами в цикле перебрать....

Sub Макрос3()

Dim NumRow As Integer
Dim ColRow As Integer
NumRow = 1 'номер текущей строки
ColRow = 1 'номер текущей колонки

While Cells(NumRow, ColRow) <> ""
Cells(NumRow, ColRow) = Str(Cells(NumRow, ColRow)) + "1sad" 'добавили в конец
Cells(NumRow, ColRow) = Replace(Cells(NumRow, ColRow), "1", "") ' удалили все 1 из числа
NumRow = NumRow + 1

Wend

End Sub
...
Рейтинг: 0 / 0
01.04.2006, 23:12:30
    #33639354
Ckexfqyst cbvdjks
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пож., кто знает как написать макрос к exely
м. Формат-Ячейки-Число-Все форматы-набрать в поле "Тип" 0###0-ОК-Применить к столбцу. (данный формат подходит для чисел до 4 символов XXXX, регулировать колич. символов числе #)
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите пож., кто знает как написать макрос к exely / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]