텍스트 상자 결과를 vb.net의 Excel 시트 셀에 표시

Question

양식에 두 개의 텍스트 상자가 있습니다. 하나는 단어를 보유하고 다른 하나는 사용자가 입력 한 것을 기반으로 계산 된 숫자 값을 보유합니다. 각 문장을 구분하고 Excel에서 각 문장의 합계를 표시하는 하위 항목이 있습니다. 아래에 나열된 vb.net 코드에서 생성되는 출력입니다. 모든 단어는 A 열에 있고 B 열의 모든 값은 B 열에 있습니다. 각 문장과 그 값을 두 개의 열에 삽입하도록 코드를 어떻게 수정합니까? "문장 1의 합계"문자열에 도달하면. C & D 열에 단어와 해당 값을 삽입하기 시작해야합니다. 문장 하나와 그 값은 A & B 열에 표시되어야하며 문장 2는 그 값이 C & D 열에 표시되어야합니다. 첨부 된 이미지를 참조하십시오. 빨간색으로 표시된 텍스트는 현재 가지고있는 텍스트이고 원하는 텍스트는 원하는 결과입니다. 감사!

vb.net에서 내 코드입니다 : 필요에 따라

Private Sub Export_Click(sender As System.Object, e As System.EventArgs) Handles btnCreate.Click 

    xlWorkBook = xlApp.Workbooks.Add 

    xlApp.Visible = True 

    xlWorkSheet = xlWorkBook.Sheets("Sheet1") 
    Dim columnANum As Integer 
    Dim columnBNum 
    columnBNum = 2 
    columnANum = 2 
    With xlWorkSheet 
     .Range("A1").Value = "Word" 
     For Each cellA As String In txtWord.Text.Split(vbLf) 

      .Range("A" & columnANum.ToString).Value = cellA 
      columnANum += 1 
     Next 
     .Range("B1").Value = "Value" 
     For Each cellB As String In txtValue.Text.Split(vbLf) 
      .Range("B" & columnBNum.ToString).Value = Convert.ToInt32(cellB) 
      columnBNum += 1 
     Next 


    End With 
End Sub 

Answer 1

편집 :이 코드를 크게 변경하고 테스트했습니다. 그게 당신이 찾고있는 일을해야합니까

Sub testExcelColumns() 
    Dim xlApp As Object = CreateObject("Excel.Application") 
    Dim xlWorkBook As Object 
    Dim xlWorkSheet As Object 

    xlWorkBook = xlApp.Workbooks.Add 
    xlApp.Visible = True 

    xlWorkSheet = xlWorkBook.Sheets("Sheet1") 
    Dim RowNum As Integer = 1 
    Dim ColNum As Integer = 1 

    'use .cells(row, column) instead of .range 
    xlWorkSheet.cells(RowNum, ColNum).Value = "Word" 

    For Each cellA As String In txtWord.Text.Split(vbLf) 

     'increment the row 
     RowNum += 1 

     'set the value 
     xlWorkSheet.cells(RowNum, ColNum).value = cellA 

     If cellA.StartsWith("Total") Then 
      ColNum += 2 
      RowNum = 1 
      xlWorkSheet.cells(RowNum, ColNum).Value = "Word" 
     End If 

    Next 

    'increment to the second column and first row 
    ColNum = 2 
    RowNum = 1 

    'set title 
    xlWorkSheet.cells(RowNum, ColNum).Value = "Value" 

    For Each cellB As String In txtValue.Text.Split(vbLf) 

     'increment the row 
     RowNum += 1 

     'set the value 
     xlWorkSheet.cells(RowNum, ColNum).value = cellB 

     'get value of cell to the left 
     Dim t As String = xlWorkSheet.cells(RowNum, ColNum).offset(0, -1).value 
     If Not t Is Nothing AndAlso t.StartsWith("Total") Then 
      ColNum += 2 
      RowNum = 1 
      xlWorkSheet.cells(RowNum, ColNum).Value = "Value" 
     End If 

    Next 

End Sub 

Answer 2

것은

Dim RowNum as Integer = 1 
Dim ColNum as Integer = 1 

사용 .cells 대신 .range

xlWorkSheet.Cells(RowNum, ColNum).value = "Word" 
xlWorkSheet.Cells(RowNum, ColNum).value = "Value" 

업데이트를 행과 열을 사용해보십시오

RowNum += 1 
ColNum += 1