Пример матрицы (написать код на VB)

[Masha1990]

http://www.programmersforum.ru/showthread.php?t=101876
Помогите кто чем может)!!!

[motorway]

Могу помочь за деньги. Обращайтесь в аську 561986872

[Masha1990]

Могу помочь за деньги. Обращайтесь в аську 561986872

А бесплатно помочь девочке не можеш? Пожалуста

[motorway]

Вот первая часть:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
Cells(i, 11).Formula = "=MAX(A" & i & ":J" & i & ")"
Cells(11, i).Formula = "=MAX(" & Chr(64 + i) & "1:" & Chr(64 + i) & "10)"
Next

End Sub

После ввода данных в Экселе в ячейки от A1 до J10 после смены выделенной ячейки (или можно это реализовать как отдельный макрос) в ячейках K1:K10 и A11:J11 появятся соответствующие максимальные значения по строкам и столбцам

[Masha1990]

Вот первая часть:
Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
Cells(i, 11).Formula = "=MAX(A" & i & ":J" & i & ")"
Cells(11, i).Formula = "=MAX(" & Chr(64 + i) & "1:" & Chr(64 + i) & "10)"
Next

End Sub
После ввода данных в Экселе в ячейки от A1 до J10 после смены выделенной ячейки (или можно это реализовать как отдельный макрос) в ячейках K1:K10 и A11:J11 появятся соответствующие максимальные значения по строкам и столбцам

Можеш если не сложно написать весь код программы. Мне нужен токо код)

[motorway]

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

[Masha1990]

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

Спасибо большое за первую часть.Сонце ну пожалуста зделай вторую частьб просто завтра здавать)

[motorway]

Немного первую изменил, добавил добавление данных в колонку справа под литерой M, чтобы потом сортировать.

Код сортировки уже чисто экселовский, не знаю, насколько это у вас там примут...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
Cells(i, 11).Formula = "=MAX(A" & i & ":J" & i & ")"
Cells(11, i).Formula = "=MAX(" & Chr(64 + i) & "1:" & Chr(64 + i) & "10)"
Cells(i, 13).Value = Cells(i, 11).Value
Cells(i + 10, 13).Value = Cells(11, i).Value
Next i

   Range("M1:M20").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("M1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("M1:M20")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


Dim b(1 To 5) As Variant
For j = 1 To 5
b(j) = Cells(j, 13).Value
Next j

End Sub

Короче, все это работает, но удовлетворяет ли вашим требованиям, не знаю и знать не могу

[motorway]

Второе сообщение случайно добавилось... в общем, все это работает в Экселе, используется VBA

[Masha1990]

motorway

Спасиба большое Солнце)
Выручил, очень благодарна!!!