Сортировка по столбцам таблицы (MS Excel)

[nightofpromises]

Отсортировать в каждом столбце диапазона ячейки с числовыми данными. Ячейки с нечисловыми данными и пустые не должны перемещаться. Реализовать в отдельном методе запись формул рабочего листа для определения сумм элементов строк, значения которых меньше нуля.
Когда я нажимаю на кнопку "Решение", у меня ничего не происходит! Помогите мне. Я не знаю, как решить проблему того что ничего не происходит, когда я нажимаю на кнопку "Решение" .
Диапазон Екселя.PNG

Public Class ЛистДиапазон
    Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click
        Dim Диапазон As КлассДиапазон = New КлассДиапазон(Me.Range("diapozonrange"),
                                                          Me.Range("sumelstr"))
        Диапазон.Обработать()
    End Sub
End Class
Class КлассДиапазон
    'Свойство содержащее ссылку на диапазон
    Private diapozonrange As Excel.Range
    Private sumelstr As Excel.Range
    'Конструктор класса (создает экземпляр класса)
    Sub New(diapozonrange As Excel.Range, sumelstr As Excel.Range)
        'Инициализация свойства класса
        Me.diapozonrange = diapozonrange
        Me.sumelstr = sumelstr
    End Sub
 
    'Метод для сортировки ячеек в каждом столбце с числовыми данными и записи формул рабочего листа для определения сумм элементов строк, значения которых меньше нуля.
    Sub Обработать()
        Try
            Dim i, j As Long
            Dim Ячейка As Excel.Range
            For Each Ячейка In diapozonrange.Cells
                If IsNumeric(Ячейка) And IsNothing(Ячейка) Then
                    For j = 1 To diapozonrange.Columns.Count
                        For i = 1 To diapozonrange.Rows.Count
                            diapozonrange.Sort(Key1:=diapozonrange.Cells(i, j).Value, Order1:=Excel.XlSortOrder.xlAscending, Orientation:=Excel.XlSortOrientation.xlSortColumns)
                        Next i
                    Next j
                End If
            Next Ячейка
 
            For i = 1 To diapozonrange.Rows.Count
                If i < 0 Then
                    sumelstr.Cells(i).formula = "SUM(" & diapozonrange.Rows(i).address(False, False) & ")"
                End If
            Next
 
        Catch ex As Exception
            MessageBox.Show(text:=ex.Message,
                            buttons:=MessageBoxButtons.OK,
                           caption:="Ошибка данных",
                           icon:=MessageBoxIcon.Error)
        End Try
    End Sub
End Class

[Serge_Bliznykov]

а разве это не Visual Basic ?
а в MS Excel VBA (Visual Basic for Application) там есть свою ограничения и нюансы.
я ни разу не виде, чтобы в VBA использовалось назначение обработчика событий через handles.

[nightofpromises]

Сообщение от Serge_Bliznykov

а разве это не Visual Basic ?
а в MS Excel VBA (Visual Basic for Application) там есть свою ограничения и нюансы.
я ни разу не виде, чтобы в VBA использовалось назначение обработчика событий через handles.

это VB.Net
Я изменила код сортировки на сортировку методом пузырька. Все равно ничего не выходит

Public Class ЛистДиапазон
    Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click
        Dim Диапазон As КлассДиапазон = New КлассДиапазон(Me.Range("diapozonrange"),
                                                          Me.Range("sumelstr"))
        Диапазон.Обработать()
    End Sub
End Class
Class КлассДиапазон
    'Свойство содержащее ссылку на диапазон
    Private diapozonrange As Excel.Range
    Private sumelstr As Excel.Range
    'Конструктор класса (создает экземпляр класса)
    Sub New(diapozonrange As Excel.Range, sumelstr As Excel.Range)
        'Инициализация свойства класса
        Me.diapozonrange = diapozonrange
        Me.sumelstr = sumelstr
    End Sub

    'Метод для сортировки ячеек в каждом столбце с числовыми данными и записи формул рабочего листа для определения сумм элементов строк, значения которых меньше нуля.
    Sub Обработать()
        Try
            Dim i, j As Long
            Dim temp As Long
            For j = 1 To diapozonrange.Columns.Count
                For i = 1 To diapozonrange.Rows.Count - 1
                    If IsNumeric(diapozonrange.Cells(i, j)) Then
                        If IsNothing(diapozonrange.Cells(i, j)) Then
                            If (diapozonrange.Cells(i, j) > diapozonrange.Cells(i, j + 1)) Then
                                temp = diapozonrange(i, j)
                                diapozonrange(i, j) = diapozonrange(i, j + 1)
                                diapozonrange(i, j + 1) = temp
                            End If
                        End If
                    End If
                Next i
            Next j

            For i = 1 To diapozonrange.Rows.Count
                If i < 0 Then
                    sumelstr.Cells(i).formula = "SUM(" & diapozonrange.Rows(i).address(False, False) & ")"
                End If
            Next i

        Catch ex As Exception
            MessageBox.Show(text:=ex.Message,
                            buttons:=MessageBoxButtons.OK,
                           caption:="Ошибка данных",
                           icon:=MessageBoxIcon.Error)
        End Try
    End Sub
