Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перемножить две ячейки
 
#1
16.08.2013 20:41:11
Добрый вечер. Собрал вот такую процедуру:
           
  Private Sub CommandButton1_Click()
   СтрокаСчета = 3
   Do While Sheets("Счета").Cells(СтрокаСчета, 2) <> ""
       Sheets("Счета").Rows(СтрокаСчета).Select
        If Sheets("Счета").Cells(СтрокаСчета, 2).Interior.Color = RGB(255, 255, 255) Then
           Артикул = Sheets("Счета").Cells(СтрокаСчета, 1)
           СтрокаБД = 3
           Do While Sheets("БД").Cells(СтрокаБД, 1) <> ""
               If Sheets("БД").Cells(СтрокаБД, 3) = Артикул Then
                   Sheets("Счета").Cells(СтрокаСчета, 5) = Sheets("БД").Cells(СтрокаБД, 13)                    
                   Sheets("Счета").Cells(СтрокаСчета, 10) = Sheets("БД").Cells(СтрокаБД, 10)                    
                   Sheets("Счета").Cells(СтрокаСчета, 11) = Sheets("Счета").Cells(СтрокаСчета, 4) * 2
                   Exit Do
               End If
               СтрокаБД = СтрокаБД + 1
           Loop
       End If
       СтрокаСчета = СтрокаСчета + 1
   Loop
End Sub

при умножении: Sheets("Счета").Cells(СтрокаСчета, 11) = Sheets("Счета").Cells(СтрокаСчета, 4) * 2 все нормально.Но мне надо перемножить значения Sheets("Счета").Cells(СтрокаСчета, 4) и Sheets("Счета").Cells(СтрокаСчета, 10). А так не работает.
Пожалуйста подскажите как надо правильно.
И еще: Как правильно обнулить ячейки на листе "Счета" со строки 3 в столбцах 5-12 в этом коде перед запуском?
Вообще-то такая структура кода работает довольно медленно. Почему?
 
 
 
#2
16.08.2013 20:48:01
Николай Малыгин, у Вас 62 сообщения на форуме, а Вы до сих пор не знаете, что код можно(и нужно) оформлять тегами. А еще нужно выкладывать пример в файле Эксель. Может заглянете в Правила, ознакомитесь...
Я сам - дурнее всякого примера! ...
 
 
 
#3
16.08.2013 21:35:39
Прочитал еще раз правила. Про теги к кодам не нашел ни слова. Вроде многие так обращаются и никто не возражает. Если про обращения, то за 3 года просил просьбу считанное кол-во раз. Когда начинает напрягать начальство. Нанять знатока и платить не хотят, считают что я справлюсь. Вот и выкручиваюсь, когда прижмет. Сейчас в очередной раз. Повторяю, что я пользуюсь Exsel по необходимости. Моя работа- SolidWorks. Пример прикладываю
 
 
 
#4
16.08.2013 21:41:53
Цитата
Про теги к кодам не нашел ни слова.
Я персонально прошу Вас оформить код тегом. Этого достаточно?
 
 
 
#5
16.08.2013 21:43:17
1. Логично, что не работает. Т.к. умножать число на ничто не дозволено ни в одной программе. Либо пишите нули, либо проверяйте на пусто, либо преобразуйте на лету:
Код
Sheets("Счета").Cells(СтрокаСчета, 11) = Val(Sheets("Счета").Cells(СтрокаСчета, 4)) * Val(Sheets("Счета").Cells(СтрокаСчета, 10))


2. Оформление тегами кодов это признак хорошего тона. Вот Вам удобно читать свой код без тегов? Мне не очень. Поэтому лучше привыкать - это несложно и это вовсе не повод для перебранок. Если тег есть - почему бы не использовать для удобочитаемости?
3. То, что Вы используете Excel по необходимости ни в коем разе не означает, что Вам обязаны помочь. Все ведь на добровольной основе и лишний раз подчеркивать, что Excel Вам далек совершенно излишне. Лишь может несколько негативно настроить, т.к. очень смахивает на какую-то жалобщину. Имейте ввиду.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
16.08.2013 21:45:29
Прошу Вас показать правила оформления кодов тегами. Я не понимаю о чем речь
 
 
 
