Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как выправить форматирование ячеек в данном макросе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как выправить форматирование ячеек в данном макросе
Муля2010 Дата: Вторник, 06.12.2011, 18:12 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Добрый день!
В файле имеется макрос, «forming» (пардон произошла ошибочка, исправлено автором), который выбирает даные из базы (см. лист КарткаОбліку) за определнгный период времени (см. ячейки Е4 и G4 в ЗвітПеріод) и копирует их в отчет «ЗвітПеріод».
Макрос работает, но немного неправильно переносит форматы ячеек.

Например в столбцах : АВ, AD и AF (см. ЗвітПеріод), суммы переносит с одним десятичным знаком, а нужно – з двумя. И так во всей таблице, количество – с одним, а суииы – с двумя десятичными знаками. Соответственно : километраж и дни – целые числа, а все остальные столбцы (кроме дат) – общий формат.
А разлинеивание ячеек – должно осуществляться только в пределах скопированных данных. Начиная с 14-ой строки, и заканчивая последней строкой копирования. В данном случае , 20-ой строкой.
Для удобства, в отчете я пронумеровал столбцы так, как они пронумерованы в базе данных (см. лист КарткаОбліку).
Заранее спасибо за ответ.
К сообщению приложен файл: 4750136.rar (60.9 Kb)


С ув. Муля!

Сообщение отредактировал Муля2010 - Вторник, 06.12.2011, 19:13
 
Ответить
СообщениеДобрый день!
В файле имеется макрос, «forming» (пардон произошла ошибочка, исправлено автором), который выбирает даные из базы (см. лист КарткаОбліку) за определнгный период времени (см. ячейки Е4 и G4 в ЗвітПеріод) и копирует их в отчет «ЗвітПеріод».
Макрос работает, но немного неправильно переносит форматы ячеек.

Например в столбцах : АВ, AD и AF (см. ЗвітПеріод), суммы переносит с одним десятичным знаком, а нужно – з двумя. И так во всей таблице, количество – с одним, а суииы – с двумя десятичными знаками. Соответственно : километраж и дни – целые числа, а все остальные столбцы (кроме дат) – общий формат.
А разлинеивание ячеек – должно осуществляться только в пределах скопированных данных. Начиная с 14-ой строки, и заканчивая последней строкой копирования. В данном случае , 20-ой строкой.
Для удобства, в отчете я пронумеровал столбцы так, как они пронумерованы в базе данных (см. лист КарткаОбліку).
Заранее спасибо за ответ.

Автор - Муля2010
Дата добавления - 06.12.2011 в 18:12
Муля2010 Дата: Пятница, 09.12.2011, 13:53 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Муля2010,
день добрый!
Помогите,, плиз, поправить макрос.
Неужели так трудно!!!


С ув. Муля!
 
Ответить
СообщениеМуля2010,
день добрый!
Помогите,, плиз, поправить макрос.
Неужели так трудно!!!

Автор - Муля2010
Дата добавления - 09.12.2011 в 13:53
Hugo Дата: Суббота, 10.12.2011, 02:58 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Муля, выставьте формат ячеек - и будет с двумя.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМуля, выставьте формат ячеек - и будет с двумя.

Автор - Hugo
Дата добавления - 10.12.2011 в 02:58
Муля2010 Дата: Суббота, 10.12.2011, 11:56 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Доброго дня!
Так я же не знаю со скольких строк будет состоять отчет. А потом, мне не надо, чтобі форматі копировались с десятой по 14-ую строку. Там будут формулі для подсчета итогов.


С ув. Муля!
 
Ответить
СообщениеДоброго дня!
Так я же не знаю со скольких строк будет состоять отчет. А потом, мне не надо, чтобі форматі копировались с десятой по 14-ую строку. Там будут формулі для подсчета итогов.

Автор - Муля2010
Дата добавления - 10.12.2011 в 11:56
Hugo Дата: Воскресенье, 11.12.2011, 01:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Не нашёл, где копируются форматы. Значения присваиваются, а форматы нет.
Пробуйте такой вариант - всего лишь поставил форматы вручную столбцам целиком, потом в верхней части вернул на Общий.
К сообщению приложен файл: 4144410.rar (56.6 Kb)


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНе нашёл, где копируются форматы. Значения присваиваются, а форматы нет.
Пробуйте такой вариант - всего лишь поставил форматы вручную столбцам целиком, потом в верхней части вернул на Общий.

Автор - Hugo
Дата добавления - 11.12.2011 в 01:14
Муля2010 Дата: Воскресенье, 11.12.2011, 13:42 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

ПРивет!
Игорь, я этот способ пробовал раньше. Но!
Такой способ сразу , с 320 до 342 увеличивает вес самого файла. И второе. Не решает проблему четырех первых строк (с 10 по 13) , которые должны оставаться не тронутыми. Так как в них будут формулы для расчета итогов. И не решается перенос подписей подписантов на последнюю страничку отчета. В конец этой странички.


