И еще. Попробовал код скопировать в редактор VBA в эксель, и в итоге не вкурил как преобразовать правильно код, чтобы он работал как макрос, чтобы грубо говоря видеть результат работы перед глазами. Ну то есть я убрал кавычки с комментариев, но понятно, что надо и какие то строки убрать, допустим те строки кода которые отвечают за вызов диалога?
А как нить возможно поменять код чтобы он создавал часть строки, а остальные данные оставались без изменения? Я так понимаю вот эта часть
И еще. Попробовал код скопировать в редактор VBA в эксель, и в итоге не вкурил как преобразовать правильно код, чтобы он работал как макрос, чтобы грубо говоря видеть результат работы перед глазами. Ну то есть я убрал кавычки с комментариев, но понятно, что надо и какие то строки убрать, допустим те строки кода которые отвечают за вызов диалога?
Изменил на любую длину строки. В архиве и макрос, и скрипт. Но результат перед глазами не увидите - код работает напрямую с текстовым файлом. Но можете прогнать макрос пошагово в редакторе и посмотреть, как что работает.
Если Вы хотите сделать так, как в начале описывали - открыть оба/три файла, запустить код, вручную сохранить, то тогда код нужно упростить/переделать. Основной алготитм остаётся.
Изменил на любую длину строки. В архиве и макрос, и скрипт. Но результат перед глазами не увидите - код работает напрямую с текстовым файлом. Но можете прогнать макрос пошагово в редакторе и посмотреть, как что работает.
Если Вы хотите сделать так, как в начале описывали - открыть оба/три файла, запустить код, вручную сохранить, то тогда код нужно упростить/переделать. Основной алготитм остаётся.
Вот, щас все отлично работает)) Я так понимаю судя по принципу работы макроса невозможно будет вставить в код часть кода вида
Code
Range("F:F").Replace "X", "Y"
, чтобы перед заменой с применением таблицы, он делал замены некоторых значений ячеек X на Y? Если такая возможность есть, то куда можно вставить в код строчки из моего скрипта замены?
Вот, щас все отлично работает)) Я так понимаю судя по принципу работы макроса невозможно будет вставить в код часть кода вида
Code
Range("F:F").Replace "X", "Y"
, чтобы перед заменой с применением таблицы, он делал замены некоторых значений ячеек X на Y? Если такая возможность есть, то куда можно вставить в код строчки из моего скрипта замены?Hammeron
Т.к. этот код не работет с листом и диапазоном, а анализирует построчно, то если нужно что-то менять в шестом столбце, то придётся менять шестой элемент каждой строки. Можно вот тут подключиться:
For y = 0 To UBound(temp3) If y <> 4 Then s = s & temp3(y) & ";" Else s = s & first1 & ";" End If Next
Сделать анализ по Select Case y: если анализируем 5-й элемент (4, начало отсчёта с 0), то как сейчас, для 6-го свой подход - с Replace, для остальных общее правило. Нетрудно добавить, только я не понял, что заменять нужно?
Т.к. этот код не работет с листом и диапазоном, а анализирует построчно, то если нужно что-то менять в шестом столбце, то придётся менять шестой элемент каждой строки. Можно вот тут подключиться:
For y = 0 To UBound(temp3) If y <> 4 Then s = s & temp3(y) & ";" Else s = s & first1 & ";" End If Next
Сделать анализ по Select Case y: если анализируем 5-й элемент (4, начало отсчёта с 0), то как сейчас, для 6-го свой подход - с Replace, для остальных общее правило. Нетрудно добавить, только я не понял, что заменять нужно?