Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Дмитрий Суворов
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 След.
выбор в комбобоксах из списка в палитре цвета
 
#
21.06.2022 17:29:42
Спасибо большое Дмитрий и New !
Буду пробовать:)

В самом выпадающем списке как раз два цвета чёрный и зелёный.
По выбору этих цветов и ОК - дальнейшие действия.

Сейчас выбираю цифры или 0,5 или 2.
 
Перейти    
выбор в комбобоксах из списка в палитре цвета
 
#
21.06.2022 17:03:35
Добрый день, Уважаемые специалисты!
Всем здоровья, радости и финансового благополучия!

Вот такой вопрос.
Обычно в комбоксах используют значения.
Можно ли использовать палитру?

Сложно ли?

Огромное спасибо за ответ!
 
Перейти    
Разбить текст по символам. Ошибка последующей вставки.
 
#
15.04.2022 13:31:17
Код
Удалите тему, пожалуйста
Изменено: Дмитрий Суворов - 16.04.2022 01:34:29
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 22:28:24
Юрий! Огромное Вам спасибо!:) Да! Всё именно так,как хотелось!:)
Вопрос закрыт.
Спасибо и Вам vikttur!:)
Решения в данной теме готовы к использованию в любых вариантах.
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 02:21:10
А мне кажется,что по названию темы: "умножение выделенных ячеек между собой" нашли бы свои ответы больше пользователей. Я не прав?:)
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 02:14:44
А по номеру #13 и #17- конечно,могу код изменить для нужных мне колонок.
Да, всё работает! Спасибо!

А если на листе в разных диапазонах находятся два диапазона для расчётов?
Тогда нужно два макроса написать. А если три диапазона - то три?

При моих расчётах такая очерёдность будет: повешу на одно сочетание кнопок Ваш макрос.
Выделил диапазон,нажал сочетание- получил сумму площадей - записал.
Далее - также.
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 02:03:35
Спасибо,vikttur!:)
То есть в три действия - сначала нажали кнопку,выбрали диапазон,нажали ОК.
Супер!:)Всё работает!
*понятно,что дарёному коню..но всёже.. а вот так:
выбрали диапазон,нажали кнопку?
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 01:50:52
Спасибо вам Юрий и vikttur! :)

Юрий - в Вашем случае - всё работает исправно.
Именно в #1 задании так и сказано.
Но в #4 в дальнейшем сказал,когда отвечал на вопросы:
Цитата
Вычисления будут в дальнейшем происходить в разных диапазонах.
и далее в #6
Цитата
Данные(именно три столбца) могут быть и ниже строчками.
Например,сейчас они находятся в диапазоне C3:E7.
А могут находится в диапазоне I1:K21. Нахождение на листе,в книге - где угодно.
Простите,Юрий..можно это изменить?...

В Вашем случае,vikttur - всё считается в диапазоне CDE,но по заполненным ячейкам.(да?)
А важно - по выделению.
+ Алгоритма не понял. Пробовал менять цифры в столбце E - результат не меняется.
Оставьте,пожалуйста - тоже устраивает вариант с msgbox :)
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 01:09:33
Извините,Юрий...я просил разделить умноженное..
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 01:05:31
4,34819
Извините,пожалуйста,Юрий ..забыл сказать...
Сумма площадей итоговая ,отражённая в Listbox1 округлена до 2 знаков после запятой.
То есть результат здесь
4,35
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
24.06.2013 00:02:10
Простите,vikttur! - да сумма площадей.
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
23.06.2013 23:52:12
Выделение будет производится мышкой.
Выделили,нажали кнопку макрос, прочитали результат(записали) и закрыли Userform1.

Данные(именно три столбца) могут быть и ниже строчками.
Например,сейчас они находятся в диапазоне C3:E7.
А могут находится в диапазоне I1:K21.

Но всегда данные состоят из 3 столбцов
(первая и вторая колонка - размеры,третья колонка - количество)

Нахождение на листе,в книге - где угодно.
Их и надо перемножить. Важна сумма площадей.
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
23.06.2013 23:29:27
Спасибо за ответы,vikttur и Юрий!  :)  
Главное - перемножить всё в выделении и разделить на миллион(10^6),а результат вывести в userform1.
в TextBox на форме.

Вычисления будут в дальнейшем происходить в разных диапазонах.

Проверку на то,введены ли цифры в диапазоне делать не надо.
Изменено: Дмитрий Суворов - 23.06.2013 23:35:15
 