С ув. Муля!
 
Ответить
СообщениеПРивет!
Игорь, я этот способ пробовал раньше. Но!
Такой способ сразу , с 320 до 342 увеличивает вес самого файла. И второе. Не решает проблему четырех первых строк (с 10 по 13) , которые должны оставаться не тронутыми. Так как в них будут формулы для расчета итогов. И не решается перенос подписей подписантов на последнюю страничку отчета. В конец этой странички.

Автор - Муля2010
Дата добавления - 11.12.2011 в 13:42
Hugo Дата: Воскресенье, 11.12.2011, 14:09 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Насчёт веса согласен. Насчёт первых строк - так я их не трогал. Вернее сперва трогал, потом вернул назад - но можно выделять не столбцы целиком, а с 14ой строки вниз на сколько нужно строк (с запасом). Тогда и веса столько не наберёт, и первые строки останутся "девственными".
Про подписантов речи не было - а что с ними?


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНасчёт веса согласен. Насчёт первых строк - так я их не трогал. Вернее сперва трогал, потом вернул назад - но можно выделять не столбцы целиком, а с 14ой строки вниз на сколько нужно строк (с запасом). Тогда и веса столько не наберёт, и первые строки останутся "девственными".
Про подписантов речи не было - а что с ними?

Автор - Hugo
Дата добавления - 11.12.2011 в 14:09
Муля2010 Дата: Воскресенье, 11.12.2011, 16:22 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Насчет первых 4 строк, так в том и дело, что в макросе они изначально форматировались. А как раз этого делать не надо.
И НАСЧЕТ ПОДПИСЕЙ, они ставятчя на первой странпце, а надо на последней. \А не писал об этом, потому что эго уже два вопроса подряд.


С ув. Муля!
 
Ответить
СообщениеНасчет первых 4 строк, так в том и дело, что в макросе они изначально форматировались. А как раз этого делать не надо.
И НАСЧЕТ ПОДПИСЕЙ, они ставятчя на первой странпце, а надо на последней. \А не писал об этом, потому что эго уже два вопроса подряд.

Автор - Муля2010
Дата добавления - 11.12.2011 в 16:22
Hugo Дата: Воскресенье, 11.12.2011, 16:37 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Насчет первых 4 строк - вижу очистку значений, вижу рамки. Насчёт формата ячеек - не вижу. Т.е. что там изначально выставлено, то и остаётся - даже заливка.
С подписями не понял - где последняя? Та, что правее? Тогда в коде пишите не
.Cells(lr, 2) = er1
а
.Cells(lr, 19) = er1
и т.д.
Т.е. так, если не ошибся:
Code
        .Cells(lr, 19) = er1
         .Cells(lr, 19).HorizontalAlignment = xlRight
         .Cells(lr, 20) = er2
         .Cells(lr, 21) = er3

         .Cells(lr, 25) = er4
         .Cells(lr, 26) = er5
         .Cells(lr, 27) = er6
         .Cells(lr, 27).HorizontalAlignment = xlLeft


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНасчет первых 4 строк - вижу очистку значений, вижу рамки. Насчёт формата ячеек - не вижу. Т.е. что там изначально выставлено, то и остаётся - даже заливка.
С подписями не понял - где последняя? Та, что правее? Тогда в коде пишите не
.Cells(lr, 2) = er1
а
.Cells(lr, 19) = er1
и т.д.
Т.е. так, если не ошибся:
Code
        .Cells(lr, 19) = er1
         .Cells(lr, 19).HorizontalAlignment = xlRight
         .Cells(lr, 20) = er2
         .Cells(lr, 21) = er3

         .Cells(lr, 25) = er4
         .Cells(lr, 26) = er5
         .Cells(lr, 27) = er6
         .Cells(lr, 27).HorizontalAlignment = xlLeft

Автор - Hugo
Дата добавления - 11.12.2011 в 16:37
Муля2010 Дата: Воскресенье, 11.12.2011, 17:42 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Hugo,
Вставил, сейчас подписи ставяися где надо. На последней странице.
А с форматами, пока все та же проблема.
К сообщению приложен файл: 9149069.rar (61.7 Kb)


С ув. Муля!
 
Ответить
СообщениеHugo,
Вставил, сейчас подписи ставяися где надо. На последней странице.
А с форматами, пока все та же проблема.

Автор - Муля2010
Дата добавления - 11.12.2011 в 17:42
Hugo Дата: Воскресенье, 11.12.2011, 18:58 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Муля, ну выставьте наконец форматы вручную, где какие нужны! Ну сколько можно повторять - код никакие форматы не выставляет и не меняет!!!


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМуля, ну выставьте наконец форматы вручную, где какие нужны! Ну сколько можно повторять - код никакие форматы не выставляет и не меняет!!!

