|
|
|
помогите пож., кто знает как написать макрос к exely
|
|||
|---|---|---|---|
|
#18+
Помогите пож., кто знает, как написать макрос к exel, для добавление и удаление одинаковых символов в ячейках для больших файлоф данных пример: есть... 1254 4568 7895 1235 4568 надо... 01254 04568 07895 01235 04568 заранее спасибо... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 14:36:03 |
|
||
|
помогите пож., кто знает как написать макрос к exely
|
|||
|---|---|---|---|
|
#18+
А зачем макрос в случае добавления? есть функция СЦЕПИТЬ(). В твоем случае пишешь СЦЕПИТЬ("0",<адрес ячейки к кторой нужно дописать>) и все ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 14:40:19 |
|
||
|
помогите пож., кто знает как написать макрос к exely
|
|||
|---|---|---|---|
|
#18+
А зачем макрос? Используй функцию "сцепить" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 14:41:59 |
|
||
|
помогите пож., кто знает как написать макрос к exely
|
|||
|---|---|---|---|
|
#18+
выполняет замену только в первом столбце, можеш столбыц цыфрами в цикле перебрать.... 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 15:04:52 |
|
||
|
|
start [/forum/topic.php?fid=61&gotonew=1&tid=2185047]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
49ms |
get topic data: |
7ms |
get first new msg: |
4ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 337ms |
| 0 / 0 |
