VBA(кнопки,массивы)

[funduk]

Исходные данные: расход каждого из К материалов на производство каждой из М деталей. Исходные
данные определяются путем обращения к датчику случайных чисел. Задание:
а. Для любого материала определить деталь с наибольшим расходом.
б. Для любой детали определить суммарное значение расхода всех материалов.

мои макросы получились
Sub Задание_а()
Dim k, m, i, j As Integer
m = Val(Cells(1, 1).Value)
k = Val(Cells(2, 1).Value)
MsgBox (Str(m) + " деталей" + "," + Str(k) + " видов материалов")
If k > 0 And k <= 10 And m > 0 And m <= 10 Then
For i = 1 To m Step 1
For j = 1 To k Step 1
Cells(2 + i, j).Value = Str(Int(100 * Rnd()))
Next
Next
Else
MsgBox ("Создать таблицу невозможно с заданными параметрами" + Str(m) + "," + Str(k))
For i = 1 To 10 Step 1
For j = 1 To 10 Step 1
Cells(2 + i, j).Value = ""
Next
Next
End If
For i = m + 1 To 10 Step 1
For j = 1 To 10 Step 1
Cells(2 + i, j).Value = ""
Next
Next
For j = k + 1 To 10 Step 1
For i = 1 To 10 Step 1
Cells(1 + i, j).Value = ""
Next
Next
End Sub


Sub Задание_б()
Dim k, k1, m, m1, j, i As Integer
Dim sum, max As Integer
m = Val(Cells(1, 1).Value)
k = Val(Cells(2, 1).Value)

If m > 0 And m <= 10 And k > 1 And k <= 10 Then
If k1 > 0 And k1 <= k And m1 > 0 And m1 <= m Then
max = Val(Cells(2 + m1, j).Value)
det = 1
For j = 1 To k Step 1
If max < Val(Cells(2 + m1, j).Value) Then
max = Val(Cells(2 + m1, j).Value)
det = j
Cells(9, 1) = "Деталь с наибольшим расходом для " + Str(m1) + " материала равно" + Str(max)
End If
Next
Cells(7, 11).Value = "Деталь с наибольшим расходом для " + Str(m1) + " материала равно" + Str(max)
sum = 0
For i = 1 To m Step 1
sum = sum + Val(Cells(2 + i, k1).Value)
Next
Cells(6, 11).Value = "суммарное значение расхода всех материалов для " + Str(m1) + " детали равно " + Str(sum)

End If
Else
MsgBox ("невозможно обработать таблицу с данными параметрами")
End If


End Sub
Помогите задание Б исправить.Вообще ничего не происходит(не выводит значения)
и кнопку нормально не могу сделать...

[VictorM]

Помогите задание Б исправить.Вообще ничего не происходит(не выводит значения)

А где у вас вот это присваивается(задается)?
If k1 > 0 And k1 <= k And m1 > 0 And m1 <= m Then
k1 и m1 ?

[shanemac51]

m = Val(Cells(1, 1).Value)
k = Val(Cells(2, 1).Value)

занесите значения в а1 и в1

[VictorM]

shanemac51

m = Val(Cells(1, 1).Value)
k = Val(Cells(2, 1).Value)
занесите значения в а1 и в1

Если Вы это мне, то вопрос был не о k и m, это и так понятно
а о k1 m1

[funduk]

m и k по условию в $A$1 и $A$2
А m1 и k1 - уже не думается.Спс,что сказал я на это даже не смотрел=).

[VictorM]

удалено, ошибка

[funduk]

R1C1 разве не строка столбец?
Ну и задание_а я же запускаю макрос с данными в 1,1 и 2,1.

[VictorM]

Вы правы, что-то я протупил))
Сбило с толку сообщение shanemac51

[funduk]

ничего у меня не получается=(

[VictorM]

ничего у меня не получается=(

Выкладывайте файл, говорите, что нужно и что не получается