Member 13569975 Ответов: 1

Vb.net переместите одну ячейку вниз, как если бы вы использовали VBA


Привет,

Я новичок в этом деле VB.net но в VBA все в порядке. В моей программе мне, по сути, нужно найти последнюю строку и записать в нее 4 столбца данных, когда флажок снят. Код работает нормально за исключением того что я не знаю эквивалента найти последнюю строку и написать под ней для VB.net-да.

Мне нужно только 4 столбца данных, как показано ниже

Спасибо за любую помощь!
Шон

Что я уже пробовал:

В VBA я мог бы использовать что-то вроде

Range("a2000").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveCell.Offset(1, 0).Select


Мой код для этого раздела таков
With xlWorkSheet
                        lRow = .Range("A" & .Rows.Count).End(Excel.XlDirection.xlUp).Row
                    End With


                    xlWorkSheet.Cells(2, 1) = "Seabed mode CPT"
                    xlWorkSheet.Cells(2, 2) = 1
                    xlWorkSheet.Cells(2, 3) = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
                    xlWorkSheet.Cells(2, 4) = CPTb.Text


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

1 Ответов

Рейтинг:
2

Member 13569975

Я нашел способ, используя целое число

Public MyIndex As Integer = 0
 xlWorkSheet.Cells(2 + MyIndex, 1) = "Seabed mode sampler"
                xlWorkSheet.Cells(2 + MyIndex, 2) = 2
                xlWorkSheet.Cells(2 + MyIndex, 3) = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
                xlWorkSheet.Cells(2 + MyIndex, 5) = Samplerb.Text
                MyIndex += 1