Автор - Hugo
Дата добавления - 11.12.2011 в 18:58
Муля2010 Дата: Воскресенье, 11.12.2011, 19:27 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Игорь, очень сильно извиняюсь, ну как же не меняет?
Например, если я ввожу в ячейки с 10 по 13 какие то значения, а затем запускаю макрос, все удаляется.
Может хоть это как то можно изменить.


С ув. Муля!
 
Ответить
СообщениеИгорь, очень сильно извиняюсь, ну как же не меняет?
Например, если я ввожу в ячейки с 10 по 13 какие то значения, а затем запускаю макрос, все удаляется.
Может хоть это как то можно изменить.

Автор - Муля2010
Дата добавления - 11.12.2011 в 19:27
Hugo Дата: Воскресенье, 11.12.2011, 19:36 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Сообщение № 9 -
Quote (Hugo)
Насчет первых 4 строк - вижу очистку значений, вижу рамки. Насчёт формата ячеек - не вижу. Т.е. что там изначально выставлено, то и остаётся - даже заливка.

Т.е. значения удаляются, всё остальное остаётся - формат ячеек, цвет заливки, цвет шрифта, размер шрифта, выбранный шрифт, ... что там ещё есть, кроме рамок и значений?


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеСообщение № 9 -
Quote (Hugo)
Насчет первых 4 строк - вижу очистку значений, вижу рамки. Насчёт формата ячеек - не вижу. Т.е. что там изначально выставлено, то и остаётся - даже заливка.

Т.е. значения удаляются, всё остальное остаётся - формат ячеек, цвет заливки, цвет шрифта, размер шрифта, выбранный шрифт, ... что там ещё есть, кроме рамок и значений?

Автор - Hugo
Дата добавления - 11.12.2011 в 19:36
Муля2010 Дата: Воскресенье, 11.12.2011, 19:51 | Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Quote (Hugo)
Т.е. значения удаляются, всё остальное остаётся - формат ячеек, цвет заливки, цвет шрифта, размер шрифта, выбранный шрифт, ... что там ещё есть, кроме рамок и значений?

В том числе и формулы удаляются, которые в рабочем файле считают итоги.
Если можно, то сделайте , пжт, чтобы эти строки, макрос не трогал совсем.
Еще раз извините меня, за настойчивость!


С ув. Муля!
 
Ответить
Сообщение
Quote (Hugo)
Т.е. значения удаляются, всё остальное остаётся - формат ячеек, цвет заливки, цвет шрифта, размер шрифта, выбранный шрифт, ... что там ещё есть, кроме рамок и значений?

В том числе и формулы удаляются, которые в рабочем файле считают итоги.
Если можно, то сделайте , пжт, чтобы эти строки, макрос не трогал совсем.
Еще раз извините меня, за настойчивость!

Автор - Муля2010
Дата добавления - 11.12.2011 в 19:51
Hugo Дата: Воскресенье, 11.12.2011, 20:10 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Муля, там в коде есть такие строки:

With .Range("A10:AF1110")

For i = 10 To iLastRow 'цикл с 10 по последнюю строку

With .Range("A10" & ":AF" & r2)

Вот и меняйте тут 10 на то, что Вам нужно.

Ещё в Sub СоздатьОтчетТопливо() есть строки
' Копирование и тиражирование формул
Range("A14:AF14").Copy
Range("A10:A24").Select
ActiveSheet.Paste

Что это, на каком листе работает - не знаю, не вникал, Вам виднее...


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМуля, там в коде есть такие строки:

With .Range("A10:AF1110")

For i = 10 To iLastRow 'цикл с 10 по последнюю строку

With .Range("A10" & ":AF" & r2)

Вот и меняйте тут 10 на то, что Вам нужно.

Ещё в Sub СоздатьОтчетТопливо() есть строки
' Копирование и тиражирование формул
Range("A14:AF14").Copy
Range("A10:A24").Select
ActiveSheet.Paste

Что это, на каком листе работает - не знаю, не вникал, Вам виднее...

Автор - Hugo
Дата добавления - 11.12.2011 в 20:10
Муля2010 Дата: Воскресенье, 11.12.2011, 21:07 | Сообщение № 16
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Hugo,
Игорь!
СПАСИБО вам большущее, разобрался, вроди как работает. Буду тестить.
И простите меня Бога ради, если что, где то не так.
Желаю вам всего найлучшего!!!


С ув. Муля!
 
Ответить
СообщениеHugo,
Игорь!
СПАСИБО вам большущее, разобрался, вроди как работает. Буду тестить.
И простите меня Бога ради, если что, где то не так.
Желаю вам всего найлучшего!!!

Автор - Муля2010
Дата добавления - 11.12.2011 в 21:07
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!