Здравствуйте Многоуважаемые МАСТЕРА EXEL! Пытался найти готовое решение, встречались похожие, но не под мою задачу. Моя благодарность не будет знать границ, если кто ни будь возьмется с ней помочь. Не буду рассказывать, что я Чайник Абсолютный, это и так видно. И так: На лист «Расчет» притекают в определенной (разработчиком чертежа, и распознанные алгоритмом моей таблицы) последовательности наименований сортаментов металлопроката. Количество заполненных ячеек в столбце может колебаться от 1 до 60, и соответственно значения могут повторяться в любом порядке. Необходимо, начиная с ячейки A:8 распознать значение, найти строку с таким же значением в столбце A на листе «Сортаменты», скопировать ее полностью, и вставить в ту же строку на лист «Расчет», вместе с формулами и форматами. И так же, до A:68, либо пока не закончатся заполненные ячейки, в той же последовательности. Очень надеюсь на ВАШУ помощь, наши сисадмины не взялись. Заранее благодарен.
Здравствуйте Многоуважаемые МАСТЕРА EXEL! Пытался найти готовое решение, встречались похожие, но не под мою задачу. Моя благодарность не будет знать границ, если кто ни будь возьмется с ней помочь. Не буду рассказывать, что я Чайник Абсолютный, это и так видно. И так: На лист «Расчет» притекают в определенной (разработчиком чертежа, и распознанные алгоритмом моей таблицы) последовательности наименований сортаментов металлопроката. Количество заполненных ячеек в столбце может колебаться от 1 до 60, и соответственно значения могут повторяться в любом порядке. Необходимо, начиная с ячейки A:8 распознать значение, найти строку с таким же значением в столбце A на листе «Сортаменты», скопировать ее полностью, и вставить в ту же строку на лист «Расчет», вместе с формулами и форматами. И так же, до A:68, либо пока не закончатся заполненные ячейки, в той же последовательности. Очень надеюсь на ВАШУ помощь, наши сисадмины не взялись. Заранее благодарен.Дмитрий1962
Еще раз Здравствуйте Мастера EXEL, Старожилы и просто прохожие! Затаил дыхание, терпеливо жду любого ответа, отрицательного или положительного, лучше положительного. Пролистал всю ленту, пришел к выводу, что приближаюсь к анти рекорду по количеству просмотров (видимо кто то тоже ищет подобные решения), с нулевым значением в ответах. На рекорд претендуют еще двое несчастных, вроде меня. Интересно, кому достанется пальма первенства? Тем не менее, вопрос остается актуальным! Я и Чайником назвался не спроста. В EXEL работаю давно, но чисто прикладного характера. Стараюсь расширять свои познания, но, чем больше в него углубляюсь, тем больше понимаю, что учиться, учиться, и еще раз учиться. Временами складывается впечатление, что всех возможностей EXEL не знают даже его создатели. Но конечно если смотреть на него с высоты моего воробьиного (но зато уже и не куриного) полета. Но к сожалению языками программирования не владею. А в работе с моей таблицей возник вопрос, который стандартными способами не решить. Очень надеюсь, что он решаем. Честно. Пытался перекроить чужие макросы, никакого результата. Помню свой самый первый компьютер, если кто помнит кроме меня, "Синклер-Спектрум". Все программы для него были в Бейсике, но Бейсик был совсем не такой, и в справочнике были пояснения к каждой команде на доступном русском языке. Не дается мне VBA, может в силу возраста (на пенсию через 3 года), может из за того, что мозги заточены не в том направлении. Не обойтись без ВАШЕЙ помощи. ПОМОЖИТЕ ЧЕМ МОЖИТЕ.
Еще раз Здравствуйте Мастера EXEL, Старожилы и просто прохожие! Затаил дыхание, терпеливо жду любого ответа, отрицательного или положительного, лучше положительного. Пролистал всю ленту, пришел к выводу, что приближаюсь к анти рекорду по количеству просмотров (видимо кто то тоже ищет подобные решения), с нулевым значением в ответах. На рекорд претендуют еще двое несчастных, вроде меня. Интересно, кому достанется пальма первенства? Тем не менее, вопрос остается актуальным! Я и Чайником назвался не спроста. В EXEL работаю давно, но чисто прикладного характера. Стараюсь расширять свои познания, но, чем больше в него углубляюсь, тем больше понимаю, что учиться, учиться, и еще раз учиться. Временами складывается впечатление, что всех возможностей EXEL не знают даже его создатели. Но конечно если смотреть на него с высоты моего воробьиного (но зато уже и не куриного) полета. Но к сожалению языками программирования не владею. А в работе с моей таблицей возник вопрос, который стандартными способами не решить. Очень надеюсь, что он решаем. Честно. Пытался перекроить чужие макросы, никакого результата. Помню свой самый первый компьютер, если кто помнит кроме меня, "Синклер-Спектрум". Все программы для него были в Бейсике, но Бейсик был совсем не такой, и в справочнике были пояснения к каждой команде на доступном русском языке. Не дается мне VBA, может в силу возраста (на пенсию через 3 года), может из за того, что мозги заточены не в том направлении. Не обойтись без ВАШЕЙ помощи. ПОМОЖИТЕ ЧЕМ МОЖИТЕ.Дмитрий1962
Дмитрий1962, Вам бы книги писать, а не задачи описывать. Лично я, пару раз и пример смотрел и описание читал и ничего не понял, видимо как и многие другие. В задаче слишком много воды и нет конкретики. Вот и не отвечает никто. Думая - мож кто другой поймет. Было бы, хотя бы в примере - так есть а так хочу, может кто и понял бы.
Не дается мне VBA, может в силу возраста (на пенсию через 3 года)
И не надо на возраст уповать, я уже 3 года как на пенсии.
Дмитрий1962, Вам бы книги писать, а не задачи описывать. Лично я, пару раз и пример смотрел и описание читал и ничего не понял, видимо как и многие другие. В задаче слишком много воды и нет конкретики. Вот и не отвечает никто. Думая - мож кто другой поймет. Было бы, хотя бы в примере - так есть а так хочу, может кто и понял бы.
Ура! Первый ответ. И от кого. От самого Wasilic!!! Прошу прощения, если что то не правильно описал в своей задаче. Пример остается тот же. Смысл моей таблицы. Работа ПТО. Обработка чертежа (чертежей) КМД (Металлоконструкции, детали). Имеется чертеж в формате AutoCAD. На чертеже имеется спецификация деталей. Грубо говоря,швеллер такой, длина такая, листовой металл такой, размеры такие. И так далее. В чертеже может оказаться какой угодно прокат. И в какой последовательности конструктор вставит покат, ему одному известно. Правила ЕСКД (Единая Система Конструкторской Документации) на этот счет регламента не имеют. И Вполне естественно, что один и тот же материал в пределах спецификации может повторяться несколько раз. Моя задача. 1. Просчитать чертеж на соответствие масс материалов заявленным исполнителем чертежа. Вопрос решен. 2. Просчитать площадь поверхностей металлоконструкции под под окраску (краску возим из Дюсельдорфа, до 1200 руб. за кг.). Вопрос решен. 3. Просчитать фактический расход металлопроката. Вопрос решен.
В последние пол года, поставлена еще ода задача, просчитать чертеж на трудозатратры.
Мой ШЭФ, (И за это Я Ему все прощу), требует от меня (СЛАВА БОГУ не только от меня), обязательное условие. Рабочий, выходя на смену, должен быть обеспечен фронтом работы. Рабочий должен понимать, что от него требует руководитель. Рабочий должен быть уверен, что при условии выполнения своего задания на смену, он получит премию. Рабочий должен знать расценку на ту работу, которую ему предстоит выполнить. В общем все эти задачи решены.
Могу сказать с Абсолютной уверенностью, что за последние лет 20 - 25 к такому подходу ни один Олигарх, кроме моего Шефа не обращался. Именно за это ему мое Признание, Почет, и Уважение.
Посредством конвертера TableBuilder-for-AutoCAD, спецификация с чертежа отправляется в мою таблицу. Алгоритм распознает строки (вопрос решен), на принадлежность строки с материалом к тому или иному сортаменту. Далее в таблице производятся все последующие расчеты по Советским ЕНиРам. Но на промежуточном этапе, возникает выше описная проблема. Алгоритм определил принадлежность строки с материалом к конкретному сортаменту. Но каким образом взять строку с параллельного листа "!Сортаменты", содержащего формулы всех последующих расчетов, перетащить ее на лист "Расчет"? Вставить ее (с формулами) именно туда, где она должна стоять? На данном этапе, этот отрезок работы делатсеся в ручную.
P/S Ребята, Девушки и Мужики!!! Я проделал не малую работу. Я готов предоставить свою работу на ВАШ Высокий Суд. Правила не позволяют. Размер не правильный.
Ура! Первый ответ. И от кого. От самого Wasilic!!! Прошу прощения, если что то не правильно описал в своей задаче. Пример остается тот же. Смысл моей таблицы. Работа ПТО. Обработка чертежа (чертежей) КМД (Металлоконструкции, детали). Имеется чертеж в формате AutoCAD. На чертеже имеется спецификация деталей. Грубо говоря,швеллер такой, длина такая, листовой металл такой, размеры такие. И так далее. В чертеже может оказаться какой угодно прокат. И в какой последовательности конструктор вставит покат, ему одному известно. Правила ЕСКД (Единая Система Конструкторской Документации) на этот счет регламента не имеют. И Вполне естественно, что один и тот же материал в пределах спецификации может повторяться несколько раз. Моя задача. 1. Просчитать чертеж на соответствие масс материалов заявленным исполнителем чертежа. Вопрос решен. 2. Просчитать площадь поверхностей металлоконструкции под под окраску (краску возим из Дюсельдорфа, до 1200 руб. за кг.). Вопрос решен. 3. Просчитать фактический расход металлопроката. Вопрос решен.
В последние пол года, поставлена еще ода задача, просчитать чертеж на трудозатратры.
Мой ШЭФ, (И за это Я Ему все прощу), требует от меня (СЛАВА БОГУ не только от меня), обязательное условие. Рабочий, выходя на смену, должен быть обеспечен фронтом работы. Рабочий должен понимать, что от него требует руководитель. Рабочий должен быть уверен, что при условии выполнения своего задания на смену, он получит премию. Рабочий должен знать расценку на ту работу, которую ему предстоит выполнить. В общем все эти задачи решены.
Могу сказать с Абсолютной уверенностью, что за последние лет 20 - 25 к такому подходу ни один Олигарх, кроме моего Шефа не обращался. Именно за это ему мое Признание, Почет, и Уважение.
Посредством конвертера TableBuilder-for-AutoCAD, спецификация с чертежа отправляется в мою таблицу. Алгоритм распознает строки (вопрос решен), на принадлежность строки с материалом к тому или иному сортаменту. Далее в таблице производятся все последующие расчеты по Советским ЕНиРам. Но на промежуточном этапе, возникает выше описная проблема. Алгоритм определил принадлежность строки с материалом к конкретному сортаменту. Но каким образом взять строку с параллельного листа "!Сортаменты", содержащего формулы всех последующих расчетов, перетащить ее на лист "Расчет"? Вставить ее (с формулами) именно туда, где она должна стоять? На данном этапе, этот отрезок работы делатсеся в ручную.
P/S Ребята, Девушки и Мужики!!! Я проделал не малую работу. Я готов предоставить свою работу на ВАШ Высокий Суд. Правила не позволяют. Размер не правильный.Дмитрий1962
Уважаемый Wasilic! Вы правильно заметили насчет книг. Книги я не пишу. Но моя учительница по литературе, не раз говорила, "погиб еще один писатель". Мы с ВАМИ одной школы!
Уважаемый Wasilic! Вы правильно заметили насчет книг. Книги я не пишу. Но моя учительница по литературе, не раз говорила, "погиб еще один писатель". Мы с ВАМИ одной школы!Дмитрий1962
Ну уж раз сам Serge_007 делает мне замечания! Слов нет! Простите меня Serge_007 и другие участники Форума. Я Заика, В смысле, заикаюсь, и не только в речи, но в тексте. Умные Доктора говорят, это нормально, Речь и правильнописание хромают рядом. Но к теме это не относится.
Ну уж раз сам Serge_007 делает мне замечания! Слов нет! Простите меня Serge_007 и другие участники Форума. Я Заика, В смысле, заикаюсь, и не только в речи, но в тексте. Умные Доктора говорят, это нормально, Речь и правильнописание хромают рядом. Но к теме это не относится.Дмитрий1962
Уважаемый Stormy! Не так. На станицу "Расчет" приплывают наименования сортаментов металлопроката. Необходимо, В той же последовательности расставить строки (с формулами) с листа "Сортаменты" в лист "Расчет". Не щадя изначальных строк на листе "Расчет". Или на другой (новый) лист. Я к любому варианту приспособлюсь.
Уважаемый Stormy! Не так. На станицу "Расчет" приплывают наименования сортаментов металлопроката. Необходимо, В той же последовательности расставить строки (с формулами) с листа "Сортаменты" в лист "Расчет". Не щадя изначальных строк на листе "Расчет". Или на другой (новый) лист. Я к любому варианту приспособлюсь.Дмитрий1962
Dim cc As Range, t As String Application.ScreenUpdating = False
With CreateObject("scripting.dictionary"): .comparemode = 1 For Each cc In Sheets("Сортаменты").UsedRange.Columns(1).Cells t = cc.Value If Len(t) Then .Item(t) = cc.Row Next
For Each cc In Sheets("Расчет ").UsedRange.Columns(1).Cells t = cc.Value If Len(t) Then If .exists(t) Then Sheets("Сортаменты").Rows(.Item(t)).Cells(1).Resize(1, 25).Copy cc End If Next
End With Application.ScreenUpdating = True End Sub
[/vba] Надеюсь угадал. Да, строку копирую не целиком, а только 25 ячеек. Но можно конечно и целиком - но думаю незачем.
P.S. Если угадал - значит Ваши админы... ленивые
На словаре. Т.к. строк будет мало - без массивов
[vba]
Код
Option Explicit
Sub CopyFormulas()
Dim cc As Range, t As String Application.ScreenUpdating = False
With CreateObject("scripting.dictionary"): .comparemode = 1 For Each cc In Sheets("Сортаменты").UsedRange.Columns(1).Cells t = cc.Value If Len(t) Then .Item(t) = cc.Row Next
For Each cc In Sheets("Расчет ").UsedRange.Columns(1).Cells t = cc.Value If Len(t) Then If .exists(t) Then Sheets("Сортаменты").Rows(.Item(t)).Cells(1).Resize(1, 25).Copy cc End If Next
End With Application.ScreenUpdating = True End Sub
[/vba] Надеюсь угадал. Да, строку копирую не целиком, а только 25 ячеек. Но можно конечно и целиком - но думаю незачем.
P.S. Если угадал - значит Ваши админы... ленивые Hugo
Могу сказать с Абсолютной уверенностью, что за последние лет 20 - 25 к такому подходу ни один Олигарх, кроме моего Шефа не обращался. Именно за это ему мое Признание, Почет, и Уважение.
У нас схожий типаж работы. У меня правда метал. профиль, лист и проволока больше используется. За 10 лет накопилось наработок. Скиньте файл, авось чего и посоветую по своему опыту, потому что. Вот это очень смущает.
Могу сказать с Абсолютной уверенностью, что за последние лет 20 - 25 к такому подходу ни один Олигарх, кроме моего Шефа не обращался. Именно за это ему мое Признание, Почет, и Уважение.
У нас схожий типаж работы. У меня правда метал. профиль, лист и проволока больше используется. За 10 лет накопилось наработок. Скиньте файл, авось чего и посоветую по своему опыту, потому что. Вот это очень смущает.
Здравствуйте, прошу помочь, решить задачу. Есть таблица состоящая из 4 столбцов и более 1000 строк. Каждая ячейка 4 столбца содержит разное кол-во числовых значений разделенных запятой. Нужно после каждой строки вставить ее копию столько раз, сколько значений в ячейке 4, при этом в исходной строке в ячейке 4 оставить первое значение, во второй только второе, в третьей - третье и т.д. Если в строке забито одно значение, то соответственно ни чего копировать не надо и переходим на след строчку. И так надо преобразовать весь массив. Пример: 1 2 3 4
А Б П 12,48,135 С Р Б 1236,4568
Конечный результат 1 2 3 4
А Б П 12 А Б П 48 А Б П 135 С Р Б 1236 С Р Б 4568 [moder]Читаем правила форума. Прикладываем свой пример в Excel
Здравствуйте, прошу помочь, решить задачу. Есть таблица состоящая из 4 столбцов и более 1000 строк. Каждая ячейка 4 столбца содержит разное кол-во числовых значений разделенных запятой. Нужно после каждой строки вставить ее копию столько раз, сколько значений в ячейке 4, при этом в исходной строке в ячейке 4 оставить первое значение, во второй только второе, в третьей - третье и т.д. Если в строке забито одно значение, то соответственно ни чего копировать не надо и переходим на след строчку. И так надо преобразовать весь массив. Пример: 1 2 3 4
А Б П 12,48,135 С Р Б 1236,4568
Конечный результат 1 2 3 4
А Б П 12 А Б П 48 А Б П 135 С Р Б 1236 С Р Б 4568 [moder]Читаем правила форума. Прикладываем свой пример в Excelгость