Блог

Я использую Visual Studio 2013. Я создал форму приложения Windows в Visual Basic и, используя ее, ввожу данные в Excel. Я написал код для автоматического увеличения уникального номера, который должен появиться сразу после загрузки формы. Но вместо того, чтобы появляться в то время, когда я ввожу первые данные через форму в Excel, тогда он показывает мне число. Число должно содержать сегодняшнюю дату месяца, а затем 01,02 .. и должно быть сброшено обратно на 01 на следующий день. Например: 101001 (месяц-10, дата-10, число-01), 101002,101003 … а затем завтра он должен показать 101101 Это мой код

  Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
    Dim t As String = Format(Today, "MMdd")
    Dim d As Excel.Range
    'Add 1 to the counter if the day is still the same,
    d = xlWorkBook.Sheets("Sheet2").Range("A1")
    If d.Value = Today Then
        d.Offset(1, 0).Value = d.Offset(1, 0).Value   1
    Else
        d.Value = Today
        d.Offset(1, 0).Value = 1
    End If
    If d.Offset(1, 0).Value < 10 Then
        Me.txtQuote.Text = t amp; "0" amp; d.Offset(1, 0).Value
    Else
        Me.txtQuote.Text = t amp; d.Offset(1, 0).Value
    End If

End Sub
  

Как мне получить требуемое число? И где я должен разместить код, чтобы при загрузке формы число отображалось в текстовом поле