-1

フォームに 2 つのテキスト ボックスがあります。1 つは文字列を持ち、もう 1 つは vbnewline で区切られた値を持ちます。テキスト ボックス内の文字列 "Total" に達すると、2 列の後に文字列を挿入する必要があります。列 A に挿入し、= "Total" に等しいセルに到達した場合、列 C に文字列を挿入し、列 D に値を挿入する必要があります。現在、以下のコードは、次の列に移動せずに、2 つの列 (A と B) のみにすべてを挿入します。セル値が「合計」に等しい場合、(C & D)、(E、& F) などの次の列に文字列と値を挿入するにはどうすればよいですか?

Dim RowNum As Integer = 2
Dim ColNum As Integer = 1



    xlWorkSheet.Cells(1, 1).value = "Word"
    xlWorkSheet.Cells(1, 2).value = "Value"
    For Each cellA As String In txtWord.Text.Split(vbLf)
        xlWorkSheet.Cells(RowNum, ColNum).value = cellA
        RowNum += 1
        If xlWorkSheet.Cells(RowNum, ColNum).value = "Total" Then
            ColNum += 2
        End If
    Next
    RowNum = 2
    For Each cellB As String In txtValue.Text.Split(vbLf)

        xlWorkSheet.Cells(RowNum, 2).value = cellB
        RowNum += 1
        ColNum += 2
    Next
4

1 に答える 1

1

これはあなたが以前に尋ねたのと同じ質問です。参照:テキスト ボックスの結果を vb.net の Excel シート セルに表示する

そこで私の修正された回答を確認できます。

于 2013-07-10T01:46:22.813 に答える