Перейти    
Умножение и суммирование в выделенном диапазоне
 
#
23.06.2013 22:07:14
Здравствуйте,Уважаемые Специалисты!  :)  
Прошу помочь в решении школьной задачи.

Нужно вычислить площадь деталей.

Нужно перемножить все данные в выделенном диапазоне столбцов C,D,E между собой.
Размеры даны в мм,а результат в Userform1 нужно вывести в кв.м.
(То есть результат умножения нужно разделить на 1.000.000)
Пример прилагаю.

Как это сделать проще?
Огромное спасибо за помощь.

PS Использовать соседние ячейки для вывода результатов - нельзя.
 
Перейти    
копирование данных на другой лист через 2 строчки
 
#
09.06.2013 00:38:05
Спасибо,Юрий!:) Тема закрыта.
 
Перейти    
копирование данных на другой лист через 2 строчки
 
#
09.06.2013 00:34:15
Да,разобрался,Юрий - спасибо огромное!
А зачем вот эта строчка?
Код
Range(.Cells(8, 2), .Cells(LR + 2,  8) ).ClearContents
Изменено: Дмитрий Суворов - 09.06.2013 00:34:51
 
Перейти    
копирование данных на другой лист через 2 строчки
 
#
09.06.2013 00:08:13
Здравствуйте,Юрий:) Огромное спасибо!:)

То есть для всех остальных столбцов мне создать ещё 5 макросов?

Смотрел везде на форуме: есть через строчку вставка данных всех столбцов блоками,есть добавление между строчками(от Pavel55) нужных количеств пустых строк.
Думаю,что легче способа,чем у Вас всё равно нет.
 
Перейти    
копирование данных на другой лист через 2 строчки
 
#
08.06.2013 22:08:14
Здравствуйте,vikttur!:)
Узкие строки важны для дальнейшей работы.
В дальнейшем по макросу они будут обработаны границами с разными типами линий.
Я пробовал сначала вставлять строки,а затем добавлять пустые.
Но далее пришлось бы рисовать границы таблицы заново.
Если это проще - скажите,пожалуйста.
 
Перейти    
копирование данных на другой лист через 2 строчки
 
#
08.06.2013 20:55:33
Здравствуйте, Уважаемые Специалисты!:)

Просьба помочь в решении задачи.
На листе"1" есть данные,которые копируются макросом Copy_mez на лист"2" в каждую строку.

Данные нужно перенести их через 2 строчки.
Чтобы они попали в очерченные границами таблицу.
Её изменять нельзя.

Если вам не сложно,поправьте пожалуйста код.
На листе"2" - скриншот,как всё должно быть.

Огромное спасибо за помощь.
 
Перейти    
Как вывести сумму ячеек в заданом диапазоне строк?
 
#
19.04.2013 00:56:40
Для меня это сложно:)Извините:)
 
Перейти    
Как вывести сумму ячеек в заданом диапазоне строк?
 
#
19.04.2013 00:35:10
Здравствуйте,isomiac:)
Возможно Вам поможет?:)Недавно пользовался:)
Код
'вставляет в ячейку А1 сумму выделенных ячеек
[A1] = WorksheetFunction.sum(Selection)
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
17.04.2013 23:34:06
Игорь,Вам искреннее спасибо!:)
Задачка решена благодаря Юрию!:)
Для меня действительно всё сложно было...
Если хотите  - напишите в личку - скину код: может и он Вам будет полезен:)

Про макросы читаю иногда - спасибо за советы.
Мне бы вот так объяснить на примере тупом все циферки,константы,модули:)

Типа такого:
"Это - стол,за ним можно сидеть, надо есть,а вот ноги класть нельзя.
А это - стул - на нём надо сидеть, за ним есть нельзя,а ноги положить можно".
И провести аналогию с какой-нить переменной.
Может знаете такую книгу,где так всё разжёвывают?:)

Уж поверьте,если бы Вы пришли в мебель мноооого тонкостей рассказал:)
Ну вот не хватает,поверьте времени все сайты лопатить:)
Скажите  конкретно,пожалуйста - я Вам поверю и буду изучать:)
И точно всем ещё расскажу,какой Вы мне совет дали:)
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
17.04.2013 09:53:52
Здравствуйте, Ran! Спасибо :)
Мне как-то объясняли,чтобы все ячейки в Range не перебирать. Так? :)
Изменено: Дмитрий Суворов - 17.04.2013 14:42:06
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
17.04.2013 01:22:08
Игорь! ДУмаю,что Вашу строку
Код
   .Range(.Cells(1, "Z"), Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column)).Copy WsSh.Cells(lLastRow, 1)

