|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.05.2008, 23:35 | #41 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
SAS888
При работе, выявились недостатки, самой концепции сверки. Все объяснения в аттаче. Последний раз редактировалось valerij; 15.05.2008 в 02:53. |
19.05.2008, 22:06 | #42 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Вот как у меня получилось, дюже просто(сам удивляюсь), может не верно?
Но это пол задачи, пояснение в аттаче, файл Prover.xls |
20.05.2008, 07:16 | #43 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Запустите макрос "Sum".
Сделал для первого листа. Если надо, задайте цикл по нужным листам. Обратите внимание, что поиск ведется не по столбцу "C" листа "НАКЛ", а по столбцу "IU", т.к. в файле-источнике (на ячейки которого идут ссылки) данные находятся в различных (каких попало) форматах.
Чем шире угол зрения, тем он тупее.
|
20.05.2008, 11:43 | #44 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Вообщем сделал цикл, вставил в макрос книги: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) -------------------------------- With Sh.Range("I10:I15").Offset(iCount& * 48) .FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R619C2 55,R[-7]C)>0,R[-7]C,0)" .Value = .Value End With Получилось нормально, т. е. задействован тот период в котором работаешь, очень экономит время, а как сделать, привязать макрос "Sum()", таким же образом?? C и IU я понял, исправлю! Последний раз редактировалось valerij; 20.05.2008 в 11:47. |
|
20.05.2008, 12:10 | #45 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Да просто в конце Вашего цикла (до "End With") можно вставить
Код:
Чем шире угол зрения, тем он тупее.
|
20.05.2008, 12:22 | #46 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Все, Sheets(1) которые есть в макросе, менять Sheets(.)?
Если да, то красным становится If Sheets(.).Cells(i, "I") <> "" And Sheets(.).Cells(i, "I") <> 0 _ And Sheets(.).Cells(i, "I").HasFormula Then myCollect _ .Add Sheets(.).Cells(i, "I").Value, CStr(Sheets(.).Cells(i, "I").Value) Последний раз редактировалось valerij; 20.05.2008 в 12:49. |
20.05.2008, 13:15 | #47 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Не на Sheets(.), а просто на точку. Например:
Код:
Не Sh.Cells(x, y), а .Cells(x, y)
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 20.05.2008 в 13:19. |
20.05.2008, 13:33 | #48 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Все равно, ошибка, блин Compile error: Invalid or unqualified reference (Компилируйте ошибку: Нетрудоспособная или неквалифицированная ссылка) Последний раз редактировалось valerij; 20.05.2008 в 13:43. |
|
20.05.2008, 14:03 | #49 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Прошу прощения. Нужно в процедуру Sum передавать параметр Sh.
Это можно сделать, например, так: Код:
Чем шире угол зрения, тем он тупее.
|
20.05.2008, 14:20 | #50 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
SAS888
О!!! Темень. Вставь, пожалуйста САМ, тебе это секунды Последний раз редактировалось valerij; 20.05.2008 в 14:30. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Управление громкостью | Jupiter | Общие вопросы Delphi | 2 | 29.06.2008 15:43 |
Управление голосом | prizrak1390 | Общие вопросы Delphi | 2 | 24.06.2008 21:04 |
управление CD ROMom | Cricket2007 | Помощь студентам | 4 | 16.06.2008 16:01 |
Управление приложениями | voron29 | Общие вопросы Delphi | 1 | 14.03.2008 12:38 |
вопрос - проблема с форматированием | prickly | Microsoft Office Excel | 2 | 14.11.2006 10:14 |