End Class

[Serge_Bliznykov]

Сообщение от nightofpromises

это VB.Net
Я изменила код сортировки на сортировку методом пузырька. Все равно ничего не выходит

Вы меня не поняли.
я говорю о том, что я не уверен, что ваша конструкция в MS Excel работает.

конкрентно вот это:

Сообщение от nightofpromises

Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click

у меня нет уверенности, что ваша кнопка с именем btn_reshenie (кстати, а такая кнопка вообще есть?!) получает таким образом назначенный обработчик.


тогда уже так попробывать:

Public Class ЛистДиапазон
    Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click
      MsgBox "On Button Click Fire!"
    End Sub
End Class

но, честно говоря, я не уверен, что сообщение появится после нажатия на кнопку.

А зачем Вам такое назначение?
почему просто не взять и не назначить макрос на кнопку средствами конструктора в MS Excel?

[nightofpromises]

Сообщение от Serge_Bliznykov

Вы меня не поняли.
я говорю о том, что я не уверен, что ваша конструкция в MS Excel работает.

конкрентно вот это:


у меня нет уверенности, что ваша кнопка с именем btn_reshenie (кстати, а такая кнопка вообще есть?!) получает таким образом назначенный обработчик.


тогда уже так попробывать:

Public Class ЛистДиапазон
    Private Sub btn_reshenie_Click(sender As System.Object, e As System.EventArgs) Handles btn_reshenie.Click
      MsgBox "On Button Click Fire!"
    End Sub
End Class

но, честно говоря, я не уверен, что сообщение появится после нажатия на кнопку.

А зачем Вам такое назначение?
почему просто не взять и не назначить макрос на кнопку средствами конструктора в MS Excel?

Сообщение появляется после нажатия на кнопку (ну после того как я код заменила на другой). Вот архив с программой. Помогите мне.
Практическая №4.rar

[pu4koff]

If IsNumeric(diapozonrange.Cells(i, j)) Then

Проверяете ячейку, а нужно значение в ячейке.
diapozonrange.Cells(i, j) - это Cell (или Range, забыл уже) с кучей свойств и методов, это не число.

If IsNumeric(diapozonrange.Cells(i, j).Value) Then

и дальше по коду так же не путаем ячейку и значение, записанное в ячейку.
ячейках будет не жестко заданное число, а формула.
Вообще, там есть нюансы, возможно нужно будет работать со свойством Value2 или FormulaR1C1. Зависит от содержимого ячеек, форматов ячеек и т.д. и т.п.

[nightofpromises]

Сообщение от pu4koff

If IsNumeric(diapozonrange.Cells(i, j)) Then

Проверяете ячейку, а нужно значение в ячейке.
diapozonrange.Cells(i, j) - это Cell (или Range, забыл уже) с кучей свойств и методов, это не число.

If IsNumeric(diapozonrange.Cells(i, j).Value) Then

и дальше по коду так же не путаем ячейку и значение, записанное в ячейку.
ячейках будет не жестко заданное число, а формула.
Вообще, там есть нюансы, возможно нужно будет работать со свойством Value2 или FormulaR1C1. Зависит от содержимого ячеек, форматов ячеек и т.д. и т.п.

так тоже самое выходит
ничего не происходит при нажатии кнопки, даже если я проверяю значение, а не саму ячейку

[pu4koff]

Дальше проверка идёт:

If IsNumeric(diapozonrange.Cells(i, j)) Then
                        If IsNothing(diapozonrange.Cells(i, j)) Then

какая ячейка должна быть пустой? А то сначала проверяем, что в ней число, а потом, что в ней нет ничего. естественно ничего обрабатываться не будет.

[nightofpromises]

Сообщение от pu4koff

Дальше проверка идёт:

If IsNumeric(diapozonrange.Cells(i, j)) Then
                        If IsNothing(diapozonrange.Cells(i, j)) Then

какая ячейка должна быть пустой? А то сначала проверяем, что в ней число, а потом, что в ней нет ничего. естественно ничего обрабатываться не будет.

я поменяла условия местами. ничего не изменилось.

[pu4koff]

Сообщение от nightofpromises

я поменяла условия местами. ничего не изменилось.

А смысл их местами менять?
Сначала смотрим: ага. пустая ячейка. следующим условием проверяем: в пустой ячейке записано число? естественно дальше этих проверок никуда не уйдём. Тут или ячейка пустая или в ней число. Может вообще это IsNothing выкинуть или чего этим хотите проверить?