лучше заменить(а то ругается) на более короткую,пусть и тупую:)
Код
        .Range("Z1:AF1").Copy WsSh.Cells(lLastRow, 1)
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
16.04.2013 23:10:33
Игорь,мне кажется,что эта строчка
Код
Set WsSh = Worksheets("пример""Иванов Степан""")

должна быть другой.
Какой-нибудь WsSh.name...
Это видно из начала работы - работает макрос itog_summa.

Он создаёт новые листы из значений ячеек АС1 и АС2 Листа1.
Далее с каждым листом работает макросы Copy1 и Copy2.
Каждый из них копирует строчки из Листа 1 и
или вставляет первые новые строчки в диапазон созданных листов
или добавляет в диапазон данные,если листы существуют.

В моём файле task3 листы пример"Иванов Степан" и пример"Ипполитов Вениамин"
для примера - что будет с этими новыми листами.
А их название может быть любым - всё зависит от ячеек АС1 и АС2 Листа1.

Так как им узнать новое имя нового листа из ячейки?  :)  

Простите,может неправильно задачу поставил?...
Изменено: Дмитрий Суворов - 16.04.2013 23:30:16
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
16.04.2013 22:27:35
Здравствуйте,Игорь!
Спасибо вам огромное за науку! Файл "кирпичики"- то,что надо.:)
И. Всё-таки наше поколение;)  с настоящими человеческими ценностями и взаимопомощью.
Ваше решение  пока не могу посмотреть - стоит офис 2003.
Чуть позже обязательно отпишусь.
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
16.04.2013 15:49:45
Здравствуйте,Уважаемые Специалисты! :)

Уж извините,пожалуйста - к вам снова за советом.
И прошу простить,что не новая тема...
Поверьте,потратил с тех пор немало времени,чтобы победить проблему.

Последний код от Игоря всё делает правильно,значение на новых листах вставляет.
Но далее уж совсем заплутал,помогите,пожалуйста.

Есть лист(допустим Лист1) ,с которого нужно скопировать диапазон ячеек и поместить его на созданные листы.

НО,мне важно,если лист был создан ранее, чтобы данные переносились "с накоплением",то есть помещались в следующей строчке,после имеющихся данных.

Попробовал несколько методов копирования,но так и не понял,как сделать правильно.

Файл примера прилагаю.
Если не сложно - объясните,в чём я не прав...

Спасибо Вам заранее.
Изменено: Дмитрий Суворов - 16.04.2013 15:50:58
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
15.04.2013 14:03:26
Спасибо,Игорь! :)
Да,вчера Ikki написал
Цитата
а внутри with - ставить точки перед range
"
Но  йа недостачно профессионален в Excel,чтобы понять о чём речь.
Ваше объяснение доступно и понятно.

Всем огромное спасибо - тема закрыта :)
Изменено: Дмитрий Суворов - 15.04.2013 14:05:43
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
15.04.2013 02:19:22
Сейчас,когда исправил код...
Код
  Sub itog_summa()
    Dim iRng As Range, WsSh As Worksheet, wsSh2 As Worksheet
    Application.ScreenUpdating = False
    'Set iRng = Selection
            If Not Sh_Exist(Sheets("расчёт").Range("AC2")) Then
           Sheets.Add(, Sheets(Sheets.Count)).Name = Sheets("расчёт").Range("AC1")
            Set WsSh = ActiveSheet
           End If
           If Not Sh_Exist(Sheets("расчёт").Range("AC2")) Then
            Sheets.Add(, Sheets(Sheets.Count)).Name = Sheets("расчёт").Range("AC2")
            Set wsSh2 = ActiveSheet
           End If
          With WsSh
            Range("A1").FormulaR1C1 = "1"
        End With
        With WsSh2
            Range("A1").FormulaR1C1 = "2"
        End With
  End Sub

данные отрабатываются только во втором случае: ставится 2 в ячейку А1.
Как надо изменить,чтобы работало на двух листах?
Изменено: Дмитрий Суворов - 15.04.2013 02:21:02
 
Перейти    
создание нового листа из значения в определённой ячейке
 
#
15.04.2013 02:06:29
Юрий,так как по-Вашему будет код выглядеть?...
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх