Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.01.2010, 23:04   #21
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте vwmexanik.
если тема не закрыта, выложите пожалуйста архив с образцом Вашего файла ("35 тыс значений" не нужны, достаточно сотни ), я думаю можно "попытаться" ускорить выполнение.
Евгений.
Teslenko_EA вне форума
Старый 22.01.2010, 13:23   #22
vwmexanik
 
Регистрация: 19.01.2010
Сообщений: 9
По умолчанию

К счастью, вроде как нечасто приходится такими объемами ворочить ;-) Макрос выполнялся около 15-20 минут и сделал ровно то, что и требовалось! В принципе меня скорость работы устраивает.
Вопрос теперь еще один, чтобы "данный проект" закрыть ;-)
Есть ячейка, с текстом номерами бумаг и датой формата: от ДД.ММ.ГГГГ можно ли сделать так, чтобы в соседнюю ячейку перенеслось собственно от ДД.ММ.ГГГГ. Т.е. выделить дату и перенести её в соседнюю ячейку? Шаблон наверное должен быть что то вроде от ??.??.???? и от ??.??.??, тк местами есть год как ГГГГ и как ГГ. Есть также где 2 даты...

Последний раз редактировалось vwmexanik; 22.01.2010 в 13:56.
vwmexanik вне форума
Старый 22.01.2010, 13:57   #23
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Цитата:
Есть ячейка, с текстом номерами бумаг и датой формата: от ДД.ММ.ГГГГ можно ли сделать так, чтобы в соседнюю ячейку перенеслось собственно от ДД.ММ.ГГГГ.
Конечно можно.
От Вас - пример файла с указанием, что куда переносить.
EducatedFool вне форума
Старый 22.01.2010, 14:20   #24
vwmexanik
 
Регистрация: 19.01.2010
Сообщений: 9
По умолчанию

Вот пример:
http://www.sendspace.com/file/vgvs2b
Надо выцепить дату и перенести её в столбец рядом. В примере это столбец B
А в полном списке, данные с датой будут в столбце I, а перенести её надо будет в J

Последний раз редактировалось vwmexanik; 22.01.2010 в 15:31. Причина: Изменение ссылки
vwmexanik вне форума
Старый 22.01.2010, 16:01   #25
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Вот вариант с формулой: (пользовательская функция)

Код:
  Ячейка: B11     Формула  (стиль A1):   =ДатаИзСтроки(A11)
                  Формула  (стиль R1C1): =ДатаИзСтроки(RC[-1])



А вот - макросом:



В макросе
Код:
Sub test()
    On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        d = "": d = ДатаИзСтроки(cell)
        cell.Next = IIf(IsDate(d), CDate(d), "нет даты")
    Next cell
End Sub

Function ДатаИзСтроки(ByVal Строка As String) As String
    ДатаИзСтроки = Split(Trim(Split(Строка, " от ")(1)), " ")(0)
End Function
Вам надо будет изменить только 2 буквы - названия столбцов:
строку
Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))

поменять на строку
Set ra = Range([i1], Range("i" & Rows.Count).End(xlUp))
EducatedFool вне форума
Старый 22.01.2010, 16:11   #26
vwmexanik
 
Регистрация: 19.01.2010
Сообщений: 9
По умолчанию

EducatedFool
Вы настоящий профессионал! Спасибо Вам!
vwmexanik вне форума
Старый 15.02.2010, 11:02   #27
Mark Green
 
Регистрация: 15.02.2010
Сообщений: 4
По умолчанию Сравнение данных в 2ух столбцах и копирование строк

Цитата:
Сообщение от vwmexanik Посмотреть сообщение
Возможно ли с помощью макроса, наверное, "заставить" программу произвести сверку значений в столбцах A и E и в случае если значения совпадут, скопировать строку со всеми столбцами на "лист2"?
Добрый день, а можно ли наоборот, скопировать на другой лист те строки что не совпали???
Mark Green вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение строк Rivendell Microsoft Office Excel 8 18.12.2009 10:29
Сравнение листов в книге, и копирование значений Josser Microsoft Office Excel 10 22.07.2009 08:26
Сопоставление данных в двух столбцах plasticman Microsoft Office Excel 4 12.03.2009 17:45
сравнение данных в двух столбцах в Excel 2003 grinders Microsoft Office Excel 4 25.11.2008 16:58
[С++] Сортировка 2ух строк двумерного массива. ReDev1L Помощь студентам 1 19.10.2008 03:45