#7
16.08.2013 21:46:26
Вы кнопочки вверху окна создания сообщения не видели? Там есть такой: <..>
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
16.08.2013 21:52:24
Я о примере насчет правил. А о тегах, что тоже надо в Правилах написать? Еще о чем? Тогда Вам чтения правил до пенсии хватит. Попробуйте:
Код
                If Sheets("БД").Cells(СтрокаБД, 3) = Артикул Then
                    With Sheets("Счета")
                        .Cells(СтрокаСчета, 5) = Sheets("БД").Cells(СтрокаБД, 13)
                        .Cells(СтрокаСчета, 7) = Sheets("БД").Cells(СтрокаБД, 14)
                        .Cells(СтрокаСчета, 9) = Sheets("БД").Cells(СтрокаБД, 15)
                        .Cells(СтрокаСчета, 10) = Sheets("БД").Cells(СтрокаБД, 10)
                        .Cells(СтрокаСчета, 6) = .Cells(СтрокаСчета, 4)
                        .Cells(СтрокаСчета, 8) = .Cells(СтрокаСчета, 4)
                        .Cells(СтрокаСчета, 11).Value = .Cells(СтрокаСчета, 4).Value _
                        * Val(.Cells(СтрокаСчета, 10))
                    End With
                    Exit Do
                End If

P.S. код можно ускорить, но мне пока некогда.
Изменено: KuklP - 16.08.2013 21:55:24
Я сам - дурнее всякого примера! ...
 
 
 
#9
16.08.2013 21:55:09
Про "Там есть такой: <..>" честно пока не нашел. При создании темы есть "Добавить теги" Это оно? Спасибо
 
 
 
#10
16.08.2013 21:58:32
Так понятно?
Я сам - дурнее всякого примера! ...
 
 
 
#11
16.08.2013 21:59:36
Ну раз не видите...Покажу наглядно, скрином(во вложении).
Что насчет непосредственно вопроса темы? Вам уже два человека ответ дали - ноль эмоций.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
16.08.2013 22:12:14
Ответы только сейчас пришли. Заработало. Я пробовал так до этого, но не туда втыкал оператор. Теперь знаю, как  пользоваться тегами. Спасибо Вам Всем за помощь. Для решения всей проблемы еще много чего потребуется. Постараюсь справляться сам, когда смогу. Не выйдет, не обессудьте. Снова вернусь к Вам
 
 
 
#13
16.08.2013 22:15:31
Цитата
Теперь знаю, как  пользоваться тегами
Чем докажете? Ваш код пока так и остался неухоженным)
 
 
 
#14
16.08.2013 22:51:24
По крайней мере уже считает. Про остальное вроде пока "нет времени". Дальше надо будет выбирать уникальные по столбцам 5, 7, 9 с суммой по метрам. Но наверно лучше сделать это заранее.
 
 
 
#15
16.08.2013 23:24:55
Что значит надо будет выбирать уникальные? Какое отношение это имеет к данной теме?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#16
17.08.2013 00:00:56
Нет конечно. Просто советуюсь про очередность выбора уникальных. Попробую сам. Решения на форуме про это есть.
 
 
 
#17
17.08.2013 11:50:19
Попробуйте так

With Sheets("Счета")
.Cells(СтрокаСчета, 11)=WorksheetFunction.Product(.Cells(СтрокаСчета, 4),.Cells(СтрокаСчета, 10))
End With
 
 
 
#18
17.08.2013 19:28:29
Добрый вечер. только сейчас прочел и попробовал. Тоже множит, спасибо.
 
 
 
#19
17.08.2013 20:43:56
Предлагаю убрать внутренний цикл:
Скрытый текст
Изменено: KuklP - 17.08.2013 20:45:06
Я сам - дурнее всякого примера! ...
 
 
 
#20
17.08.2013 21:52:50
Здорово. Работа глазу незаметна. Займусь чтением кода. Благодаря Вам уже что-то начинаю понимать. Огромное спасибо
 
 
 
#21
17.08.2013 22:30:22
Просмотрел код. Даже для меня легко читается. Еще раз Спасибо
 
 
 
Страницы: 1
Наверх