Вместе с максимальным должно выводититься название товара

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вместе с максимальным должно выводититься название товара (Макросы/Sub)

FET

Дата: Среда, 15.11.2017, 22:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Помогите плиз, сделал все осталось только, что бы вместе с максимальным как то выводилось и название изделие, ничего придумать уже не могу, все передумал, остановился на showm, но понял, что лазию в диапозоне, мозг уже взрывается(, в VBA Плохо шарю, так что критикуйте) , Выводиться без разницы как вроде в ячейку или на экран
Кому удобнее, прикрепил сам файл

Sub Кнопка1_Щелчок()
Dim znmax As Double

Sheets("Лист1").Cells(4, 2) = "600"
Sheets("Лист1").Cells(5, 2) = "500"
Sheets("Лист1").Cells(6, 2) = "300"
Sheets("Лист1").Cells(7, 2) = "400"
Sheets("Лист1").Cells(8, 2) = "700"
Sheets("Лист1").Cells(9, 2) = "600"
Sheets("Лист1").Cells(10, 2) = "400"
Sheets("Лист1").Cells(4, 3) = "80"
Sheets("Лист1").Cells(5, 3) = "50"
Sheets("Лист1").Cells(6, 3) = "40"
Sheets("Лист1").Cells(7, 3) = "70"
Sheets("Лист1").Cells(8, 3) = "55"
Sheets("Лист1").Cells(9, 3) = "120"
Sheets("Лист1").Cells(10, 3) = "110"
Sheets("Лист1").Cells(16, 2) = "1л"
Sheets("Лист1").Cells(17, 2) = "5л"
Sheets("Лист1").Cells(18, 2) = "1л"
Sheets("Лист1").Cells(19, 2) = "1л"
Sheets("Лист1").Cells(20, 2) = "1л"
Sheets("Лист1").Cells(21, 2) = "2кг"
Sheets("Лист1").Cells(16, 3) = "32"
Sheets("Лист1").Cells(17, 3) = "25"
Sheets("Лист1").Cells(18, 3) = "20"
Sheets("Лист1").Cells(19, 3) = "20"
Sheets("Лист1").Cells(20, 3) = "20"
Sheets("Лист1").Cells(21, 3) = "20"
znmax = Application.max(Range("C4:C10"))
MsgBox "Цена максимального продукта " & znmax
If znmax = c5 Then
MsgBox "Ряженка "
ElseIf znmax = c4 Then
MsgBox "Кефир "
ElseIf znmax = c6 Then
MsgBox "Йогурт "
ElseIf znmax = c7 Then
MsgBox "Масло "
ElseIf znmax = c10 Then
MsgBox "Сметана "
ElseIf znmax = c9 Then
MsgBox "Творог "
Else
MsgBox "Сыр "
End If
End Sub

К сообщению приложен файл: 6065197.xlsm (19.9 Kb)

Сообщение отредактировал FET - Среда, 15.11.2017, 22:56

Ответить

СообщениеПомогите плиз, сделал все осталось только, что бы вместе с максимальным как то выводилось и название изделие, ничего придумать уже не могу, все передумал, остановился на showm, но понял, что лазию в диапозоне, мозг уже взрывается(, в VBA Плохо шарю, так что критикуйте) , Выводиться без разницы как вроде в ячейку или на экран
Кому удобнее, прикрепил сам файл

Sub Кнопка1_Щелчок()
Dim znmax As Double

Sheets("Лист1").Cells(4, 2) = "600"
Sheets("Лист1").Cells(5, 2) = "500"
Sheets("Лист1").Cells(6, 2) = "300"
Sheets("Лист1").Cells(7, 2) = "400"
Sheets("Лист1").Cells(8, 2) = "700"
Sheets("Лист1").Cells(9, 2) = "600"
Sheets("Лист1").Cells(10, 2) = "400"
Sheets("Лист1").Cells(4, 3) = "80"
Sheets("Лист1").Cells(5, 3) = "50"
Sheets("Лист1").Cells(6, 3) = "40"
Sheets("Лист1").Cells(7, 3) = "70"
Sheets("Лист1").Cells(8, 3) = "55"
Sheets("Лист1").Cells(9, 3) = "120"
Sheets("Лист1").Cells(10, 3) = "110"
Sheets("Лист1").Cells(16, 2) = "1л"
Sheets("Лист1").Cells(17, 2) = "5л"
Sheets("Лист1").Cells(18, 2) = "1л"
Sheets("Лист1").Cells(19, 2) = "1л"
Sheets("Лист1").Cells(20, 2) = "1л"
Sheets("Лист1").Cells(21, 2) = "2кг"
Sheets("Лист1").Cells(16, 3) = "32"
Sheets("Лист1").Cells(17, 3) = "25"
Sheets("Лист1").Cells(18, 3) = "20"
Sheets("Лист1").Cells(19, 3) = "20"
Sheets("Лист1").Cells(20, 3) = "20"
Sheets("Лист1").Cells(21, 3) = "20"
znmax = Application.max(Range("C4:C10"))
MsgBox "Цена максимального продукта " & znmax
If znmax = c5 Then
MsgBox "Ряженка "
ElseIf znmax = c4 Then
MsgBox "Кефир "
ElseIf znmax = c6 Then
MsgBox "Йогурт "
ElseIf znmax = c7 Then
MsgBox "Масло "
ElseIf znmax = c10 Then
MsgBox "Сметана "
ElseIf znmax = c9 Then
MsgBox "Творог "
Else
MsgBox "Сыр "
End If
End Sub

Автор - FET
Дата добавления - 15.11.2017 в 22:55

_Boroda_

Дата: Среда, 15.11.2017, 23:04 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

...
MsgBox "Цена максимального продукта " & znmax
For i = 4 To 10
    If Cells(i, 3) = znmax Then
        MsgBox Cells(i, 1)
    End If
Next i
End Sub

[/vba]
с4, с5, ... - это получается у Вас переменные, которые не определены
А вот Range("C4") - это уже ссылка на ячейку. Или Cells(4, 3)

==============
В следующий раз, если создали тему в неверном разделе форума, то не нужно создавать еще одну, просто напишите прямо в той теме просьбу о ее переносе. Модераторы перенесут

К сообщению приложен файл: 6065197_1.xlsm (20.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

FET

Дата: Среда, 15.11.2017, 23:08 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Офигеть, да, я уже часа два мучался и тут на этот сайт набрел, Спасибо огромное)

Ответить

Вместе с максимальным должно выводититься название товара (Макросы/Sub)

Страница 1 из 1
1